2013年2月8日金曜日

開発環境

Real World Haskell』(Bryan O'SullivanJohn GoerzenDon Stewart(著)、山下 伸夫伊東 勝利株式会社タイムインターメディア(翻訳)、オライリー・ジャパン、2009年、ISBN978-4-87311-423-3)の3章(型を定義し、関数を単純化する)の3.13(ガード条件節の評価)の練習問題8.を解いてみる。

8.

コード(BBEdit)

Sample.hs

-- file: Sample.hs
data Tree a = Node a (Tree a) (Tree a)
            | Empty
              deriving (Show)
height :: Tree a -> Int

height Empty = 0
height (Node x y z) = 1 + n
    where n | i <= j = j
            | i > j = i
            where i = height y
                  j = height z

入出力結果(Terminal)

$ ghci
GHCi, version 7.4.2: http://www.haskell.org/ghc/  :? for help
Loading package ghc-prim ... linking ... done.
Loading package integer-gmp ... linking ... done.
Loading package base ... linking ... done.
Prelude> :load Sample.hs
[1 of 1] Compiling Main             ( Sample.hs, interpreted )
Ok, modules loaded: Main.
*Main> height Empty
0
*Main> height (Node "x" Empty Empty)
1
*Main> height (Node "x" Empty (Node "y" Empty Empty))
2
*Main> :quit
Leaving GHCi.
$

0 コメント:

コメントを投稿