SQR by pooq(nn)

foreach m\ n [read stdin] {puts [expr ($m<$n)-(3*$m+1-$n)*$n*~$n/6]}

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

download

return to the top page