http://www.perlmonks.org?node_id=132986


in reply to TMTOWTDI Puzzle: Generating a range of numbers

My variant: 

$c = 'qwertyasdf'; ($a, $b, @a) = sort map
{ $a = $_; ord chr grep $_ le $a, split //, $c }
split //, $c; print "$a @a $b\n";

[download]
Update: Removed forbiden '+' operation. Updated code even more obfuscated than it was before.

--
Ilya Martynov (http://martynov.org/)

In Section Meditations