Удалена неиспользуемая функция everyN

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