PRINT
PRINT " 1234 と それぞれカップルになる数  →  創生総価値"
PRINT
DIM X(2,4321)
MAT X=ZER
LET Q=0
FOR a=1 TO 4
   FOR b=1 TO 4
      IF a-b=0 THEN GOTO 30
      FOR c=1 TO 4
         IF (a-c)*(b-c)=0 THEN GOTO 20
         FOR d=1 TO 4
            IF (a-d)*(b-d)*(c-d)=0 THEN GOTO 10
            LET Q=Q+1
            LET X(1,Q)=(a*10^3+b*10^2+c*10+d)
            LET X(2,Q)=ROUND(SQR(a)+SQR(2*b)+SQR(3*c)+SQR(4*d),10)
10          NEXT d
20       NEXT c
30    NEXT b
   NEXT a
   CALL sort(X,4321)
   FOR i=1 TO 4321
      IF X(2,i)<>0 THEN
         PRINT X(1,i);"  →  ";X(2,i)
      END IF
   NEXT i
   PRINT
   PRINT   
END

EXTERNAL SUB sort(a(,),m)
   FOR i=1 TO m-1
      FOR j=i+1 TO m
         IF a(2,i)>a(2,j) THEN
            LET t2=a(2,j) 
            LET a(2,j)=a(2,i)
            LET a(2,i)=t2
            LET t1=a(1,j) 
            LET a(1,j)=a(1,i)
            LET a(1,i)=t1
         END IF
      NEXT j
   NEXT i
END SUB