http://projecteuler.net/index.php?section=problems&id=168 先頭の数字と約数を決めると次々と後の数字が分かっていく。 これもまた、循環を利用。 import Data.List expand d hd = (div hd d:).unfoldr f.snd.g $ hd where f x | x == hd = Nothing | oth…

http://projecteuler.net/index.php?section=problems&id=167 偶数項が２つしかあらわれない、という事実を利用。 循環を考える。 メモリが足りなくなったので、STを利用。 しかし、まぁ、コードがきれいじゃないですね。 しかも、結局 $ ./p167.exe Stack s…

もう1月も5日である。正月僕はいったい何をしていたんだ？