以前プチコン3号で作った、ひたすら素数を言っていくゲームが面白かったので、![](https://blogimg.goo.ne.jp/user_image/0f/17/47e04c99aa30c2a23e272ded940abc9a.jpg?1671249111)
![](https://blogimg.goo.ne.jp/user_image/59/58/db10b61f5a465f8a86d87bef5f2f495c.jpg?1671249740)
CLS
![](https://blogimg.goo.ne.jp/user_image/57/ca/5bf944224aeea9ad209115d7e6433ee2.jpg?1671250165)
![](https://blogimg.goo.ne.jp/user_image/64/7f/7951310a6310dcb5d1d89eb1a8f1c967.jpg?1671250179)
![](https://blogimg.goo.ne.jp/user_image/26/7a/0ebf8db13f58a745d811a89186bc2f8a.jpg?1671250195)
![](https://blogimg.goo.ne.jp/user_image/0f/17/47e04c99aa30c2a23e272ded940abc9a.jpg?1671249111)
@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
さらに改造してみた。コンピューターがひたすら素数か、素数でないかを判断する。
![](https://blogimg.goo.ne.jp/user_image/59/58/db10b61f5a465f8a86d87bef5f2f495c.jpg?1671249740)
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
![](https://blogimg.goo.ne.jp/user_image/57/ca/5bf944224aeea9ad209115d7e6433ee2.jpg?1671250165)
![](https://blogimg.goo.ne.jp/user_image/64/7f/7951310a6310dcb5d1d89eb1a8f1c967.jpg?1671250179)
![](https://blogimg.goo.ne.jp/user_image/26/7a/0ebf8db13f58a745d811a89186bc2f8a.jpg?1671250195)