SQR by bk1e

while {[scan [gets stdin] %d%d x y]>0} {
set a 0
while {~$x&&~$y} {
incr a [expr {$x*$y}]
incr x -1
incr y -1
}
puts $a
}

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page