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