Реализация Matlab::audioread на Haskell

9 years ago · 51890c2a5d
1 changed files with 15 additions and 0 deletions
--- a/wave.hs
+++ b/wave.hs
@ -0,0 +1,15 @@
				@@ -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))
+