Mosaic matrix: Difference between revisions
m
→{{header|RPL}}: HP-49 version
(Add Factor) |
m (→{{header|RPL}}: HP-49 version) |
||
Line 1,443:
This stack-only one-liner can run only on HP-48G and newer models, due to the presence of the <code>∑LIST</code> instruction:
≪ DUP 2 →LIST DUP 0 CON SWAP SIGN '''DO''' DUP ∑LIST 2 MOD NOT PUTI '''UNTIL''' -64 FS? '''END''' DROP ≫ ‘<span style="color:blue">'''MOZTX'''</span>’ STO
HP-49 RPL version can do it even shorter:
≪ DUP 'NOT(I+J)MOD 2' LCXM →NUM ≫ ‘<span style="color:blue">'''MOZTX'''</span>’ STO
=={{header|Sidef}}==
| |||