25 June, 2006

[Haskell] Exercise 2.2

Haskell: The Craft of Fuctional Programming の演習問題。

black を2通りの方法(1つはwhiteを使わないでsuperimposeを使う)で求める。
A and (~A) = 1 であることを使う。

Prelude> :load UsePictures
Compiling Pictures ( ./Pictures.hs, interpreted )
Compiling UsePictures ( UsePictures.hs, interpreted )
Ok, modules loaded: UsePictures, Pictures.
*UsePictures> printPicture (invertColour white)
############
############
############
############
############
############
############
############
############
############
############
############
*UsePictures> printPicture (superimpose horse (invertColour horse))
############
############
############
############
############
############
############
############
############
############
############
############
*UsePictures>

UsePictures.hsに下記を追加する。

-- Ex2.2
black :: Picture
black = invertColour white

No comments: