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 …

公私ともにバタバタしていて、blog も twitter も放置していますが、どうにか生きてます。 anarchy golf - Function call expression に関して、youzさんが解説を書けと言ってるので、２位という立場で僭越ながら書いてみる。 ２週間前に問題を見て、なんて…