素数 ２

以前プチコン３号で作った、ひたすら素数を言っていくゲームが面白かったので、

@INITIAL

CLS

DIM ANS[101]

FOR I=1 TO 100

ANS[I]=0

NEXT I

R=0

@SOSU

R=R+1

PRINT R

INPUT "つ目の素数 =";A

FOR I=1 TO 100

IF A==ANS[I] THEN PRINT "それはもう言いました":GOTO @END

NEXT I

FOR I=2 TO A-1

S=A MOD I

IF S==0 THEN PRINT "素数ではありません": GOTO @END

NEXT I

PRINT "素数です"

ANS[R]=A

GOTO @SOSU

@END

END

さらに改造してみた。コンピューターがひたすら素数か、素数でないかを判断する。

CLS

Q=0

@SOSU

Q=Q+1

PRINT_Q;"は　";

WAIT 100

FOR I=2 TO Q-1

S=Q MOD I

IF S==0 THEN PRINT "素数ではありません":GOTO @SOSU

NEXT I

PRINT "素数です"

GOTO @SOSU