Help for this page
#!/usr/bin/perl -w # how to (ab)use map use strict; ... map BEGIN{ $b=1 << (@_ = split//, "map") }
qw[ .map?()map ... *map{map{1}map {^)map{1}map ];
my $b = 8; ... $a = 0; print "\n" }
tr|map{}(/^?.*/)|1612a45368054|d; $_ = (++$a == 1 ? $b-- : 0) + hex $_; $_ = $a & 1 ? ' ' x $_ : '_/' x $_;
qw[ 8161644161 ... 0161216121a161 23416121a161 ];
#!/usr/bin/perl -w use strict; ... 0161216121a161 0161216121a161 23416121a161
www.com | www.net | www.org
No recent polls found