2011-05-29から1日間の記事一覧
今日は少しイレギュラーですが休日に自宅で読みました。12章の最後の練習問題です。 6. data Tree a = Leaf | Node (Tree a ) a (Tree a) repeatTree :: a -> Tree a repeatTree x = Node (repeatTree x) x (repeatTree) takeTree :: Int -> Tree a -> Tree …
今日は少しイレギュラーですが休日に自宅で読みました。12章の最後の練習問題です。 6. data Tree a = Leaf | Node (Tree a ) a (Tree a) repeatTree :: a -> Tree a repeatTree x = Node (repeatTree x) x (repeatTree) takeTree :: Int -> Tree a -> Tree …