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


in reply to Re^2: RFC: A Perlesque Introduction to Haskell, Part One (draft)
in thread RFC: A Perlesque Introduction to Haskell, Part One (DRAFT)

Just for the hell of it: 

sub qs { local ($x, @xs) = @_ and return qs(grep($_ < $x, @xs)), $x, q
+s(grep($_ >= $x, @xs)) or () }

[download]

ihb

In Section Meditations