morioXのCraftお勉強日記 RSSフィード

2007-12-03

[] Programming with lists (5日目)  Programming with lists (5日目) - morioXのCraftお勉強日記 を含むブックマーク

Exercises 6.13 (1日目)

naive view(その場で動かないで、座標を動かす見方)で、flipH, flipV, rotate, rotate90を実装せよ、とのこと。

場所動かないでいいなら、Position そのままで Picture に直接変換をかければいいのかな。とりあえず2つ作ってみる。

flipV :: Image -> Image

flipV img = ( [ reverse line | line <- (fst img) ], (snd img) )

flipH :: Image -> Image

flipH img = ( reverse (fst img), (snd img) )