From 23efc3a1f2f01152130a5250c27cfed19cd517c4 Mon Sep 17 00:00:00 2001
From: Maxim Lihachev <envrm@yandex.ru>
Date: Mon, 7 Nov 2016 09:33:13 +0500
Subject: [PATCH] =?UTF-8?q?=D0=A3=D0=B4=D0=B0=D0=BB=D0=B5=D0=BD=D0=B0=20?=
 =?UTF-8?q?=D0=BD=D0=B5=D0=B8=D1=81=D0=BF=D0=BE=D0=BB=D1=8C=D0=B7=D1=83?=
 =?UTF-8?q?=D0=B5=D0=BC=D0=B0=D1=8F=20=D1=84=D1=83=D0=BD=D0=BA=D1=86=D0=B8?=
 =?UTF-8?q?=D1=8F=20everyN?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 audioread.hs | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

diff --git a/audioread.hs b/audioread.hs
index 9a40f99..1827d1c 100644
--- a/audioread.hs
+++ b/audioread.hs
@@ -1,7 +1,7 @@
 {-# LANGUAGE DeriveDataTypeable, RecordWildCards #-}
 
 -- Создан:  Ср 28 сен 2016 10:18:53
--- Изменен: Пн 07 ноя 2016 09:30:26
+-- Изменен: Пн 07 ноя 2016 09:32:57
 
 -- Copyright (C) 2011-2013, Maxim Lihachev, <envrm@yandex.ru>
 
@@ -41,10 +41,6 @@ import Control.Monad
 median :: Fractional a => [a] -> a
 median l = let (t,n) = foldl' (\(b,c) a -> (a+b,c+1)) (0,0) l in t/n
 
---
-everyN :: Int -> [Double] -> [[Double]]
-everyN n list = [(n+n) ## drop (x-1) list | x <- [1, n..length list]]
-
 -- Перевод между типами
 convert :: (Show a, Read c) => a -> c
 convert = read . show