rename to H**, +31 +32 +33 +34 +35 +36

1 files changed, 8 insertions, 0 deletions

diff --git a/H25.hs b/H25.hs
new file mode 100644
index 0000000..d590fce
--- /dev/null
+++ b/H25.hs
@@ -0,0 +1,8 @@
+import System.Random
+
+rnd_permu :: [a] -> IO [a]
+rnd_permu []     = return []
+rnd_permu (x:xs) = do
+    rand <- randomRIO (0, (length xs))
+    rest <- rnd_permu xs
+    return $ let (ys,zs) = splitAt rand rest in ys++(x:zs)