Input/Output for pairs of numbers: Difference between revisions
Content deleted Content added
add AWK |
add Tcl |
||
Line 159:
puts do_stuff(a, b)
end</lang>
=={{header|Tcl}}==
<lang tcl>gets stdin n
while {$n > 0} {
if {[scan [gets stdin] "%d %d" a b] == 2} {
puts [expr {$a + $b}]
}
incr n -1
}</lang>
| |||