Life is filled with wonder

# re: 八皇后 2007-12-14 21:34 小屁

演示程序 jar文件, 直接運行  回復  更多評論   

# re: 八皇后 2007-12-15 00:51 李偉彬

check out 一下www.operamasks.org的源碼，發現老袁新創了一門名為elite的動態語言。在elite下，8皇后問題的解法如下：

/* 利用列表聚合解決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;
}  回復  更多評論