Mosaic matrix: Difference between revisions
m
→{{header|Wren}}: Changed to Wren S/H
(→K: add) |
m (→{{header|Wren}}: Changed to Wren S/H) |
||
| (One intermediate revision by one other user not shown) | |||
Line 1,448:
=={{header|RPL}}==
'''Filling a matrix'''
≪ → n
≪ n DUP 2 →LIST 0 CON
1 n '''FOR''' r
1 n '''FOR''' c
r c 2 →LIST r c + 2 MOD NOT PUT
'''NEXT NEXT'''
≫ ≫ '<span style="color:blue">'''MOZTX'''</span>' STO
Line 1,463 ⟶ 1,465:
[ 0 1 0 1 ]]
</pre>
'''
« → n
« 1 n '''FOR''' j
Line 1,473:
n DUP 2 →LIST →ARRY
» » '<span style="color:blue">'''MOZTX'''</span>' STO
'''Direct approach'''
Latest RPL versions have a specific instruction to generate a matrix ruled by a formula.
≪ DUP 'NOT(I+J) MOD 2' LCXM →NUM ≫ '<span style="color:blue">'''MOZTX'''</span>' STO
Line 1,504 ⟶ 1,506:
=={{header|Wren}}==
===Text based===
<syntaxhighlight lang="
for (i in 0...n) {
for (j in 0...n) {
Line 1,530 ⟶ 1,532:
{{libheader|DOME}}
{{libheader|Go-fonts}}
<syntaxhighlight lang="
import "graphics" for Canvas, Color, Font, ImageData
| |||