BlogJava-Life is filled with wonder-最新评论http://www.blogjava.net/xyq002444/CommentsRSS.aspxzh-cnTue, 15 Jan 2008 01:38:04 GMTTue, 15 Jan 2008 01:38:04 GMTcnblogsre: 八皇后http://www.blogjava.net/xyq002444/archive/2007/12/15/167856.html#167892李伟彬李伟彬Fri, 14 Dec 2007 16:51:00 GMThttp://www.blogjava.net/xyq002444/archive/2007/12/15/167856.html#167892
/* 利用列表聚合解决8皇后问题 */
define queens(n) {
define scan(i) {
if i==0 then [[]]
else [[q:qs] where qs in scan(i-1), q in [1..n], safe(q, qs)];
}
scan(n);
}

define safe(x, qs) {
define n = 1;
for (y in qs) {
if (x==y || x==y+n || x==y-n)
return false;
n++;
}
return true;
}

define count = 0;
for (x in queens(8)) {
cout << ++count << ": " << x << endl;
}

李伟彬 2007-12-15 00:51 发表评论
]]>re: 八皇后http://www.blogjava.net/xyq002444/archive/2007/12/14/167856.html#167862小屁小屁Fri, 14 Dec 2007 13:34:00 GMThttp://www.blogjava.net/xyq002444/archive/2007/12/14/167856.html#167862

小屁 2007-12-14 21:34 发表评论
]]>