Re: Seussian Perl

use v5.10;
@hat=split/ /,<DATA>;
while(@hat){
  ($hat=>$littlecat)=splice@hat,0,2;
  $littlecat{$hat}=$littlecat>$littlecat{$hat}?$littlecat:$littlecat{$
+hat};
}
say+join" ",map"$_ $littlecat{$_}",sort{$littlecat{$b}<=>$littlecat{$a
+}}keys%littlecat;
__DATA__
one.fish 1 blue.fish -20 one.fish 0 blue.fish -1 blue.fish 0 fish-red.
+fish ,and one.fish 2
[download]

package Cow { use Moo; has name => (is => 'lazy', default => sub { 'Mooington' }) } say Cow->new->name

Comment on Re: Seussian Perl Download Code

Replies are listed 'Best First'.
Re^2: Seussian Perl by hdb (Monsignor) on Apr 11, 2013 at 09:06 UTC
Small proposal: `@hat=split/ /,<<THAT; one.fish 1 blue.fish -20 one.fish 0 blue.fish -1 blue.fish 0 fish-red. +fish ,and one.fish 2 THAT` [download] instead of __DATA__ segment. Thanks a lot for adding Seussian data!	[reply] [d/l]