/usr/share/axiom-20170501/input/loop.input is in axiom-test 20170501-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 | -- Input for page BasicLoops
)clear all
p := 2^(2^3) + 1
repeat if prime?(p := p + 1) then leave
p
repeat if prime?(p := p + 1) then leave p
-- Input for page NestedLoops
)clear all
for i in 1..2 repeat for j in 3..4 repeat print [i,j]
i := 1
while i < 3 repeat (for j in 3..4 repeat print [i,j]; i := i + 1)
-- Input for page ParallelLoops
)clear all
for i in 1..5 for j in 11..20 repeat print [i,j]
for i in 1..5 for j in 11.. | even? j repeat print [i,j]
for i in 1.. for j in 11.. | even? j while i < 6 repeat print [i,j]
-- Input for page Loops
)clear all
i := 2
repeat (print (i := 2^i; if i > 10 then leave))
for j in 1..5 repeat print (i := j^i)
while i < 1000 repeat print (i := 2^i)
for i in 1.. while i < 1000 repeat print [j,": ",i := 2^i]
for j in 1..4 repeat for i in 2..4 repeat print [i,"^",j," = ",i^j]
-- Input for page ForLoops
)clear all
for i in 0..10 repeat print (i^3)
for i in 0..10 by 2 repeat print (i^3)
for i in 10..0 by -2 repeat print (i^3)
for i in 0..10 | even? i repeat print (i^3)
for i in 0.. by 2 repeat (i^3)
|