Re: Semcarlbd letrtes sepur! (Scrambled letters super!)
Xavier Noria <[email protected]>
| Newsgroups | gmane.comp.lang.perl.fun |
|---|---|
| Message-ID | <[email protected]> |
On Friday 19 September 2003 16:11, Allen, Greg wrote:
> In which case I can beat:
>
> -pX s#\B\w+\B#join"",map chop,sort map{rand.$_}$&=~/./g#eg
>
> With:
>
> -p s#\B\w+\B#join"",values%{{map{rand,$_}$&=~/./g}}#eg
What about
-p s!\B\w+\B!join"",sort{.5<=>rand}$&=~/./g!ge
Would that be considered random enough?
-- fxn