しずるさんと偏屈な死者たち / 上遠野浩平 ISBN:4829162147 しずるさんと底無し密室たち / 上遠野浩平 ISBN:4829162848 人面瘡は夜笑う―テレパシー少女「蘭」事件ノート〈6〉 / あさのあつこ ISBN:4061486411 ゴースト館の謎―テレパシー少女「蘭」事件ノート…

はてなブックマークのエントリページ（○ usersをクリックしたときに表示されるページ）の広告を非表示にする。 @-moz-document domain(b.hatena.ne.jp) { div.adsense { display: none; } }

［0..］で0〜∞の整数のリストを表せるので、次のようにすると-∞から+∞までの整数を含んだリストができる。 Main> 0:concatMap (\x -> [-x,x]) [1..] [0,-1,1,-2,2,-3,3,-4,4,-5,5,-6,6,-7,7,-8,8,-9,9,-10,10,-11,11,-12,12,-13,13,-14,14,-15,15,-16,16,-17…

一昨日の続き。コメントで教えてもらった通り、Complex aをEnumのインスタンスにすると動いた。 import Complex instance RealFloat a => Enum (Complex a) where toEnum x = fromIntegral x :+ 0 fromEnum x = floor $ realPart x f x = x * (0:+1)Hugs.Bas…