こんなコードを書いても動いちゃうPerlってステキ。 join '',map { $_ ? '■' : '□' } split //,sprintf "%b",$s; 関数を繋ぐときに、括弧はおろか、なんの記号もいらないだなんて・・・。

30分プログラム、その619。http://gauc.no-ip.org/awk-users-jp/blis.cgi/DoukakuAWK_179にインスパイアされて、バイナリクロックをやってみよう。どういうのを作るかは、結果を見てもらったほうが早いと思う。 21:51:17 $ perl binary-clock.pl ■□■□■ ■■□□■…