Life Goes On

まあまあだけど楽しんでる方です

2011-06-11から1日間の記事一覧

冪集合

2011-06-08にあったお題に挑戦。 まずはごくごく素直に。nobsunがなぜNatとか定義しているのか、よく分かっていません。 data Set = S [Set] instance Show Set where show (S xs) | null xs = "0" | otherwise = "{" ++ drop 2 (concat [", " ++ show x | x …