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

20
Task/Multi-dimensional-array/Klingphix/multi-dimensional-array.klingphix Normal file
View file

@ -0,0 +1,20 @@
include ..\Utilitys.tlhy
0 ( 4 3 2 ) dim pstack
5432 ( 4 3 2 ) set pstack
( 4 3 2 ) get ?
( 4 3 ) get %row !row
$row ?
$row 1 2 set !row
$row ?
$row ( 4 3 ) set
0 4 repeat ( 4 2 ) set
pstack
"End " input