develooper 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


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About