« [Comp] SBCL | トップページ | [Comp] ふつける »

2006年8月14日 (月)

[Comp] ふつける 9 章 (9.6練習問題)


出題の意図を理解し損ねたかも。
これだと、Ordクラスのcompareを使ったことにならないのかな。



import List
data Line = Line {
number :: Int,
string :: String
} deriving (Show, Ord)
instance Eq Line where
(Line num1 str1) == (Line num2 str2) = (num1 == num2)
ls :: [Line]
ls = [(Line 3 "three"), (Line 1 "one"), (Line 2 "two")]
sortLines :: [Line] -> [Line]
sortLines = sortBy compare
main = print $ sortLines ls


なんか9章は難しくて理解があやふやになってるなあ。
さくさくプログラムを書けないし。


|

« [Comp] SBCL | トップページ | [Comp] ふつける »

コメント

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

トラックバック


この記事へのトラックバック一覧です: [Comp] ふつける 9 章 (9.6練習問題):

« [Comp] SBCL | トップページ | [Comp] ふつける »