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

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

19
Task/Create-a-two-dimensional-array-at-runtime/Ursa/create-a-two-dimensional-array-at-runtime.ursa Normal file
View file

@ -0,0 +1,19 @@
decl int width height
out "width: " console
set width (in int console)
out "height: " console
set height (in int console)
decl int<><> twodstream
for (decl int i) (< i height) (inc i)
append (new int<>) twodstream
end for
for (set i 0) (< i height) (inc i)
decl int j
for (set j 0) (< j width) (inc j)
append 0 twodstream<i>
end for
end for
set twodstream<0><0> 5
out twodstream<0><0> endl console