Итерации над списком в haskell?

Question

Я пишу аудиопрограмму в Haskell, используя Portaudio. У меня есть функция, которая генерирует список образцов, которые я хотел играть, и я пытаюсь воспроизвести их, используя следующий фрагмент кода внутри основной:

curSamps <- return (chunk 1 (sineWave 440 44100)) 
forever $ do 
    Right numSampsAvail <- getStreamWriteAvailable paStream 
    Right NoError <- writeStream paStream curSamps numSampsAvail 
    curSamps <- return (drop numSampsAvail curSamps) 

синусоиды функции Я создал для генерации бесконечный список образцов Int16 синусоиды с заданной частотой и частотой дискретизации.

Когда я отлаживаю этот код, заменяя код вывода звука на putStrLn, он печатает все 0s, что является первым образцом функции.

Как я могу перебирать этот список с помощью функций вывода звука? Я не думаю, что могу использовать рекурсию или карту.

Edit: Код копирование ошибка

Answer 1

Использование рекурсии:

play []  = return() 
play curSamps = do Right numSampsAvail <- getStreamWriteAvailable paStream 
        Right NoError <- writeStream paStream curSamps numSamps 
        play (drop numSampsAvail curSamps) 

main = do ... 
      play (chunk 1 (sineWave 440 44100)) 
      ... 

Answer 2

Используя ту же функцию API можно это сделать:

let playSamples curSamps = do 
     Right numSampsAvail <- getStreamWriteAvailable paStream 
     Right NoError <- writeStream paStream curSamps numSampsAvail 
     playSamples (drop numSampsAvail curSamps) 
playSamples (chunk 1 (sineWave 440 44100)) 

Я не знаком с API Portaudio, так что это может обеспечить более удобным, более высокий что вы пытаетесь достичь.

Answer 3

Рассмотрите возможность использования map «s монадических кузенов mapM/forM.