Ї > 8Queens 0Ї Eight Queens Puzzle, original by ElkRepair *Ї Tweeks and colours by StarDot people (: 2ы 8 <я23,1,0;0;0;0; F#ёК0,20)"SEARCH LEVEL: 12345678" PёК13,21)"T B"; Z▐ G%(8) dS%=0 nPX%=0:PY%=0 x,B$=─4,╜17+╜128+" "+╜17+╜139+╜17+╜11+"#") В,W$=─4,╜17+╜139+╜17+╜11+"#"+╜17+╜128+" ") МT%=С ЦЄSCAN_ROW(1) аT%=С-T% к#MIN%=T%Б6000:SEC%=(T%Г6000)Б100 ┤>ёК0,20);S%;" solutions found in ";MIN%;"mins ";SEC%;"secs" ╛ёК13,21)" "; ╚я31,0,21 ╥я23,1,1;0;0;0; ▄р ц: Ё▌ЄSCAN_ROW(Y%) ·√ 128:√ 7:ёКY%+13,21)"="; ч Y%=8 М ёК21,19)"*" ъ X% X%=0 "ї ,ї 6X%=X%+1 @C%=╣:ЄSCAN_COLUMN J¤ C% Д X%=8 Tч м C% М НD|A ^ G%(Y%)=X% h5ч Y%=8 М S%=S%+1:ЄSHOW_SOLUTION Л ЄSCAN_ROW(Y%+1) rG%(Y%)=0 | ¤ X%=8 Ж√ 128:√ 7:ёКY%+13,21)" "; Рч Y%=8 М ёК21,19)" " Ъс д: о▌ЄSCAN_COLUMN ╕$ч G%(Y%) М C%=г Л ЄSCAN_DIAGONAL ┬с ╠: ╓▌ЄSCAN_DIAGONAL ру YY%=1 ╕ 8 ъч G%(YY%)=X% М C%=г Їэ ■ч C%=╣ М ЄSCAN_NW_DIAGONAL с : ▌ЄSCAN_NW_DIAGONAL &XX%=X%:YY%=Y% 0ї :ч G%(YY%)=XX% М C%=г DXX%=XX%-1:YY%=YY%-1 N¤ XX%=0 Д YY%=0 XXX%=X%+1:YY%=Y%+1 bч C%=г М с lч XX%=9 Д YY%=9 М Нt^B vї Ач G%(YY%)=XX% М C%=г КXX%=XX%+1:YY%=YY%+1 Ф¤ XX%=9 Д YY%=9 Юч C%=╣ М ЄSCAN_NE_DIAGONAL ис ▓: ╝▌ЄSCAN_NE_DIAGONAL ╞XX%=X%:YY%=Y% ╨ї ┌ч G%(YY%)=XX% М C%=г фXX%=XX%+1:YY%=YY%-1 ю¤ XX%=9 Д YY%=0 °XX%=X%-1:YY%=Y%-1 ч C%=г Д XX%=0 Д YY%=9 М с ї ч G%(YY%)=XX% М C%=г XX%=XX%-1:YY%=YY%+1 *¤ XX%=0 Д YY%=9 4с >: H▌ЄSHOW_SOLUTION Rbx%=PX%*10:by%=PY%*10 \√ 128:√ 11:ёКbx%,by%);S%; fу YY%=1 ╕ 8 pёКbx%,by%+YY%); zч YY% А 1 М ё W$; Л ё B$; Д:ч G%(YY%) М Q%=(((by%+YY%) А 1) В ((bx%+G%(YY%)) А 1)) ОAч G%(YY%) М √ 139-11*Q%:√ 11*Q%:ё Кbx%+G%(YY%)-1,by%+YY%)"Q"; Шэ в7PX%=PX%+1:ч PX%=8 М PX%=0:PY%=PY%+1:ч PY%=2 М PY%=0 мс