Hi all,
did you know taht it is psbloise to raed text eevn if the lteters
-ecpxet for the fsirt and lsat- of ecah wrdos are seclarbmd? I hared
a sutdy has been dnoe on taht scjebut in an Eigslnh urtiivesny, but I
coannt get hold of it. Any ionirmtfoan on that sceujbt is welomce.
Has the sbuejct adelary been aeressddd on this lsit?
In the menatmie, I cmae up wtih tihs one-liner taht smelracbs the
lrttees apilraptpoery. How srhot can such a sicrpt get?
prel -pe 'sub r{join"",map cohp,sort
map{rand().$_}sfhit=~/(.)/g};s/\b(\w)(\w*)(\w)\b/$1.r($2).$3/eg'
Crehes,
Enneite
PS : Ok, ok, the ublmaecsrnd sprict is :
perl -pe 'sub r{join"",map chop,sort
map{rand().$_}shift=~/(.)/g};s/\b(\w)(\w*)(\w)\b/$1.r($2).$3/eg'
--
Etienne Grossmann ------ http://www.isr.ist.utl.pt/~etienne
