JOI2007予選 問題2@Perl(-10)

Perlワンライナー。ちなみにインタプリタに-l引数を与えていいならあと2bytes減らせる。

もっと減らせるという人いたら教えてー!

#!/usr/bin/perl
for(<>){$a[$_]=1}for(1..30){print$_.$/if(!$a[$_])}