An incremental tie-break edge. My last post? Will I remain Top 20? I will check the leaderboard the first chance I get! Thanks for a great contest! Lots of action!
#!perl -lap
map{s/te*n/+10/;s/fo/d/;y/ysieth/0/d;s/lv.*/o+10/;s/[bla][^l]*/000/g&&s/\D*/)*1$'+(/;s/^(\w)[a-z]*/+$+/;y/zowrdfxvgn/0-9/;s/.u/*100/}@F;$_=eval"(@F)";s/.(?=(...){1,}\b)/$&,/g
|
Still 19th, but 15th is now 10 strokes away!
#!perl -lap
map{s/te*n/z+10/;s/fo/d/;y/ysieth/0/d;s/lv.*/o+10/;s/[bla][^l]*/000/g&&s/\D*/)*1$'+(/;s/(\w)[a-z]*/+$+/;y/zowrdfxvgn/0-9/;s/.u/*100/}@F;$_=eval"(@F)";s/.(?=(...){1,}\b)/$&,/g
|
Whew! I can't keep up with the climbers. I am working on Top 20 after 15th pulled away from me.
#!perl -pal
map{s/te*n/z+10/;s/fo/d/;y/ysieth/0/d;s/lv.*/o+10/;s/[bla]/000/g;s/.*?(00+).*/)*1$1+(/;s/(\w)[a-z]*/+$+/;y/zowrdfxvgn/0-9/;s/.u/*100/}@F;$_=eval"(@F)";s/.(?=(...){1,}\b)/$&,/g
|
Cut and Paste from my e-mail notification to keep up with Karsten!
#!perl -pal
map{s/te*n/z+10/;s/fo/d/;y/ysieth/0/d;s/lv.*/o+10/;s/[bla]/*1000/g&&s/.*?([\d*]+).*/)$++(/;s/(\w)[a-z]*/+$+/;y/zowrdfxvgn/0-9/;s/.u/*100/}@F;$_=eval"(@F)";s/.(?=(...){1,}\b)/$&,/g
|
Finally up one spot!
#!perl -pal
map{s/te*n/z+10/;s/fo/d/;y/ysieth/0/d;s/lv.*/o+10/;s/[bla]/*1000/g&&s/.*?([\d*]+).*/)$1+(/;s/(\w)[a-z]*/+$1/;y/zowrdfxvgn/0-9/;s/.u/*100/}@F;$_=eval"(@F)";s/.(?=(...){1,3}\b)/$&,/g
|
Still swimming against the tide.
#!perl -pal
map{s/te*n/z+10/;s/fo/d/;y/ysieth/0/d;s/lv.*/o+10/;s/[bla]/*1000/g&&s/.*?([\d\*]+).*/)$1+(/;s/(\w)[a-z]*/+$1/;y/zowrdfxvgn/0-9/;s/.u/*100/}@F;$_=eval"(@F)";s/.(?=(...){1,3}\b)/$&,/g
|
Thanks for reviewing all these entries! I could post only a few, but I enjoy being part of the leaderboard activity.
#!perl -pal
map{s/te*n/z+10/;s/fo/d/;y/ysieth/0/d;$p=1;for$d(qw(ou m b)){$p*=1e3;s/$d.*/)*$p+(/}s/l.*/o+10/;s/(\w)[a-z]*/+$1/;y/zowrdfxvgn/0-9/;s/.u/*100/}@F;$_=eval"(@F)";s/.(?=(...){1,3}\b)/$&,/g
|
I'm still on the putting green ... and I'm not very good with my putter.
#!perl -pal
map{s/te*n/z+10/;y/ysieth/0/d;s/fo/d/;$p=1;for$d(qw(ou m b)){$p*=1e3;s/$d\w+/)*$p+(/}s/l.*/o+10/;s/(\w)[a-z]*/+$1/;y/zowrdfxvgn/0-9/;s/.u/*100/}@F;$_=eval"(@F)";s/.(?=(...){1,3}\b)/$&,/g
|
I can't keep up! I'm falling down the leaderboard ...
#!perl -pal
map{s/te*n/+10/;y/ysieth/0/d;s/fo/d/;$p=1;for$d(qw(ou m b)){$p*=1e3;s/$d\w+/)*$p+(/}s/l.*/o+10/;s/([a-z])[a-z]*/+$1/;y/zowrdfxvgn/0-9/;s/.u/*100/}@F;$_=eval"(@F)";s/.(?=(...){1,3}\b)/$&,/g
|
What's the difference between an alien and an earthling? About 80 strokes! Make that 79 ...
#!perl -pal
map{y/ysie/0/d;s/th/j/;s/fo/d/;s/tn/+10/;$p=1;for$d(qw(jo m b)){$p*=1e3;s/$d\w+/)*$p+(/}s/l.*/o+10/;s/([a-z])[a-z]*/+$1/;y/zotjdfxvgn/0-9/;s/.h/*100/}@F;$_=eval"(@F)";s/.(?=(...){1,3}\b)/$&,/g
|
I'm in the fairway, but it is still a long way to the hole. What is par on this one anyway? Maybe the refs can predict difficulty by setting par at the start.
Refs always overestimate anyway :) - My guess was 150 or so.
#!perl -pal
map{y/ysie/0/d;s/th/j/;s/fo/d/;s/tn/+10/;$p=1;for$d(qw(jo m b)){$p*=1e3;s/$d\w+/)*$p+(/}s/l.*/o+10/;s/([a-z])[a-z]*/+$1/;y/zotjdfxvgn/0-9/;s/\+h/*100/}@F;$_=eval"(@F)";s/.(?=(...){1,3}\b)/$&,/g
|
One stroke at a time.
#!perl -lpa
map{y/y/0/;s/th/x/;s/fo/d/;s/sev/q/;s/el/o/;s/[etv]en|ove/+10/;$p=1;for$d(qw(xo m b)){$p*=1e3;s/$d\w+/)*$p+(/}s/([a-z])[a-z]*/+$1/;y/zotxdfsqen/0-9/;s/\+h/*100/}@F;$_=eval"(@F)";s/.(?=(...){1,3}\b)/$&,/g
|
What on earth are those leaders doing to drop 100 strokes? Oh wait, they're not on earth. I forgot.
#!perl -lpa
map{y/y/0/;s/tw/x/;s/fo/d/;s/sev/q/;s/el/o/;s/[etv]en|ove/+10/;$p=1;for$d(qw(tho m b)){$p*=1e3;s/$d\w+/)*$p+(/}s/([a-z])[a-z]*/+$1/;y/zoxtdfsqen/0-9/;s/\+h/*100/}@F;$_=eval"(@F)";s/.(?=(...){1,3}\b)/$&,/g
|
Why didn't I think of that sooner? I may break 200 yet!
#!perl -lp
y/y/0/;s/tw/x/g;s/fo/d/g;s/sev/q/g;s/el/o/g;s/[etv]en|ove/+10/g;$p++;for$d(qw(tho m b)){$p*=1e3;s/$d\w+/)*$p+(/g}s/\b([a-z])[a-z]*/+$1/g;y/zoxtdfsqen/0-9/;s/\+h/*100/g;$_=eval"($_)";s/.(?=(...){1,3}\b)/$&,/g
|
It is hard to shave! I hope I don't cut myself!
#!perl -l
$_=<>;y/y/0/;s/tw/x/g;s/fo/d/g;s/sev/q/g;s/el/o/g;s/[etv]en|ove/+10/g;$p++;for$d(qw(tho m b)){$p*=1e3;s/$d\w+/)*$p+(/g}s/\b([a-z])[a-z]*/+$1/g;y/zoxtdfsqen/0-9/;s/\+h/*100/g;$_=eval"($_)";s/.(?=(...){1,3}\b)/$&,/g;print
|
A new method, but only one stroke shaved. Time for something completely different?
#!perl -l
$_=<>;y/y/0/;s/tw/x/g;s/fo/d/g;s/sev/q/g;s/el/o/g;s/[etv]en|ove/+10/g;$p++;for$d(qw(tho m b)){$p*=1e3;s/$d\w+/)*$p+(/g}s/\b([a-z])[a-z]*/+$1/g;y/zoxtdfsqen/0-9/;s/\+h/*100/g;$_=eval"($_)";1while s/\d(?=...($|,))/$&,/;print
|
I'm keeping up at twice BoB! Congrats on BoB's play in this one!
Bob originally thought 200 was going to be difficult!
#!perl -l
$_=<>;s/y/0/g;s/een|lve/+10/g;$k=$p++;for$d(qw(tho m b)){$p*=1e3;s/$d\w+/)*$p+(/g}for$d(qw(z o tw th fo f si s ei n te e)){s/\b(1?)$d\w*?(0?)\b/+$1$k$2/g&$k++}s/\bh\w+/*100/g;$_=eval"($_)";1while s/\d(?=...(,|$))/$&,/;print
|
This is a really fun problem! My goal is to stay under twice the leader. I am safe for now!
#!perl -l
$_=<>;@e=(1e3,1e6,1e9,2,0..12);s/y/0/g;s/een/+10/g;for$d(qw(tho m b twen z o two th fo f si s ei n te e t)){s/\b(1?)$d\w*?(0?)\b/+$1$e[$k]$2/g&$k++}s/\+(100+)/)*$1+(/g;s/\bh\w+/*100/g;$_=eval"($_)";1while s/(\d)(...)(,|$)/$1,$2$3/;print
|