Mosaic matrix: Difference between revisions
Content added Content deleted
(Add Factor) |
m (→{{header|RPL}}: HP-49 version) |
||
Line 1,443: | 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: |
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 |
≪ 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}}== |
=={{header|Sidef}}== |