wvogel00 https://blog.hatena.ne.jp/wvogel00/ wvogel日記 https://wvogel00.hatenadiary.org/ Haskell permutationsを使わずに、昨日書いたn-Queenを書き直してみた。 全列挙ではないので、少しだけ速度が改善された。 しかし、まだまだ改善の余地あり。 import Data.List type Pos = Int main = getLine >>= print.nQueen.read nQueen :: Int -> [Pos] nQueen n = backtrack n [] --駒が他のクイーンにとられない notTaken ::[Pos] -> Bool notTaken [_] = True notTaken ls = notSlanting (zip ls [1..]… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fwvogel00.hatenadiary.org%2Fentry%2F20120113%2F1326439882" title="n-Queen(2) - wvogel日記" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2012-01-13 16:31:22 rich https://wvogel00.hatenadiary.org/entry/20120113/1326439882 1.0 100%