Data commit

Task/Stream-merge/PicoLisp/stream-merge-1.l

@@ -0,0 +1,14 @@
+(de streamMerge @
+   (let Heap
+      (make
+         (while (args)
+            (let? Fd (next)
+               (if (in Fd (read))
+                  (link (cons @ Fd))
+                  (close Fd) ) ) ) )
+      (make
+         (while Heap
+            (link (caar (setq Heap (sort Heap))))
+            (if (in (cdar Heap) (read))
+               (set (car Heap) @)
+               (close (cdr (pop 'Heap))) ) ) ) ) )

Task/Stream-merge/PicoLisp/stream-merge-2.l

@@ -0,0 +1,11 @@
+(test (2 3 14 15 17 18)
+   (streamMerge
+      (open "a")
+      (open "b") ) )
+
+(test (2 2 3 3 5 7 14 15 17 18)
+   (streamMerge
+      (open "a")
+      (open "b")
+      (open "c")
+      (open "d") ) )