develooper Front page | perl.perl6.language | Postings from April 2005

Re: Closure/block/sub multiplier /// Win32 module for Perl6

Thread Previous | Thread Next
From:
Larry Wall
Date:
April 20, 2005 12:42
Subject:
Re: Closure/block/sub multiplier /// Win32 module for Perl6
Message ID:
20050420194147.GH766@wall.org
On Wed, Apr 20, 2005 at 03:35:13PM -0400, Aaron Sherman wrote:
: On Wed, 2005-04-20 at 15:15, Patrick R. Michaud wrote:
: > On Wed, Apr 20, 2005 at 12:00:22PM -0700, Larry Wall wrote:
: 
: > > Perl 6 culture might feebly try to discourage the redefinition of truth.
: > 
: > Hmm, and here I was thinking that the culture was rapidly evolving
: > towards "There Is More Than One Way To Define It".  :-)
: 
: I would suggest that it's been more of, 
: 
: perl -nle 'push @{$x{uc substr($_,0,1)}}, $_;END{p("TMTOWTDI",\%x)}sub p {my $a=shift;my $h=shift; my $w=shift;$w=[] unless $w;my $letter = substr($a,0,1);$a=substr($a,1);foreach my $word (@{$h->{$letter}}){ if ($a) {p($a,$h,[@$w,$word])} else {print join " ", @$w, $word} }}' /usr/share/dict/words
: 
: But, what do I know? ;-)

Dude, nowadays we're trying to make Perl 6 more Unicode aware, not
less; /usr/share/dict/words is so, like, monocultural, and stuff.

Larry

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