[plug] qsort

Leon Brooks leon at brooks.fdns.net
Mon Jun 10 13:45:20 WST 2002


On Mon, 10 Jun 2002 13:34, The Thought Assassin wrote:
> qsort lt []     = []
> qsort lt (x:xs) = qsort lt y ++ [x] ++ qsort lt z
>                   where (y,z) = partition (lt x) xs

> Now that is a thing of beauty.

I didn't realise APL had a seven-bit form... (-:

Cheers; Leon



More information about the plug mailing list