そういえば、8queenって、まともに解いたことがなかったのではないかと思った。 で、解いてみた。 Start = show $ queens 8 show (n,as) = (show as,as) where show [] = "\n" show [a:ar] = "\n" +++ fill n a +++ show ar where fill n 0 = "*" +++ fill (…

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)うー…