aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2026-04-30 12:34:36 -04:00
parent 4bb20c9b71
commit cbaf4c4b64
12390 changed files with 318560 additions and 27248 deletions
Download patch file Download diff file Expand all files Collapse all files

12
Task/Bitmap/Oz/bitmap-1.oz
View file

@ -9,12 +9,12 @@ define
C = {Array.new 1 Height unit}
in
for Row in 1..Height do
C.Row := {Array.new 1 Width Init}
C.Row := {Array.new 1 Width Init}
end
array2d(width:Width
height:Height
contents:C)
height:Height
contents:C)
end
fun {Get array2d(contents:C ...) X Y}
@ -27,9 +27,9 @@ define
proc {Transform array2d(contents:C width:W height:H ...) Fun}
for Y in 1..H do
for X in 1..W do
C.Y.X := {Fun C.Y.X}
end
for X in 1..W do
C.Y.X := {Fun C.Y.X}
end
end
end