2008-10-15 JOI2007予選 問題2@Perl(-10) 100articles Programming TodaysJOI Perlでワンライナー。ちなみにインタプリタに-l引数を与えていいならあと2bytes減らせる。もっと減らせるという人いたら教えてー! #!/usr/bin/perl for(<>){$a[$_]=1}for(1..30){print$_.$/if(!$a[$_])}