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 2025-08-11 18:05:26 -07:00
parent 4d5544505c
commit 4924dd0264
3073 changed files with 55820 additions and 4408 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Task/Loop-over-multiple-arrays-simultaneously/Pluto/loop-over-multiple-arrays-simultaneously.pluto Normal file
View file

@ -0,0 +1,6 @@
a = {'a','b','c'}
b = {'A','B','C'}
c = {1,2,3}
for i = 1,#c do
io.write(a[i],b[i],c[i],'\n')
end

10
Task/Loop-over-multiple-arrays-simultaneously/REBOL/loop-over-multiple-arrays-simultaneously.rebol Normal file
View file

@ -0,0 +1,10 @@
;; Define the three series
list1: [a b c]
list2: [A B C]
list3: [1 2 3]
;; Iterate over them in parallel by index
repeat i length? list1 [
;; pick returns the i-th element
print rejoin [list1/:i list2/:i list3/:i]
]

15
Task/Loop-over-multiple-arrays-simultaneously/TAV/loop-over-multiple-arrays-simultaneously.tav Normal file
View file

@ -0,0 +1,15 @@
x =: 1, 2, 3, 4
y =: 'a', 'b', 'c'
\ create z as row with keys from -1 to 3
z =: new row
?# i =: from -1 upto 3
z[i] =: i+4
?# i =: tuple x give keys
print i, x[i], y[i], z[i]
print ''
?# i =: row z give keys
print i, x[i], y[i], z[i]
print ''
?# i =: from 0 upto 4
print i, x[i], y[i], z[i]