Look Ma, no modules!
Three chars for List::Util is a good trade, I think... :-)perl -pe's!\B\w+\B!@s=split//,$&;my$s;$s.=splice@s,rand@s,1while@s;$s! +eg'
-sauoq "My two cents aren't worth a dime.";
In reply to Re^3: Fun with words (Golf?)
by sauoq
in thread Fun with words (Golf?)
by McDarren
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |