From 9d9cfd3c2f7ab36982cb569027cf831e95ee42ea Mon Sep 17 00:00:00 2001 From: Joe Zhao Date: Thu, 28 Jan 2016 13:27:16 -0700 Subject: sort --- Shuffle.hs | 11 +++++++++++ 1 file changed, 11 insertions(+) create mode 100644 Shuffle.hs (limited to 'Shuffle.hs') diff --git a/Shuffle.hs b/Shuffle.hs new file mode 100644 index 0000000..d1ad24a --- /dev/null +++ b/Shuffle.hs @@ -0,0 +1,11 @@ +module Shuffle (shuffle) where + +import System.Random + +shuffle [] = return [] +shuffle xs = do + i <- getStdRandom(randomR (0,(length xs)-1))::IO(Int) + let (h:rst) = drop i xs + oth <- shuffle $ (take i xs) ++ rst + return (h:oth) + -- cgit v1.2.3-70-g09d2