Say I have a string:

$phrase = "This is a random bunch of words which I will now jumble up";

...and I want to generate those words in a random order on every refresh...no duplicates or missing words, I want to see how you'd do it in the fewest possible lines of perl.

Mashing everything onto one line doesn't count.

Every ; or { or } means you have to start a new line.

We're playing perl golf again this week, are we? You should really log onto IRC they have whole channels dedicated to this stuff.

- wil

IRC is crap.

??

Nah, a wealth of information and hackers to be found there!

- wil

How's this?

I tried forever to make that a single line but kept getting errors because of the for loop.

--Philip
Links 2.0 moderator

Ooo.

Thats similar yet different to mine. I have a redo in there but didn't use grep.

Mine is a little longer though hmm.

Btw instead of

print join " ", @p

....

print "@p";

...will work the same way. It will space the elements and you can change the delimiter with $"

Grrr...


Can't get it to one line.

Create a sub to shuffle, then just call the sub with your splitted array - or is this cheating? ;-)

- wil

no, that's not cheating but it certainly won't earn you a very low score.

--Philip
Links 2.0 moderator

Alrighty then :-)

http://www.perldoc.com/...e-an-array-randomly-

- wil

Well this is another way....still 2 lines...ugh...but this way isn't very good.


You can do it in one now I look...ah well. Im bored now.

No "shuffle" routines provided in perldoc are short enough to beat us out in this game. The example using splice will not work when converted to single statement format (no {}'s ...). It seems to be a limitation in the interpreter, because it would seem that using lots of ()'s, "and"'s, and ","s to combine several statements would work.

--Philip
Links 2.0 moderator