PRINT
PRINT "１から９の自然数をお好みの順番に入力してください。"
PRINT "    例： 6,8,3,1,9,4,2,7,5"
PRINT "           6 8 3"
PRINT "           1 9 4"
PRINT "           2 7 5   （ 9 は 空 を表す )"
PRINT "８パズル（ミニスライドパズル）を解くことができるかどうか判定します。"
PRINT
DIM T(9),S(9)
INPUT PROMPT "１から９の自然数たち  ":T(1),T(2),T(3),T(4),T(5),T(6),T(7),T(8),T(9)
PRINT
PRINT "      ";T(1);T(2);T(3);"         1  2  3"
PRINT "      ";T(4);T(5);T(6);"   ⇒    4  5  6"
PRINT "      ";T(7);T(8);T(9);"         7  8  9"
PRINT
LET C=0
FOR i=1 TO 9
   IF T(i)=i THEN
      GOTO 10
   END IF
   FOR j=i TO 9
      IF T(j)=i THEN
         LET T(j)=T(i)
         LET C=C+1
      END IF
   NEXT j
10 NEXT i
   PRINT "最低";C;"回の互換を行うとこの置換は達成されます。"
   IF INT(C/2)=C/2 THEN
      PRINT "この置換は遇置換なので、この８パズルを解くことができます。"
   ELSE
      PRINT "この置換は奇置換なので、この８パズルは解くことができません。" 
   END IF
   PRINT
END