2013-09-21から1日間の記事一覧

#!perl use strict; use warnings; my @ary = (); my $i1 = length scalar @ary; my $i2 = $i1 + $i1; my $i4 = $i2 + $i2; my $i8 = $i4 + $i4; my $i16 = $i8 + $i8; my $i32 = $i16 + $i16; my $i64 = $i32 + $i32; print chr($i64 + $i8), chr($i64 + $i…