Word Descrambler - Haskell

descramble_haskell

-- "Created by: Chester Grant |Got code from:http://www.haskell.org/pipermail/haskell-cafe/2002-June/003122.html";
-- "Purpose: Unscrambles letters(see line 199)\n";
-- "Date: 9th/04/2011\n";

selections [] = []
selections (x:xs) = (x,xs) : [ (y,x:ys) | (y,ys) <- selections xs ]

permutations :: [a] -> [[a]]
permutations  [] = [[]]
permutations xs = [ y : zs | (y,ys) <- selections xs, zs <- permutations ys]
main = print (permutations "eschs")