FUNCTION COMBINI(n,r)
   LET C=1
   FOR i=1 TO r
      LET C=C*(n-i+1)/i
   NEXT i
   LET COMBINI=C
END FUNCTION

PRINT
LET C=1
FOR i=10 TO 1 STEP -1
   LET C=C*i
NEXT i
PRINT "０〜９ のカードを横１列に並べる場合の数（順列）"
PRINT "     10! =";C;"=";FACT(10);"= FACT(10)"
PRINT
LET D=1
FOR i=10 TO 7 STEP -1
   LET D=D*i
NEXT i
PRINT "０〜９ のカードのうち４つを選んで横１列に並べる場合の数 (順列）"
PRINT "     10P4 =";D;"=";FACT(10)/FACT(10-4);"= 10!/(10-4)! =";PERM(10,4);"= PERM(10,4)"
PRINT
LET E=1
FOR i=4 TO 1 STEP -1
   LET E=E*i
NEXT i
PRINT "０〜９ のカードのうち４つを選ぶ場合の数（組み合わせ）"
PRINT "     10C4 =";D/E;"=";COMB(10,4);"= COMB(10,4) =";COMBINI(10,4)
PRINT
END