All done! I always aim to beat what Ron Kimball does in an hour. But I need the whole week! One day and I'm always at the back of the pack. But I had fun playing!!!
#!perl
$/='';$_=join'',<>;while($_){my($w,@x,$p,$u,$c);s/\s+/ /g;s/^ ?(.+?\.) ?|$//;map{$c++;$u+=@v=/[aeiouy]/gi;$p+=@n=/\w/g;$k=y///c-($q=@v."/".@n)=~y///c;$w.="$_ "." "x-$k;push(@x,$q." "x$k);$w=~s/(.{57})([^.]{3}|\.{3}).*/$1.../}split/ /,$1;$w=~s/((.*?)[ .]*?) *$/$1/;$#x=-1+split/ +/,$2;$x[-1]=~s/ //g;print"$c: $w
$u/$p: @x
"}
|
Still whittling ...
#!perl
$/='';$_=join'',<>;while($_){my($w,@x,$p,$u,$c);s/\s+/ /g;s/^ ?(.+?\.) ?|$//;for(split/ /,$1){$c++;$u+=@v=/[aeiouy]/gi;$p+=@n=/\w/g;$k=y///c-($q=@v."/".@n)=~y///c;$w.="$_ "." "x-$k;push(@x,$q." "x$k);$w=~s/(.{57})([^.]{3}|\.{3}).*/$1.../}$w=~s/((.*?)[ .]*?) *$/$1/;$#x=-1+split/ +/,$2;$x[-1]=~s/ *$//;print"$c: $w
$u/$p: @x
"}
|
What was I thinking??? Only 20 strokes to 35th place!
#!perl
$/='';$_=join'',<>;while($_){my($w,@x,$p,$u,$c);s/\s+/ /g;s/^ ?(.+?\.) ?|$//;for(split/ /,$1){$c++;$u+=@v=/[aeiouy]/gi;$p+=@n=/\w/g;$q=@v."/".@n;$k=y///c-$q=~y///c;$w.="$_ "." "x-$k;push(@x,$q." "x$k);$w=~s/^(.{57})([^.]{3}|\.{3}).*/$1.../}$w=~s/(.*?)([ .]*?) *$/$1$2/;$#x=-1+split/ +/,$1;$x[-1]=~s/ *$//;print"$c: $w
$u/$p: @x
"}
|
Foolishly pecking away!
#!perl
$/='';$_=join'',<>;while($_){my($w,@x,$p,$u,$c);s/\s+/ /g;s/^ ?(.+?\.) ?|$//;for(split/ /,$1){$c++;$u+=@v=/[aeiouy]/gi;$p+=@n=/\w/g;$q=@v."/".@n;@y=/./g;@z=$q=~/./g;$w.="$_ "." "x(@z-@y);push(@x,$q." "x(@y-@z));$w=~s/^(.{57})([^.]{3}|\.{3}).*/$1.../}$w=~s/(.*?)([ .]*?) *$/$1$2/;$#x=-1+split/ +/,$1;$x[-1]=~s/ *$//;print"$c: $w
$u/$p: @x
"}
|
Thanks to Aer Lingus for taking up my whole week! Stuck in the pubs of Ireland with out a computer. I cried in my Guinness! There goes my y-index to beginner level again!
#!perl
$/='';$_=join'',<>;while($_){my($w,@x,$p,$u,$c);s/\s+/ /g;s/^ | $//;s/.+?\.|$//;for(split/ /,$&){$c++;$u+=@v=/[aeiouy]/gi;$p+=@n=/\w/g;$q=@v."/".@n;@y=/./g;@z=$q=~/./g;$w.="$_ "." "x(@z-@y);push(@x,$q." "x(@y-@z));$w=~s/^(.{57})([^.]{3}|\.{3}).*/$1.../}$w=~s/(.*?)([ .]*?) *$/$1$2/;$#x=-1+split/ +/,$1;$x[-1]=~s/ *$//;print"$c: $w
$u/$p: @x
"}
|