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 2023-10-02 18:11:16 -07:00
parent 796d366b97
commit 35bcdeebf8
504 changed files with 7045 additions and 610 deletions
Download patch file Download diff file Expand all files Collapse all files

18
Task/Multi-dimensional-array/Quackery/multi-dimensional-array-3.quackery Normal file
View file

@ -0,0 +1,18 @@
[ swap nested
over 1 swap
witheach *
of
2 pack ] is array ( x [ --> [ )
[ 0 peek ] is [layout] ( [ --> [ )
[ 1 peek size ] is [size] ( [ --> n )
[ swap unpack
unrot [a]-> peek ] is [peek] ( [ a --> x )
[ swap unpack
dip [ tuck [a]-> ]
rot dip
[ swap poke ]
swap 2 pack ] is [poke] ( x a [ --> a )