Self-describing numbers: Difference between revisions
Content added Content deleted
m (→even faster: minor opt & comment) |
PatGarrett (talk | contribs) m (→{{header|360 Assembly}}: a correction) |
||
Line 45: | Line 45: | ||
S R1,=A(CK) number of blanks |
S R1,=A(CK) number of blanks |
||
LR R3,R1 " |
LR R3,R1 " |
||
LA R9,L'CK length(ck) |
LA R9,L'CK length(ck) |
||
SR R9,R1 length of the number |
SR R9,R1 length of the number |
||
LA R6,1 i=1 |
LA R6,1 i=1 |
||
Line 100: | Line 100: | ||
3211000 |
3211000 |
||
</pre> |
</pre> |
||
=={{header|Ada}}== |
=={{header|Ada}}== |