2004-01-31 Lisp的Perlコーディング Memo Perl Lisp $buf=pack("C*", map { ord(getc(IN))^($_&0xff) } (0 .. $size-1)); foreachでもできるけど右辺に余計な変数がないのが美しい。TMTOWTDI。