« [Comp] SICPでHaskell | トップページ | [本] 返却した本 »

2006年8月19日 (土)

[Comp] SICPでHaskell


Exercise 1.3 の 改良版



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

|

« [Comp] SICPでHaskell | トップページ | [本] 返却した本 »

コメント

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

トラックバック


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

« [Comp] SICPでHaskell | トップページ | [本] 返却した本 »