Just another update

2015-02-20 00:35:01 -05:00 · 2015-02-20 00:35:01 -05:00 · 00a190b0a6
commit 00a190b0a6
parent a25938f123
6591 changed files with 94363 additions and 23227 deletions
--- a/Task/N-queens-problem/Haskell/n-queens-problem-2.hs
+++ b/Task/N-queens-problem/Haskell/n-queens-problem-2.hs
@ -7,5 +7,5 @@ main = mapM_ print $ queens 8
 queens :: Int -> [[Int]]
 queens n = foldM f [] [1..n]
    where
-      f qs k = [q:qs | q <- [1..n] \\ qs, q `notDiag` qs]
+      f qs _ = [q:qs | q <- [1..n] \\ qs, q `notDiag` qs]
      q `notDiag` qs = and [abs (q - qi) /= i | (qi,i) <- qs `zip` [1..]]