permutationsを使わずに、昨日書いたn-Queenを書き直してみた。 全列挙ではないので、少しだけ速度が改善された。 しかし、まだまだ改善の余地あり。 import Data.List type Pos = Int main = getLine >>= print.nQueen.read nQueen :: Int -> [Pos] nQueen …

久しぶりにcodeforces. この問題 を解いてみた。 import Data.List main = do cs <- getContents case answer.map read.take 6.words $ cs of [a,b,c,d] -> putStrLn (show a ++ " " ++ show b) >> putStrLn (show c ++ " " ++ show d) [] -> putStrLn "-1" …