« [Ruby] Win32OLE | トップページ | [Comp] SICPでHaskell »

2006年8月19日 (土)

[Comp] SICPでHaskell(1)


SICPの Exercise 1.3 を Haskellでやってみる。
sortを使うのは、反則?



import List
func :: Int -> Int -> Int -> Int
func a b c = (x * x) + (y * y)
where
x = head . reverse $ sort [a, b, c]
y = head . tail . reverse $ sort [a, b, c]

|

« [Ruby] Win32OLE | トップページ | [Comp] SICPでHaskell »

コメント

この記事へのコメントは終了しました。

トラックバック


この記事へのトラックバック一覧です: [Comp] SICPでHaskell(1):

« [Ruby] Win32OLE | トップページ | [Comp] SICPでHaskell »