home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / maths / progs / maths1 / Brian / bico < prev    next >
Encoding:
Text File  |  1989-07-20  |  179 b   |  11 lines
  1. DEFFNbico(N%,R%)
  2. LOCAL M%
  3. IF R%=0 THEN =1
  4. IF R%>N% THEN PRINT "ERROR: R%>N% IN FACTORIAL": STOP
  5. IF 2*R% > N% THEN R% = N%-R%
  6. M%=1
  7. FOR I% = 1 TO R%
  8. M% = M% * (N%-I%+1)/I%
  9. NEXT
  10. =M%
  11.