#!perl -ap056
$s=$t=0;@n=map{$t+=($s+=@q=/\w/g,$_.=$"x(3-tr)))c),$z=pack A.y)))c,lc=~y)aeiouy)).v47.@q);$z}@F;s@(.{57})..[^.].+@$1...@,$_=@F.": $_
$t/$s: @n[0..-1+split/[. ]+/]
",s, +$,,mg if$_="@F"
|
I cannot bear to see `/anick ahead of me. This is the last shot in my locker, however, as I am all out of ideas.
#!perl -ap056
$s=$t=0;@n=map{$t+=($s+=@q=/\w/g,$_.=$"x(3-tr)))c),$z=pack A.y)))c,lc=~y)aeiouy)).v47.@q);$z}@F;s, $,,,s@(.{57}).{4,}@$1...@,$_=@F.": $_
$t/$s: @n[0..-1+split/[. ]+/]
",s, +$,, if$_="@F"
|
Broken 200 at last! Fancy not thinking of pack until Thursday. :-(
#!perl -ap056
@n=map{$t+=($s+=@q=/\w/g,
$_.=$"x(3-length),
$z=pack A.y)))c,lc=~y)aeiouy)).v47.@q);
$z}@F;
s, $,,,s@(.{57}).{4,}@$1...@,$_=@F.($s=$t=": $_
$t/$s: @n[0..-1+split/[. ]+/]
"),s, +$,, if$_="@F"
|
In tpr01, I aimed for 5 strokes from the leader; in tpr02 (won by our esteemed chief referee), I aimed for 10 strokes from the leader; in tpr03, I aimed for 20 strokes from the leader; and in tpr04 I am aiming for 40 strokes from the leader. :-( Breaking 200 is enough for me in this game (unless `/anick sneaks ahead of me, of course ;).
#!perl -an056
@n=map{$t+=($s+=@q=/\w/g,
$_.=$"x(3-($l=y)))c)),
$z=lc=~y)aeiouy)).v47.@q);
$z,$".$"x($l-length$z)}@F;
s, $,,,s@(.{57}).{4,}@$1...@,print@F.": $_
$t/$s: ",@n[0..-2+2*split/[. ]+/],$s=$t="
"if$_="@F"
|
Most pornographic books are cleaner than this program. I can see a dieting `/anick looming in my rear-view mirror and I am quaking with fear.
#!perl -an056
@n=map{$t+=($s+=$c=s)\w)$&)g,
$_.=$"x(3-($l=y)))c)),
$z=lc=~y)aeiouy))."/$c");
$z,$".$"x($l-length$z)}@F;
s, $,,,s@(.{57}).{4,}@$1...@,print@F.": $_
$t/$s: ",@n[0..-2+2*split/[. ]+/],$s=$t="
"if$_="@F"
|
Stephen Turner is right; even the tiniest of hints can make a vast difference in a golf game. Three nano-seconds after Amir asked for the underscore clarification, I changed [^_\W] to \w, saving 4 strokes. Thanks Amir! :) I did (and still do) plan to study the rules with a fine-tooth comb tonight, so I probably would have found this one anyway at that time.
#!perl -ap056
$t=$s=$g=v9;
@n=map{$t+=$v=lc=~y;aeiouy;;;$s+=$c=s;\w;$&;g;
$_.=$"x(3-($l=y)))c));
$g.($z="$v/$c").""x($g=$"x($l-length$z))}@F;
s, $,,,s,(.{57})....+,$1...,,$_=@F.": $_
$t/$s:@n[0..-1+split/[. ]+/]
"if$_="@F"
|
You may be wondering why I am leaving 4 unnecessary newlines. Well, the most satisfying experience in golf, unquestionably, is to come from behind in the last hour to pip the `/anick by a single stroke. You might call me devious, even fiendish, but I want that 4-stroke cushion so that if I am 3 strokes behind `/anick with an hour to go, I can move ahead of him simply by deleting my carefully hoarded newlines.
#!perl -ap056
$t=$s=$y=v9;
@n=map{$t+=$v=lc=~y;aeiouy;;;$s+=$c=s;[^_\W];$&;g;
$_.=$"x(3-($l=y)))c));
$y.($z="$v/$c").""x($y=$"x($l-length$z))}@F;
$_="@F";s; +$;;;s;(.{57})....+;$1...;;$_=@F.": $_
$t/$s:@n[0..-1+split/[. ]+/]
"if@F
|
#!perl -p056
$t=$s=$y=v9;
@n=map{$t+=$v=y;aeiouyAEIOUY;;;$s+=$c=y;a-zA-Z0-9;;;
$_.=$"x(3-($l=y)))c));
$y.($z="$v/$c").""x($y=$"x($l-length$z))}@x=/\S+/g;
$_="@x";s; +$;;;s;(.{57})....+;$1...;;$_=@x.": $_
$t/$s:@n[0..(@==/[^. ]+/g)-1]
"if@x
|
#!perl -n056
$t=$s=@n=();$x=$y=v9;
$l=y,,,c,$t+=$v=y,aeiouyAEIOUY,,,$s+=$c=y,a-zA-Z0-9,,,
$z="$v/$c",$_=$x.$_,$x=$"x(3-$l),
push(@n,$y.$z),$y=$"x($l-length$z)for@x=/\S+/g;
$_="@x";s;(?<=.{58})....+;...;;@x&&print~~@x,":$_
$t/$s:@n[0..(@==/[^. ]+/g)-1]
"
|