Re: Re: Re: Competition fuels obsession over Perl [golf]


Clear questions and runnable code get the best and fastest answer
	PerlMonks

by educated_foo (Vicar)

on Feb 19, 2004 at 16:56 UTC ( [id://330261]=note: print w/replies, xml )

Need Help??

Oh, man I'm rusty. Here are a few minor tweaks. For the full version, one less:

$$_=lc=~y/aeiou//for@F;print"$$_ $_"for sort{$$b-$$a||$a cmp$b}@F
[download]

For the "less than ten vowels" version, you can also lose one by getting rid of that space after the "map{9-".

Finally, if they meant increasing order of vowel count and less than nine vowels, then we can do much better ;)

-an print sort map y/aAeEiIoOuU//." $_\n",@F
[download]

Comment on Re: Re: Re: Competition fuels obsession over Perl [golf] Select or Download Code

Replies are listed 'Best First'.
Re: Re: Re: Re: Competition fuels obsession over Perl [golf] by eyepopslikeamosquito (Archbishop) on Feb 19, 2004 at 21:13 UTC
For the "less than ten vowels" version, you can also lose one by getting rid of that space after the "map{9-". Alas, Perl complains with Unrecognized file test: -y if you try that. However, using your `lc` trick saves two more strokes: `print+map{/./;9-$&.$'}sort map{9-lc=~y/aeiou//." $_\n"}@F` [download] You could allow up to 90 vowels (at the cost of 3 strokes) by changing `9` to `99` and `.` to `..`	[reply] [d/l] [select]
Re: Re: Re: Re: Re: Competition fuels obsession over Perl [golf] by educated_foo (Vicar) on Feb 19, 2004 at 22:29 UTC
Hm... "9-y///" works fine on 5.8.3 for me, while 5.6.0 chokes. Nothing jumps out at me in perldelta, but it does mention that parsing of m// has changed.	[reply]

In Section Meditations

Domain Nodelet^?

Node Status^?

node history
Node Type: note [id://330261]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others goofing around in the Monastery: (6)

As of 2024-04-26 09:36 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

No recent polls found