tasks a-s

2013-04-10 23:57:08 -07:00 · 2013-04-10 23:57:08 -07:00 · b83f433714
commit b83f433714
parent 47bf37c096
12433 changed files with 156208 additions and 123 deletions
--- a/Task/N-queens-problem/Rascal/n-queens-problem.rascal
+++ b/Task/N-queens-problem/Rascal/n-queens-problem.rascal
@ -0,0 +1,10 @@
+import Prelude;
+
+public set[list[int]] Nqueens(int n){
+	cols = upTill(n);
+	result = {};
+	for (vector <- permutations(cols)){
+		if (n == size({vector[j] + j |j <- cols}) && n == size({vector[j] - j |j <- cols}))
+			result += vector;}
+	return result;
+}