haskell의 게임 보드에 사각형을 그립니다.

Question

저는 haskell과 광택을 사용하여 체스 보드와 같은 것을 그릴 수 있기를 바랍니다.

다른 언어에서 나는

for(i=0; i < 10; i++){ 
    for(j=0; j < 10; j++){ 
     drawSquare(radius, i, j) 
    } 
} 

처럼 뭔가를 할 수 그게 될 것입니다,하지만 난 하스켈에 새로운 오전과 내가 어떻게이 작업을 수행 할 수 있습니다 아무 생각이 없습니다. 나는 광택을 사용하고 수동으로 물건을 그릴 수 있지만 100 개의 사각형을 그릴 때까지 1 씩 1이 아닌 절차 적으로 만들 수 있기를 원합니다.

Answer 1

IO 모나드 내부에서 작업하는 경우 동일한 스타일을 사용할 수 있습니다. 예를 들어

printSquares :: IO() 
printSquares = 
    forM_ [0..9] $ \x -> 
     forM_ [0..9] $ \y -> do 
     putStrLn "Here's a square!" 
     putStrLn ("Square(" ++ show x ++ ", " ++ show y ++ ")") 
     -- add here the actual drawing Gloss commands 

저는 실제 그리기 명령을 제안하는 데 익숙하지 않습니다.

---

업데이트 : Gloss는 위의 IO와 다른 인터페이스를 갖고있는 것으로 보입니다. 당신은 아마, 당신은 아마 지능형리스트와 같은 뭔가를 찾고있다

squares :: Picture 
squares = Pictures [ square x y | x<-[0..9], y<-[0..9] ] 

square :: Float -> Float -> Picture 
square x y = Polygon [(x,y), (x+1,y), (x+1,y+1), (x,y+1) ] 
    -- even better: use rectangleWire and then translate 
    -- rectangleUpperWire also seems useful 

Answer 2

나는 광택 라이브러리에 익숙하지 않은 오전 동안 뭔가를해야

drawBoard :: Int -> Int -> IO() 
drawBoard w h = sequence_ [drawSquare radius i j | i <- [0 .. w], j <- [0 .. h]]