Browse code

Add 'enumerated' function and move 'zip'

Joseph Weston authored on 05/12/2021 20:16:21
Showing 1 changed files
... ...
@@ -51,6 +51,10 @@
51 51
 
52 52
 (defn- third [coll] (nth coll 2))
53 53
 
54
+(defn- zip [& colls] (apply map vector colls))
55
+
56
+(defn- enumerated [& colls] (apply zip (range) colls))
57
+
54 58
 (defn- property-list [& props]
55 59
     (into
56 60
      [:ul {:class (styles/property-list)}]
... ...
@@ -62,7 +66,6 @@
62 66
                  [:span (first %)]
63 67
                  [:span (second %)])))))
64 68
 
65
-(defn- zip [& colls] (apply map vector colls))
66 69
 
67 70
 (defn- property-table [items & props]
68 71
   (let [pprops (partition 3 props)