OPTION ARITHMETIC decimal_HIGH

FUNCTION PP(a,b)
   LET K=1
   FOR i=1 TO b
      LET K=K*(a-i+1)
   NEXT i
   LET PP=K
END FUNCTION

FUNCTION  KAIJ(a)
   LET C=1
   FOR i=1 TO a
      LET C=C*i
   NEXT i
   LET KAIJ=C
END FUNCTION

FUNCTION gun3(n)
   IF n=3 THEN
      LET gun3=1
   ELSE
      LET gun3=n*gun3(n-1)/(n-3)    ! 漸化式
   END IF
END FUNCTION

FUNCTION gun50(m)
   IF m=50 THEN
      LET gun50=1
   ELSE
      LET gun50=m*gun50(m-1)/(m-50)    ! 漸化式
   END IF
END FUNCTION

PRINT
PRINT "組み合わせ： 場合の数"
PRINT
PRINT "COMB(8,3)"

PRINT PP(8,3)/PP(3,3)
PRINT PERM(8,3)/PERM(3,3)
PRINT COMB(8,3)
PRINT FACT(8)/(FACT(5)*FACT(3))
PRINT KAIJ(8)/(KAIJ(5)*KAIJ(3))
PRINT gun3(8)
PRINT
PRINT "COMB(150,50)"
PRINT PP(150,50)/PP(50,50)
PRINT PERM(150,50)/PERM(50,50)
PRINT COMB(150,50)
PRINT FACT(150)/(FACT(100)*FACT(50))
PRINT KAIJ(150)/(KAIJ(100)*KAIJ(50))
PRINT gun50(150)
PRINT
END