JOI2006予選1 問題1＠Perl(-54)

Perlなのでワンライナー挑戦。プログラムコード本体が92文字なので80文字をオーバーしてる。

しかし、左辺値tupleならともかく、三項演算子まで左辺値に使えるとか頭おかしい。今回はこれが役に立って良いコードになった。

これより短くなるんでしょうか。僕にはこれが限界です＞＜

#!/usr/bin/perl
$n=<>;$c=$d=0;for(1..$n){($a,$b)=split/ /,<>;$a<$b?$d:$c+=$a;$a>$b?$c:$d+=$b}print"$c $d\n";