FOR N1=1 TO 4 FOR N2=1 TO 4 IF N1==N2 THEN CONTINUE FOR N3=1 TO 4 IF N1==N3 || N2==N3 THEN CONTINUE FOR N4=1 TO 4 IF N1==N4 || N2==N4 || N3==N4 THEN CONTINUE ?N1;N2;N3;N4 NEXT NEXT NEXT NEXT
このコメントはネタバレを含んでいます。
say2020/5/28 13:05 ネタバレ◆1nbKtD/tFu04
DIM ANS[24] VAR A$="1234" VAR I,CNT WHILE CNT<24 SWAP A$[RND(4)],A$[RND(4)] FOR I=0 TO 23 IF !ANS[I] THEN ANS[I]=VAL(A$):INC CNT IF ANS[I]==VAL(A$) THEN BREAK NEXT WEND