SQR by a

#!/usr/bin/perl\x0d
while(<STDIN>){\x0d
        $r=0;\x0d
        ($m,$n) = split(" ");\x0d
        while($m * $n > 0 ){\x0d
                $r += $m * $n;\x0d
                $m --;\x0d
                $n --;\x0d
        }\x0d
        print "$r\n";\x0d
}

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

download

return to the top page