Front page | perl.perl5.porters |
Postings from January 2014
RE: Slowest JAPH ever?
Thread Previous
|
Thread Next
From:
vadim.konovalov
Date:
January 5, 2014 07:34
Subject:
RE: Slowest JAPH ever?
Message ID:
DC0095F744C45F45BDD43368AB46582C05784577@FR712WXCHMBA09.zeu.alcatel-lucent.com
> From: Father Chrysostomos [mailto:sprout@cpan.org]
http://perlmonks.org/?node_id=160587
a post from 2002,
print join ' ',map{$;='a';++$;for 0..$_;$;}
190468,482466754,285074,95568294
> $|=1;
> sub word($) {
> my $x = "a";
> for (1..shift) { $x++ }
> $x
> }
> print ucfirst word 190469;
> print " ";
> print lcfirst word 482466755;
> print " ";
> print ucfirst word 285075;
> print " ";
> print lcfirst word 95568295;
> print ",\n";
Thread Previous
|
Thread Next