DIM T(4)
PRINT
PRINT "４人がいて、赤  青  緑  黄  の４色の ジャケット と ズボン がある。"
PRINT "４人とも ジャケット と ズボン が色違いになる場合の数は？"
PRINT
PRINT "    Ａ君 Ｂ君 Ｃ君 Ｄ君"
PRINT
LET X=0
FOR a=1 TO 4
   FOR b=1 TO 4
      FOR c=1 TO 4
         FOR d=1 TO 4
            IF (a-b)*(a-c)*(a-d)*(b-c)*(b-d)*(c-d)=0 THEN GOTO 10
            LET T(1)=a
            LET T(2)=b
            LET T(3)=c
            LET T(4)=d
            FOR i=1 TO 4
               IF T(i)=i THEN GOTO 10
            NEXT i
            LET X=X+1
            PRINT USING "##":X;
            PRINT ":   1    2    3    4"
            PRINT "     ";T(1);"  ";T(2);"  ";T(3);"  ";T(4)
            PRINT
10          NEXT d
         NEXT c
      NEXT b
   NEXT a
   PRINT "以上は、ジャケットが、Ａ君は赤、Ｂ君は青、Ｃ君は緑、Ｄ君は黄  の場合でした。"
   PRINT "したがって答えは、（ 4 × 3 × 2 × 1 ）×";x;" ＝ ";24*x;" 通り になります。"
   PRINT
END



###############################################################################



DIM T1(4),T2(4)
PRINT
PRINT "４人がいて、赤　青　緑　黄　の４色の ジャケット ズボン シューズ がある。"
PRINT "４人とも ジャケット ズボン シューズ が色違いになる場合の数は？"
PRINT
PRINT "    Ａ君 Ｂ君 Ｃ君 Ｄ君"
LET X=0
FOR a=1 TO 4
   FOR b=1 TO 4
      FOR c=1 TO 4
         FOR d=1 TO 4
            FOR e=1 TO 4
               FOR f=1 TO 4
                  FOR g=1 TO 4
                     FOR h=1 TO 4
                        IF (a-b)*(a-c)*(a-d)*(b-c)*(b-d)*(c-d)=0 THEN GOTO 10
                        IF (e-f)*(e-g)*(e-h)*(f-g)*(f-h)*(g-h)=0 THEN GOTO 10
                        LET T1(1)=a
                        LET T1(2)=b
                        LET T1(3)=c
                        LET T1(4)=d
                        LET T2(1)=e
                        LET T2(2)=f
                        LET T2(3)=g
                        LET T2(4)=h
                        FOR i=1 TO 4
                           IF T1(i)=i THEN GOTO 10
                           IF T2(i)=i THEN GOTO 10
                           IF T1(i)=T2(i) THEN GOTO 10
                        NEXT i
                        LET X=X+1
                        PRINT USING "##":X;
                        PRINT ":   1    2    3    4"
                        PRINT "     ";T1(1);"  ";T1(2);"  ";T1(3);"  ";T1(4)
                        PRINT "     ";T2(1);"  ";T2(2);"  ";T2(3);"  ";T2(4)
                        PRINT
10                      NEXT h
                     NEXT g
                  NEXT f
               NEXT e
            NEXT d
         NEXT c
      NEXT b
   NEXT a
   PRINT "以上は、ジャケットが、Ａ君は赤、Ｂ君は青、Ｃ君は緑、Ｄ君は黄  の場合でした。"
   PRINT "したがって答えは、（ 4 × 3 × 2 × 1 ）×";x;" ＝ ";24*x;" 通り になります。"
   PRINT
END