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 …
引用をストックしました
引用するにはまずログインしてください
引用をストックできませんでした。再度お試しください
限定公開記事のため引用できません。