|
…7) - y(2)) <= 1 THEN 3
IF ABS(x(7) - x(1)) <= 1 AND ABS(y(7) - y(1)) <= 1 THEN 3 FOR n8% = n7% + 1 TO 63 y(8) = n8% MOD 8 IF y(8) = 0 THEN y(8) = 8 x(8) = (n8% - y(8)) / 8 + 1 IF ABS(x(8) - x(7)) <= 1 AND ABS(y(8) - y(7)) <= 1 THEN 2 IF ABS(x(8) - x(6)) <= 1 AND ABS(y(8) - y(6)) <= 1 THEN 2 IF ABS(x(8) - x(5)) <= 1 AND ABS(y(8) - y(5)) <= 1 THEN 2 IF ABS(x(8) - x(4)) <= 1 AND ABS(y(8) - y(4)) <= 1 THEN 2 IF ABS(x(8) - x(3)) <= 1 AND ABS(y(8) - y(3)) <= 1 THEN 2 IF ABS(x(8) - x(2)) <= 1 AND ABS(y(8) - y(2)) <= 1 THEN 2 IF ABS(x(8) - x(1)) <= 1 AND ABS(y(8) - y(1)) <= 1 THEN 2 FOR n9% = n8% + 1 TO 64 y(9) = n9% MOD 8 IF y(9) = 0 THEN y(9) = 8 x(9) = (n9% - y(9)) / 8 + 1 IF ABS(x(9) - x(8)) <= 1 AND ABS(y(9) - y(8)) <= 1 THEN 1 IF ABS(x(9) - x(7)) <= 1 AND ABS(y(9) - y(7)) <= 1 THEN 1 IF ABS(x(9) - x(6)) <= 1 AND ABS(y(9) - y(6)) <= 1 THEN 1 IF ABS(x(9) - x(5)) <= 1 AND ABS(y(9) - y(5)) <= 1 THEN 1 IF ABS(x(9) - x(4)) <= 1 AND ABS(y(9) - y(4)) <= 1 THEN 1 IF ABS(x(9) - x(3)) <= 1 AND ABS(y(9) - y(3)) <= 1 THEN 1 IF ABS(x(9) - x(2)) <= 1 AND ABS(y(9) - y(2)) <= 1 THEN 1 IF ABS(x(9) - x(1)) <= 1 AND ABS(y(9) - y(1)) <= 1 THEN 1 j# = j# + 1 IF INT(j# / 1000000) = j# / 1000000 THEN PRINT j# GOTO 10 1 NEXT n9% 2 NEXT n8% 3 NEXT n7% 4 NEXT n6% 5 NEXT n5% 6 NEXT n4% 7 NEXT n3% 8 NEXT n2% END 10 n% = 0 40 n% = n% + 1 IF n% = 65 THEN 50 r% = n% WHILE r% > 0 r% = r% - 8 WEND y% = r% + 8 x% = (n% - y%) / 8 + 1 IF ABS(x% - x(1)) <= 1 AND ABS(y% - y(1)) <= 1 THEN 40 IF ABS(x% - x(2)) <= 1 AND ABS(y% - y(2)) <= 1 THEN 40 IF ABS(x% - x(3)) <= 1 AND ABS(y% - y(3)) <= 1 THEN 40 IF ABS(x% - x(4)) <= 1 AND ABS(y% - y(4)) <= 1 THEN 40 IF ABS(x% - x(5)) <= 1 AND ABS(y% - y(5)) <= 1 THEN 40 IF ABS(x% - x(6)) <= 1 AND ABS(y% - y(6)) <= 1 THEN 40 IF ABS(x% - x(7)) <= 1 AND ABS(y% - y(7)) <= 1 THEN 40 IF ABS(x% - x(8)) <= 1 AND ABS(y% - y(8)) <= 1 THEN 40 IF ABS(x% - x(9)) <= 1 AND ABS(y% - y(9)) <= 1 THEN 40 GOTO 1 50 n% = 0 i% = i% + 1 FOR k = 1 TO 9 IF x(k) = 1 THEN x$(k) = "a" IF x(k) = 2 THEN x$(k) = "b" IF x(k) = 3 THEN x$(k) = "c" IF x(k) = 4 THEN x$(k) = "d" IF x(k) = 5 THEN x$(k) = "e" IF x(k) = 6 THEN x$(k) = "f" IF x(k) = 7 THEN x$(k) = "g" IF x(k) = 8 THEN x$(k) = "h" NEXT PRINT i%; ": "; x$(1); y(1); " "; x$(2); y(2); " "; x$(3); y(3); " "; x$(4); y(4); " "; x$(5); y(5); " "; x$(6); y(6); " "; x$(7); y(7); " "; x$(8); y(8); " "; x$(9); y(9) PRINT #1, i%; ": "; x$(1); y(1); " "; x$(2); y(2); " "; x$(3); y(3); " "; x$(4); y(4); " "; x$(5); y(5); " "; x$(6); y(6); " "; x$(7); y(7); " "; x$(8); y(8); " "; x$(9); y(9) GOTO 1 Вот первые 62 позиции. 1 : a 1 a 4 a 7 d 1 d 4 d 7 g 1 g 4 g 7 2 : a 1 a 4 a 7 d 1 d 4 d 7 g 2 g 4 g 7 3 : a 1 a 4 a 7 d 1 d 4 d 7 g 2 g 5 g 7 4 : a 1 a 4 a 7 d 1 d 4 d 7 g 2 g 5 g 8 5 : a 1 a 4 a 7 d 2 d 4 d 7 g 1 g 4 g 7 6 : a 1 a 4 a 7 d 2 d 4 d 7 g 2 g 4 g 7 7 : a 1 a 4 a 7 d 2 d 4 d 7 g 2 g 5 g 7 8 : a 1 a 4 a 7 d 2 d 4 d 7 g 2 g 5 g 8 9 : a 1 a 4 a 7 d 2 d 5 d 7 g 1 g 4 g 7 10 : a 1 a 4 a 7 d 2 d 5 d 7 g 2 g 4 g 7 11 : a 1 a 4 a 7 d 2 d 5 d 7 g 2 g 5 g 7 12 : a 1 a 4 a 7 d 2 d 5 d 7 g 2 g 5 g 8 13 : a 1 a 4 a 7 d 2 d 5 d 8 g 1 g 4 g 7 14 : a 1 a 4 a 7 d 2 d 5 d 8 g 2 g 4 g 7 15 : a 1 a 4 a 7 d 2 d 5 d 8 g 2 g 5 g 7 16 : a 1 a 4 a 7 d 2 d 5 d 8 g 2 g 5 g 8 17 : a 1 a 4 b 7 d 1 d 4 d 7 g 1 g 4 g 7 18 : a 1 a 4 b 7 d 1 d 4 d 7 g 2 g 4 g 7 19 : a 1 a 4 b 7 d 1 d 4 d 7 g 2 g 5 g 7 20 : a 1 a 4 b 7 d 1 d 4 d 7 g 2 g 5 g 8 21 : a 1 a 4 b 7 d 1 d 4 e 7 g 1 g 4 g 7 22 : a 1 a 4 b 7 d 1 d 4 e 7 g 1 g 4 h 7 23 : a 1 a 4 b 7 d 1 d 4 e 7 g 2 g 4 g 7 24 : a 1 a 4 b 7 d 1 d 4 e 7 g 2 g 4 h 7 25 : a 1 a 4 b 7 d 1 d 4 e 7 g 2 g 5 g 7 26 : a 1 a 4 b 7 d 1 d 4 e 7 g 2 g 5 g 8 27 : a 1 a 4 b 7 d 1 d 4 e 7 g 2 g 5 h 7 28 : a 1 a 4 b 7 d 1 d 4 e 7 g 2 g 5 h 8 29 : a 1 a 4 b 7 d 2 d 4 d 7 g 1 g 4 g 7 30 : a 1 a 4 b 7 d 2 d 4 d 7 g 2 g 4 g 7 31 : a 1 a 4 b 7 d 2 d 4 d 7 g 2 g 5 g 7 32 : a 1 a 4 b 7 d 2 d 4 d 7 g 2 g 5 g 8 33 : a 1 a 4 b 7 d 2 d 4 e 7 g 1 g 4 g 7 34 : a 1 a 4 b 7 d 2 d 4 e 7 g 1 g 4 h 7 35 : a 1 a 4 b 7 d 2 d 4 e 7 g 2 g 4 g 7 36 : a 1 a 4 b 7 d 2 d 4 e 7 g 2 g 4 h 7 37 : a 1 a 4 b 7 d 2 d 4 e 7 g 2 g 5 g 7 38 : a 1 a 4 b 7 d 2 d 4 e 7 g 2 g 5 g 8 39 : a 1 a 4 b 7 d 2 d 4 e 7 g 2 g 5 h 7 40 : a 1 a 4 b 7 d 2 d 4 e 7 g 2 g 5 h 8 41 : a 1 a 4 b 7 d 2 d 5 d 7 g 1 g 4 g 7 42 : a 1 a 4 b 7 d 2 d 5 d 7 g 2 g 4 g 7 43 : a 1 a 4 b 7 d 2 d 5 d 7 g 2 g 5 g 7 44 : a 1 a 4 b 7 d 2 d 5 d 7 g 2 g 5 g 8 45 : a 1 a 4 b 7 d 2 d 5 d 8 g 1 g 4 g 7 46 : a 1 a 4 b 7 d 2 d 5 d 8 g 2 g 4 g 7 47 : a 1 a 4 b 7 d 2 d 5 d 8 g 2 g 5 g 7 48 : a 1 a 4 b 7 d 2 d 5 d 8 g 2 g 5 g 8 49 : a 1 a 4 b 7 d 2 d 5 e 7 g 1 g 4 g 7 50 : a 1 a 4 b 7 d 2 d 5 e 7 g 1 g 4 h 7 51 : a 1 a 4 b 7 d 2 d 5 e 7 g 2 g 4 g 7 52 : a 1 a 4 b 7 d 2 d 5 e 7 g 2 g 4 h 7 53 : a 1 a 4 b 7 d 2 d 5 e 7 g 2 g 5 g 7 54 : a 1 a 4 b 7 d 2 d 5 e 7 g 2 g 5 g 8 55 : a 1 a 4 b 7 d 2 d 5 e 7 g 2 g 5 h 7 56 : a 1 a 4 b 7 d 2 d 5 e 7 g 2 g 5 h 8 57 : a 1 a 4 b 7 d 2 d 5 e 8 g 1 g 4 g 7 58 : a 1 a 4 b 7 d 2 d 5 e 8 g 2 g 4 g 7 59 : a 1 a 4 b 7 d 2 d 5 e 8 g 2 g 5 g 7 60 : a 1 a 4 b 7 d 2 d 5 e 8 g 2 g 5 g 8 61 : a 1 a 4 b 7 d 2 d 5 e 8 g 2 g 5 h 7 62 : a 1 a 4 b 7 d 2 d 5 e 8 g 2 g 5 h 8 |