Evaluate binomial coefficients: Difference between revisions
Content added Content deleted
(Add Commodore BASIC solution) |
(add gwbasic) |
||
Line 1,205: | Line 1,205: | ||
{{Out}} |
{{Out}} |
||
<pre>10</pre> |
<pre>10</pre> |
||
=={{header|GW-BASIC}}== |
|||
<lang gwbasic>10 REM BINOMIAL CALCULATOR |
|||
20 INPUT "N? ", N |
|||
30 INPUT "P? ", P |
|||
40 GOSUB 70 |
|||
50 PRINT C |
|||
60 END |
|||
70 C = 0 |
|||
80 IF N < 0 OR P<0 OR P > N THEN RETURN |
|||
90 IF P < N\2 THEN P = N - P |
|||
100 C = 1 |
|||
110 FOR I = N TO P+1 STEP -1 |
|||
120 C=C*I |
|||
130 NEXT I |
|||
140 FOR I = 1 TO N-P |
|||
150 C=C/I |
|||
160 NEXT I |
|||
170 RETURN</lang> |
|||
=={{header|Haskell}}== |
=={{header|Haskell}}== |