Anonymous user
Input/Output for pairs of numbers: Difference between revisions
m
no edit summary
mNo edit summary |
mNo edit summary |
||
Line 435:
for (set i 0) (< i (size ints)) (set i (int (+ 2 i)))
out (int (+ ints<i> ints<(int (+ i 1))>)) endl console
end for</lang>
Networked version. Runs on port 20000.
<lang ursa>decl serverport sp
decl port p
sp.attach 20000
set p (sp.getconn)
decl int amount
set amount (in int p)
decl int<> ints
for (decl int i) (< i amount) (inc i)
decl string input
set input (in string p)
append (int (split input " ")<0>) (int (split input " ")<1>) ints
end for
out endl p
for (set i 0) (< i (size ints)) (set i (int (+ 2 i)))
out (int (+ ints<i> ints<(int (+ i 1))>)) endl p
end for</lang>
| |||