commit 51890c2a5d186981d46f2963302c81af1a451b02 Author: Maxim Lihachev Date: Thu Sep 29 09:54:53 2016 +0500 Реализация Matlab::audioread на Haskell diff --git a/wave.hs b/wave.hs new file mode 100644 index 0000000..19beb3f --- /dev/null +++ b/wave.hs @@ -0,0 +1,15 @@ +-- Создан: Ср 28 сен 2016 10:18:53 +-- Изменен: Чт 29 сен 2016 09:53:59 + +import Data.List +import Data.WAVE + +n = 48000 + +chL (l:r) = l +chR (l:r) = r + +main = do + w <- getWAVEFile "000.wav" + mapM_ print (map chL (take n $ waveSamples w)) +