AtCoder Regular Contest 048 A - 階段の下 date: 2016-03-30 see also: https://beta.atcoder.jp/contests/arc048/tasks/arc048_a perl 31byte <>=~/ /;print$'-$`-($'*$`<0),$/ / /を$"(単一の空白文字)にすればさらに1byte縮む。(climpet氏の提出、%20氏の提出) 1位はbashからawkを呼んだ%20氏の提出の24byteだった。