in reply to Re: Re: Function over all letters in a string
in thread Function over all letters in a string
Heh. I took things too literally, as is my tendency on occasion. I read "random number of letters" and assumed without further thought that zero is a perfectly cromulent random number. If you want a nonzero random number, then replace rand 8 with (1+rand 7). Vary the number 7 according to taste.
$;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}} split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print$/
|
|---|