[1] The function onehot was added.

diff --git a/dynamics/src/math.clj b/dynamics/src/math.clj
index cb6e60a..c802d70 100755 (executable)
--- a/dynamics/src/math.clj
+++ b/dynamics/src/math.clj
@@ -192,5 +192,14 @@
     (apply rec (sort-by stype-order args))
     ))
 
-(defn onehot [idxs tuple] 1)
+(defn onehot [idxs tuple]
+  (letfn [(rec [tuple pos]
+            (if (coll? tuple)
+              (cons (first tuple)
+                    (map #(rec %1 (cons %2 pos))
+                         (rest tuple)
+                         (iterate inc 0)))
+              (if (= (reverse pos) idxs) 1 0)
+              ))]
+    (rec tuple [])))