haskell에서리스트를 반복 하시겠습니까?

Question

저는 Portaudio를 사용하여 Haskell에서 오디오 프로그램을 작성하고 있습니다. 내가 연주하고 싶은 샘플의 목록을 생성하는 기능을 가지고, 내가 주 안에 다음 코드를 사용하여 재생하려고 해요 :

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으로 바꾸면 함수의 첫 번째 샘플 인 모든 0이 인쇄됩니다.

이 목록을 오디오 출력 기능으로 반복 할 수 있습니까? 나는 재귀 나지도를 사용할 수 있다고 생각하지 않는다.

편집 : 하나이 할 수있는 동일한 API 함수를 사용하여 코드 복사 실수

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

: 그것은 더 편리를 제공 할 수 있도록

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

내가의 Portaudio의 API에 익숙하지 않다가, 상위 - 당신이 달성하고자하는 일을하는 수준 높은 방법.

Answer 3

map의 모나드 사촌 mapM/forM을 사용하는 것이 좋습니다.