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

Initial data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 72d218235f
commit f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Task/Loops-With-multiple-ranges/Picat/loops-with-multiple-ranges-1.picat Normal file
View file

@ -0,0 +1,3 @@
foreach(I in 1..3, J in 4..6, K in 7..9)
% ...
end

26
Task/Loops-With-multiple-ranges/Picat/loops-with-multiple-ranges-2.picat Normal file
View file

@ -0,0 +1,26 @@
go =>
Prod= 1,
Sum= 0,
X= +5,
Y= -5,
Z= -2,
One= 1,
Three= 3,
Seven= 7,
Ranges = [-Three..Three..3**3,
-Seven..X.. +Seven,
555..550-Y,
22..-Three..-28,
1927..1939,
X..Z..Y,
11**X..11**X + One
],
foreach(Range in Ranges, J in Range)
Sum := Sum + abs(J),
if abs(Prod) < 2**27, J != 0 then
Prod := Prod * J
end
end,
println(sum=Sum),
println(prod=Prod),
nl.

16
Task/Loops-With-multiple-ranges/Picat/loops-with-multiple-ranges-3.picat Normal file
View file

@ -0,0 +1,16 @@
% ...
foreach(J in [-Three..Three..3**3,
-Seven..X.. +Seven,
555..550-Y,
22..-Three..-28,
1927..1939,
X..Z..Y,
11**X..11**X + One
].flatten
)
Sum := Sum + abs(J),
if abs(Prod) < 2**27, J != 0 then
Prod := Prod * J
end
end,
% ...