Strtol
Score: 119.58 (pass)
yesss, i joined 110 club!
Competition is heating up!!
#!perl -lp040
$a=/a|ll/?($b|='000,'x y/bis//.$a)x0:0*y/htfsleno/025-9/x/y/.$_%98%38%23%17 ./28|7/|0 x2x/d/.$a}{$_=reverse$b|$a
|
Score: 120.44 (pass)
#!perl -lp040
$a=/a|ll/?($q|='000,'x y/abi//.$a)x0:$?x/y|z/.$-['އr#'!~pack+H2,$_]./lv|te/|"00"x/d/.$a}{$_=reverse$a|$q
|
Score: 122.60 (pass)
i sew a new heart to this horse, but unfortunately it's longer than my previous approach.
giddy up (surprisingly, this is only the second mention of our deceased equine friends)
#!perl -lp040
$a=/a|ll/?($b|='000,'x y/bis//.$a)x0:0*y/tfsenohl/2568990/x/y/.$_%98%38%23%17 ./28|80/|0 x2x/d/.$a}{$_=reverse$b|$a
|
Score: 124.39 (pass)
#!perl -lp040
$,=/a|ll/?($"|='000,'x+y/bis//.$,)x0:/d/?"00$,":$?x/ten|y/.$-['>r_'!~pack+H2,$_]./lv|te/|$,}{$_=reverse$"|$,
|
Score: 125.44 (pass)
don't look at it or your aesthetic feeling will be staggered. anyway, today's job complete.
aesthetic or not ... it works :)
#!perl -alp
$,=/a|ll/?($a|='000,'x y/bis//.$,)x0:/d/?"00$,":0 x/y/.$-['>r'!~pack+H2,$_]%10 ./el|te/|$,for@F,a;$_=reverse$a
|
Score: 126.29 (pass)
catch BoB again!
Hmpf
#!perl -lp040
$;-=/a|ll/?$;=$,-=$;.e.3*y/iba//:/d/?-$;*99:/lv|tee/.@+['r'!~pack+H2,$_].$?x/y/}{$_=$,-$;;s/(?=\B(...)*$)/,/g
|
Score: 129.30 (pass)
ah, it was not this trick?
Nope.
#!perl -apl
$;-=/a|ll/?$;=$,-=$;.e.3*y/iba//:/d/?-$;*99:/lv|tee/.@-['>r'!~pack+H2,$_].$?x/y/for@F;$_=$,-$;;s/(?=\B(...)*$)/,/g
|
Score: 131.41 (pass)
i love this race
I can imagine
#!perl -apl
$n-=/a|ll/?$n=$s-=$n.e.3*y/iba//:/d/?-$n*99:/lv|een/.index('>r',pack
H2,$_).0
x/y/for@F;$_=$s-$n;s/(?=\B(...)*$)/,/g
|
Score: 133.41 (pass)
Bob is not amused.
#!perl -apl
$n+=/a|ll/?!($s+=$n.e.3*y/iba//)-$n:/d/?$n*99:/lv|een/.index('>r',pack
H2,$_).0
x/y/for@F;$_=$s+$n;s/\B(?=(...)*$)/,/g
|
Score: 137.39 (pass)
update to 137
#!perl -apl
$n+=/a|ll/?!($s+=$n.e.3*(1+/i/+/b/))-$n:/d/?$n*99:/lv|een/.index('>r',pack H2,$_).0
x/y/for@F;$_=$s+$n;s/\B(?=(...)*$)/,/g
|
Score: 138.30 (fail)
what BoB will answer?
finally got round to rejecting this one - more than 75% of characters are unprintable
#!perl -pl
eval lc pack u,'.-ĸYh/O|̷DNL,O,$DOc>Yn
|
Score: 138.38 (pass)
sorry, finally i get into those unprinted chars again :) actually without bitwise negation of pack it's 137 but with one char with code \15 that can confuse some platforms.
Please stop demoralizing the other competitors. You now have a lead of more than 30 strokes!
#!perl -apl
$n+=/a|ll/?!($s+=$n.e.3*(1+/i/+/b/))-$n:/d/?$n*99:/lv|een/.index(' p',~pack h2,$_).0
x/y/for@F;$_=$s+$n;s/\B(?=(...)*$)/,/g
|
Score: 144.44 (pass)
Very nice indeed.
#!perl -apl
$n+=/a|ll/?!($s+=$n.e.3*(1+/i/+/b/))-$n:/d/?$n*99:/lv|een/.index('K_EFWVBCT^DU',$&x/./^y/hrwx//x1).0
x/y/for@F;$_=$s+$n;s/\B(?=(...)*$)/,/g
|
Score: 147.48 (pass)
sorry, i didn't read my mail. please reject my uue approach, even for no reason. i'm back for normal operation, at least until ton- get approved his 47 :)
the encoded solution is contentious. I'm letting Eugene be final arbiter
#!perl -apl
$n+=/a|ll/?!($s+=$n.e.3*(1+/i/+/b/))-$n:/d/?$n*99:/lv|een/.index(zeontwthfofisiseeiniteel,$&x/../)/2
.0
x/y/for@F;$_=$s+$n;s/\B(?=(...)*$)/,/g
|
Score: 149.48 (pass)
Bob struggle
#!perl -pal
$n+=/hu/?$n*99:/[dmb]/?!($s+=$n.e.3*(1+/i/+/b/))-$n:/lv|een/.index(zeontwthfofisiseeiniteel,$&x/../)/2
.0
x/y/for@F;$_=$s+$n;s/\B(?=(...)+$)/,/g
|
Score: 157.50 (pass)
should i start uue dance?
please don't
#!perl -pal
$n=/hu/?$n*100:/sa|mi|bi/?!($s+=$n*1e3**(/o/+/i/+/b/)):/lv|een/.index(zeontwthfofisiseeiniteel,$&x/../)/2
.0
x/ty/+$n
for@F;$_=$s+$n;s/\B(?=(...)*$)/,/g
|
Score: 197.50 (pass)
#!perl -pal
/hu/?$n*=100:/sa|mi|bi/?$n=!($s+=$n*1e3**(/o/+/i/+/b/)):(/../,$w=index(zeontwthfofisiseeini,$&)/2,/ten|lev|elv/g&&($w=7+pos),$w+=10*/een/,$n+=$w.=0
x/ty/)for@F;$_=$s+$n;1while
s/\B\d{3}\b/,$&/
|
Score: 215.52 (pass)
I think BoB is already in trouble
#!perl -pal
/hu/?$n*=100:/sa|mi|bi/?$n=!($s+=$n*1e3**(/o/+/i/+/b/)):do{for$i(0..9){$w=$i
if$_=~(zeontwthfofisiseeini=~/../g)[$i]}$w=7+pos
if/ten|lev|elv/g;$w+=10*/een/;$n+=$w.=0
x/ty/}for@F;$_=$s+$n;1while
s/\B\d{3}\b/,$&/
|
Score: 230.53 (pass)
#!perl -pal
/hu/?$n*=100:/sa|mi|bi/?do{$s+=$n*10**(3*/sa/+6*/mi/+9*/bi/),$n=0}:do{for$i(0..9){$w=$i if$_=~(zeontwthfofisiseeini=~/../g)[$i]}$w=7+pos if/ten|lev|elv/g;$w+=10*/een/;$w.=0if/ty/;$n+=$w}for@F;$_=$s+$n;1while s/\B\d\d\d\b/,$&/
|