PRINT
PRINT "４つの１以上の自然数たちのカルテット（ a, b, c, d )  "
PRINT "    a + b + c + d ＝ □           a + b + c + d ≦ □"
PRINT "    □ が ４ 〜 ２０ の場合"
PRINT "何通りの（ a, b, c, d ) があるか？"
PRINT 
LET m=4

FUNCTION gun(n)     ! COMB(n,m)
   IF n=m THEN
      LET gun=1
   ELSE
      LET gun=n*gun(n-1)/(n-m)    ! 漸化式
   END IF
END FUNCTION

FUNCTION fun(n)     ! COMB(n-1,m-1)
   IF n=m THEN
      LET fun=1
   ELSE
      LET fun=(n-1)*fun(n-1)/(n-m)    ! 漸化式
   END IF
END FUNCTION

PRINT  "          ＝               ≦"
FOR i=4 TO 20
   PRINT USING "##":i;
   PRINT " : ";
   PRINT USING "####":fun(i);
   PRINT " とおり     ";
   PRINT USING "#####":gun(i);
   PRINT " とおり"
NEXT i
PRINT
END



###############################################################################



PRINT
PRINT "４つの１以上の自然数たちのカルテット（ a, b, c, d )  "
PRINT "    a + b + c + d ＝ □           a + b + c + d ≦ □"
PRINT "    □ が ４ 〜 ２０ の場合"
PRINT "何通りの（ a, b, c, d ) があるか？"
PRINT 
LET m=4
PRINT  "          ＝               ≦"
FOR i=4 TO 20
   PRINT USING "##":i;
   PRINT " : ";
   PRINT USING "####":COMB(i-1,m-1);
   PRINT " とおり     ";
   PRINT USING "#####":COMB(i,m);
   PRINT " とおり"
NEXT i
PRINT
END