From 65ad7c981ae49cc02c88efdc2d25fddb8852af5a Mon Sep 17 00:00:00 2001
From: Heefoo <heefoo@outlook.com>
Date: Wed, 21 Mar 2018 10:01:11 +0200
Subject: [PATCH] Add more useful examples

---
 examples/utils.dst | 58 ++++++++++++++++++++++++++++++++++++++++++++--
 1 file changed, 56 insertions(+), 2 deletions(-)

diff --git a/examples/utils.dst b/examples/utils.dst
index d51fdcce..f77718fb 100644
--- a/examples/utils.dst
+++ b/examples/utils.dst
@@ -1,3 +1,8 @@
+(defn table? [x] (= (type x) :table ))
+(defn struct? [x] (= (type x) :struct))
+(defn array? [x] (= (type x) :array))
+(defn tuple? [x] (= (type x) :tuple))
+
 (defn- reverse-array
     "Reverses the order of the elements in a given array"
   [t]
@@ -42,8 +47,6 @@
   (tuple 'when (tuple 'not condition) exp-1))
 
 
-
-
 (defmacro if-let
 "Takes the first one or two forms in vector and if true binds
  all the forms with let and evaluates first expression else
@@ -92,3 +95,54 @@
      (apply comp  (comp0 f g) (array-slice functions  2 -1))) )))
 
 
+(defn zip-coll
+"Creates an table of map from two arrays/tuple. Defaults to table when no thrid
+ argumet is given"
+  [coll-1 coll-2 the-type]
+  (var zipping-table @{})
+  (def {:more more1 :next next1} (iter coll-1))
+  (def {:more more2 :next next2} (iter coll-2))
+  (while (more1)
+    (put  zipping-table (next1) (next2)))
+  (if (= :struct the-type)
+    (table-to-struct zippint-table )
+    zipping-table))
+
+(defn update
+"Uses a function to change the value in a collection"
+  [coll a-key a-function & args]
+  (def old-value (get coll a-key) )
+  (put coll a-key (apply a-function old-value args)))
+
+(defn merge
+"Merges mutliple tables/structs to one. If a key appears in more than one
+ collection, then subsequence values replace previous ones
+ The type of the first collection determines the type of the resulting
+ collection"
+  [head & colls]
+  (if   (:= tmp head)
+       (tuple-prepend head colls))
+  (defn  create-merger [container]
+    (fn [x]
+      (def {:more more :next next} (pairs x))
+      (var tmp (next))
+      (while (more)
+        (put container (get tmp 0) (get tmp 1)))
+      (:= tmp (next))))
+  (def is-table (table? head))
+  (def merger (create-merger (if is-table head
+                               (do (var container @{}) container))))
+  (foreach colls merger)
+(if is-table head (table-to-struct container)))
+
+(defn juxt
+"Takes a set of functions and returns the juxtaposition of those functions"
+  [& functions]
+  (fn [& x]
+  (map (fn [f] (apply f x))  functions)))
+
+
+
+
+
+