Evaluate binomial coefficients: Difference between revisions
m
→{{header|360 Assembly}}: Superfluous blanks suppressed
PatGarrett (talk | contribs) (→{{header|360 Assembly}}: Section added) |
PatGarrett (talk | contribs) m (→{{header|360 Assembly}}: Superfluous blanks suppressed) |
||
Line 15:
{{trans|ABAP}}
Very compact version.
<lang 360asm>* Evaluate binomial coefficients - 29/09/2015▼
▲* Evaluate binomial coefficients - 29/09/2015
BINOMIAL CSECT
USING BINOMIAL,R15 set base register
Line 39 ⟶ 38:
PG DS CL12 buffer
YREGS
END BINOMIAL</lang>
{{out}}
<pre>
210
</pre>
=={{header|ABAP}}==
| |||