Concurrent Clean : 素数
http://www.unfindable.net/~yabuki/blog/2006/06/100sql.html
そういう書き方もあるよね、ということで
Start = filter is_prime [2..100] is_prime n = case filter is_divisor [2..n-1] of [] = True _ = False where is_divisor x = 0 == (n rem x)
うーん。やっぱり食傷気味だ。