[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]
| 固定リンク
この記事へのコメントは終了しました。
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]
| 固定リンク
この記事へのコメントは終了しました。
コメント