From 4e987026148fe65c323afbc93cd560c07bf06b3f Mon Sep 17 00:00:00 2001
From: Yale AI Dept <ai@nebula.cs.yale.edu>
Date: Wed, 14 Jul 1993 13:08:00 -0500
Subject: Import to github.

---
 progs/demo/merge.hs | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100755 progs/demo/merge.hs

(limited to 'progs/demo/merge.hs')

diff --git a/progs/demo/merge.hs b/progs/demo/merge.hs
new file mode 100755
index 0000000..cf61f8f
--- /dev/null
+++ b/progs/demo/merge.hs
@@ -0,0 +1,26 @@
+{- This is a simple merge sort -}
+
+module Merge where
+                
+merge :: [Int] -> [Int] -> [Int]
+merge [] x = x  
+merge x [] = x
+merge l1@(a:b) l2@(c:d) | a < c     = a:(merge b l2)
+			| otherwise = c:(merge l1 d)
+
+half [] = []
+half [x] = [x]
+half (x:y:z) = x:r where r = half z
+
+sort [] = []
+sort [x] = [x]
+sort l = merge (sort odds) (sort evens) where
+	     odds = half l
+	     evens = half (tail l)
+
+main =
+  appendChan stdout "Enter a list of integers separated by \",\"\n" abort $
+  readChan stdin abort $ \ input ->
+  appendChan stdout 
+      (show (sort (read ("[" ++ (head (lines input)) ++ "]"))))
+      abort done
-- 
cgit v1.2.3