-- 3 avg :: (Fractional a) => [a] -> a avg [] = 0 avg xs = sum xs / fromIntegral (length xs) -- 4 palindrome :: [a] -> [a] palindrome xs = xs ++ reverse xs -- 5 isPalindrome :: (Eq a) => [a] -> Bool isPalindrome xs = xs == (reverse xs) -- …

3章の章末練習問題。1だけ。型シグネチャもつけたから2もだけど。 myLength :: [a] -> Int myLength [] = 0 myLength (_:xs) = 1 + myLength xs

お亡くなりに。まあ安物だから大して痛くはないんだけど、新しいの買う余裕もないのよね。FMトランスミッタで飛ばすから別にいらないって言えばそうなんだけど。

3.8まで読んだ。3.7のあとの練習問題は、2がどうもうまく解けてない気がしてならないなぁ。もう少し考えてみよう。 toList :: List a -> [a] -- toList (Cons x xs) = (:) x (toList xs) toList (x `Cons` xs) = (:) x (toList xs) toList Nil = [] 1は同型…

toBool :: Num a => a -> Bool toBool = (/= 0) Foreign.Marshal.Utils

電池が持つ時間ちょっと短くなってきたような。とはいえ電話はめったに使わないからたいして問題じゃないけど。月に1度も電話しないとかわりとあるし。そのかわりパケット通信はかなり多いんだけど。定額じゃないと洒落にならない。