PRINT
PRINT "  数列： １ ２ ３ ４ ５ ６  の全ての項を置換する。"
PRINT "そのとき、巡回置換になっている場合の数は？"
PRINT
LET X=0
FOR a=2 TO 6      ! 1→a a→b b→c c→d d→e e→1
   FOR b=2 TO 6
      IF b=a THEN GOTO 50
      FOR c=2 TO 6
         IF c=a OR c=b THEN GOTO 40
         FOR d=2 TO 6
            IF d=a OR d=b OR d=c THEN GOTO 30
            FOR e=2 TO 6
               IF e=a OR e=b OR e=c OR e=d THEN GOTO 20
               PRINT a*10^5+b*10^(6-a)+c*10^(6-b)+d*10^(6-c)+e*10^(6-d)+10^(6-e);
               LET X=X+1
20             NEXT e
30          NEXT d
40       NEXT c
50    NEXT b
   NEXT a
   PRINT
   PRINT
   PRINT "以上、";X;"通り"
   PRINT
END