RANDOMIZE
PRINT
PRINT "百人一首  坊主めくり  １０００番勝負"
PRINT
INPUT PROMPT "プレーヤーの人数？  ":n
PRINT
DIM F(n),JT(n),TT(n),JJ(n)
MAT JT=ZER
MAT TT=ZER
FOR j=1 TO 1000
   MAT F=ZER
   MAT JJ=ZER
   LET T1=12 !坊主の数
   LET T2=21 !姫の数
   LET M=100 !総カード数
   LET P1=T1/M
   LET P2=1-T2/M
   FOR i=1 TO 100
      LET R=RND
      FOR k=1 TO n
         IF MOD(i,n)=k-1 THEN
            IF R<P1 THEN
               LET ZZ=ZZ+F(k)+1
               LET F(k)=0
            ELSEIF R>=P1 AND R<P2 THEN
               LET F(k)=F(k)+1
            ELSE 
               LET F(k)=F(k)+1+ZZ
               LET ZZ=0
            END IF
         END IF
      NEXT k
      IF i=100 THEN GOTO 10
      IF R<P1 THEN
         LET T1=T1-1
         LET P1=T1/(M-i)
      ELSEIF R>=P2 THEN
         LET T2=T2-1
         LET P2=1-T2/(M-i)
      END IF
   NEXT i
10    CALL JNBN(F,n,JJ)
      FOR i=1 TO n
         IF JJ(i)=1 THEN
            LET TT(i)=TT(i)+1
         END IF
      NEXT i
      FOR i=1 TO n
         LET JT(i)=JT(i)+n-JJ(i)
      NEXT i
      IF j<2 THEN
         PRINT "＜初戦の結果＞"
         FOR i=1 TO n
            PRINT "エントリーナンバー";i;"番さん： ";
            PRINT USING "###":F(i);
            PRINT "枚     ";n-JJ(i);"点獲得"
         NEXT i
         PRINT "誰のものでもない           ： ";
         PRINT USING "###":ZZ;
         PRINT "枚"
         FOR i=1 TO n
            IF JJ(i)=1 THEN
               PRINT "エントリーナンバー";i;"番さんが１番です。"
            END IF
         NEXT i
         PRINT
         PRINT
      END IF
   NEXT j
   FOR i=1 TO n
      PRINT "エントリーナンバー";i;"番さん： ";
      PRINT USING "####":JT(i);
      PRINT "点     １番になった回数";TT(i);"回"
   NEXT i
   PRINT
END

EXTERNAL SUB JNBN(Q(),v,jun())      ! 順番づけ
   FOR i=1 TO v
      LET jun(i)=1
      FOR j=1 TO v
         IF Q(i)<Q(j) THEN
            LET jun(i)=jun(i)+1
         END IF
      NEXT j
   NEXT i
END SUB