divisors :: Int -> [Int] divisors n = [d | d <- [1 .. n], n `mod` d == 0] isPrime n = divisors n == [1, n]たまらん。実用的な物作ろうと思ったら絶対こんな書き方しないけどね。

腹減ったけど食ってもすぐ痛くなるだけなのでもう少し我慢。

解説通りBellman-Fordっぽく解いてみた。本当にTopCoderのサンプルInputの3/4は優しさで出来ていると思った。試しに作ったBellman-Fordが、プログラム的には ∞-1!=∞ なのでsourceから届かない負のループにまで反応してしまっていた。それを修正したりしてた…

牛乳系な気がしてきた。とりあえず腸の中身は出尽くした模様。今日は断食気味で行こうと思う…。