可以解决64个皇后问题的LINGO程序

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

MODEL:
SETS:
WH/1..16/;
WI/1..16/;
LINKS(WH,WI):AD;
ENDSETS
DATA:
@TEXT('D:\N HUANGHOU.TXT')=@WRITEFOR(LINKS(I,J)|AD(I,J)#NE#0:(J-1)*'#','G',(16-J)*'#',@newline(1));
ENDDATA
MIN=1;
@FOR(WH(I):@SUM(WI(J):AD(I,J))=1);
@FOR(WH(I):@SUM(WI(J):AD(J,I))=1);
@FOR(LINKS(I,J):@BIN(AD(I,J)));
@FOR(LINKS(X1,Y1)|X1#EQ#1#OR#Y1#EQ#1:@SUM(LINKS(X2,Y2)|X2-X1#EQ#Y2-Y1:AD(X2,Y2))<1);
@FOR(LINKS(X1,Y1)|X1#EQ#16#OR#Y1#EQ#1:@SUM(LINKS(X2,Y2)|X2-X1#EQ#Y1-Y2:AD(X2,Y2))<1);
END

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：lingo Lin ING NGO links 程序 lingo 解决 皇后

好，谢谢啦！！

这不是16皇后吗。。。。。

厉害啊！记得三年前用lingo只能解决5个皇后.......