2011-07-29から1日間の記事一覧
演習問題を解いたのでメモ. ex 2.1 suffixes :: [a] -> [[a]] suffixes [] = [[]] suffixes xss@(_:xs) = xss : suffixes xs ex 2.2 data Set a = Leaf | Branch a (Set a) (Set a) deriving Show empty :: Set a empty = Leaf insert :: Ord a => a -> Set…
演習問題を解いたのでメモ. ex 2.1 suffixes :: [a] -> [[a]] suffixes [] = [[]] suffixes xss@(_:xs) = xss : suffixes xs ex 2.2 data Set a = Leaf | Branch a (Set a) (Set a) deriving Show empty :: Set a empty = Leaf insert :: Ord a => a -> Set…