Joseph-Bake

## gasshuku.hs
import Graphics.Gloss

main :: IO()
main =
  animate
    (InWindow "合宿問題" (xsize,ysize) (200,200))
    white
    drawFunc

drawFunc t = pictures [funcs n t | n <- [1..5]]

## input output
入力
3

出力
(><)/ wahoo!
(><)/ wahoo!!
(><)/ wahoo!!!
good bye

## plotrk.png

      
        
          
            
              
              2 files
            
          
          
            
              
              0 forks
            
          
          
            
              
              0 comments
            
          
          
            
              
              0 stars
            
          
        
        
          
              
          
          
            
                Joseph-Bake
                / plotrk.png
            
            
              Last active
              January 23, 2017 16:06
            
              
                練習プログラムその2(Haskellでルンゲクッタ)
	import Graphics.Gloss

	main :: IO()
	main =
	animate
	(InWindow "合宿問題" (xsize,ysize) (200,200))
	white
	drawFunc

	drawFunc t = pictures [funcs n t \| n <- [1..5]]
	入力
	3

	出力
	(><)/ wahoo!
	(><)/ wahoo!!
	(><)/ wahoo!!!
	good bye