Evaluate binomial coefficients: Difference between revisions
→{{header|360 Assembly}}: Section added
(Added an Algol W sample) |
PatGarrett (talk | contribs) (→{{header|360 Assembly}}: Section added) |
||
Line 11:
* [[Pascal's triangle]]
{{Template:Combinations and permutations}}
=={{header|360 Assembly}}==
{{trans|ABAP}}
Very compact version.
<lang 360asm>
* Evaluate binomial coefficients - 29/09/2015
BINOMIAL CSECT
USING BINOMIAL,R15 set base register
SR R4,R4 clear for mult and div
LA R5,1 r=1
LA R7,1 i=1
L R8,N m=n
LOOP LR R4,R7 do while i<=k
C R4,K i<=k
BH LOOPEND if not then exit while
MR R4,R8 r*m
DR R4,R7 r=r*m/i
LA R7,1(R7) i=i+1
BCTR R8,0 m=m-1
B LOOP loop while
LOOPEND XDECO R5,PG edit r
XPRNT PG,12 print r
XR R15,R15 set return code
BR R14 return to caller
N DC F'10' <== input value
K DC F'4' <== input value
PG DS CL12 buffer
YREGS
END BINOMIAL
</lang>
{{out}}
<pre>
210
</pre>
=={{header|ABAP}}==
| |||