プログラムが140文字以内かをチェックするプログラム
30分プログラム、その697。プログラムが140文字以内かをチェックするプログラム。
最近、140文字以内でプログラムを書くのがはやっているらしいです。とりあえず、140文字以内かどうかをチェックするプログラムを書いてみましょう。
使い方
$ perl byte-checker.pl byte-checker.pl OK(98)
ソースコード
$n = 0; while(<>){ $n += length }; if($n <= 140){ print "OK($n)\n"; } else { print "NG($n)\n"; };