Re: Golf: 3 hole golf game

human.pl:    103 strokes
shuffle.pl:   37 strokes
select.pl:    37 strokes
------------------------
total:       177 strokes
[download]

Although my human.pl is (sadly) a complete ripoff of Tilly's... I just changed the arbitrary limit to a silly but not arbitrary one. Also, no modules for #2 or #3.

human.pl :::::::::::::: @x=<>;$z=length"@x";%x=map{($x=lc)=~s/\d+/0 x($z-length$&).$&/ge;$_,$x}@x;print sort{$x{$a}cmp$x{$b}}@x :::::::::::::: select.pl :::::::::::::: @_=<>;print splice@_,rand@_,1for 1..2 :::::::::::::: shuffle.pl :::::::::::::: print splice@_,rand@_,1for 1..(@_=<>)
[download]

Frankly, I feel that this should count as a solution to #1, but it doesn't, because perl's native arithmetic comparison is just broken on ludicrously long numbers:

:::::::::::::: human_shoulda.pl :::::::::::::: print map{@$_}sort{$z=0;{$z>@$a?0:lc$$a[$z]cmp lc$$b[$z++]||$$a[$z]<=> +$$b[$z++]||redo}}map{[split/([\d\n]+)/]}<>
[download]

Oh, well. It's still longer than my cleaned-up version of Tilly's, so I guess it's no real loss.

------------
:Wq
Not an editor command: Wq
[download]

Comment on Re: Golf: 3 hole golf game Select or Download Code

Replies are listed 'Best First'.

Re^2: Golf: 3 hole golf game
by dragonchild (Archbishop) on Nov 17, 2004 at 07:59 UTC

Being right, does not endow the right to be rude; politeness costs nothing.
Being unknowing, is not the same as being stupid.
Expressing a contrary opinion, whether to the individual or the group, is more often a sign of deeper thought than of cantankerous belligerence.
Do not mistake your goals as the only goals; your opinion as the only opinion; your confidence as correctness. Saying you know better is not the same as explaining you know better.

[reply]

Re^3: Golf: 3 hole golf game

by etcshadow (Priest) on Nov 17, 2004 at 16:04 UTC

It should be obvious that my select.pl is just a trivial modification to my shuffle.pl. I obviously didn't spend long enough converting it over. Thanks.

------------
:Wq
Not an editor command: Wq
[download]

[reply]
[d/l]

Re^2: Golf: 3 hole golf game
by tilly (Archbishop) on Nov 17, 2004 at 11:04 UTC

dragonchild

@x=<>;print sort{$x{$a}cmp$x{$b}}map{($x{$_}=lc)=~s/\d+/0
x(length("@x")-length$&).$&/ge;$_}@x
[download]

[reply]
[d/l]

Re^3: Golf: 3 hole golf game

by etcshadow (Priest) on Nov 17, 2004 at 16:10 UTC

Was efficiency a requirement? If it was, then oops. Oh, well, I was optimizing for brevity.

P.S. I wasn't able to inline the "@x" when I tried it (must be because I'm using a much older perl). I didn't throw in the $z="@x"; just to waste space. I was actually pretty disapointed at having to do so. Nice. I should really upgrade my perl (or at least have a more up-to-date version around).

------------
:Wq
Not an editor command: Wq
[download]

[reply]
[d/l]

Re^4: Golf: 3 hole golf game

by tilly (Archbishop) on Nov 17, 2004 at 16:46 UTC

Brevity was indeed the requirement. I was just trying to make myself feel better. ;-)

[reply]


Syntactic Confectionery Delight
	PerlMonks

Re: Golf: 3 hole golf game

This is an archived low-energy page for bots and other anonmyous visitors. Please sign up if you are a human and want to interact.