std: Add std/flip

yaml · Jan 29, 2025 · 9755b22 · 9755b22
1 parent 8f8d7af
commit 9755b22
Show file tree

Hide file tree

Showing 2 changed files with 30 additions and 0 deletions.
diff --git a/core/src/ys/std.clj b/core/src/ys/std.clj
@@ -302,6 +302,8 @@
 (intern 'ys.std 'T to-type)
 (intern 'ys.std 'V to-vec)
 
+(intern 'ys.std 'V+ vector)
+
 
 ;;------------------------------------------------------------------------------
 ;; Math functions
@@ -516,6 +518,25 @@
 (defmacro when+ [test & body]
   (list 'when-let ['_ test] (cons 'do body)))
 
+
+;;------------------------------------------------------------------------------
+;; Function functions
+;;------------------------------------------------------------------------------
+
+(defn flip [f]
+  (fn
+    ([] (f))
+    ([a] (f a))
+    ([a b] (f b a))
+    ([a b c] (f c b a))
+    ([a b c d] (f d c b a))
+    ([a b c d & rest]
+     (->> rest
+       (concat [a b c d])
+       clojure.core/reverse
+       (apply f)))))
+
+
 ;;------------------------------------------------------------------------------
 ;; String functions
 ;;------------------------------------------------------------------------------

diff --git a/ys/test/std.t b/ys/test/std.t
@@ -219,6 +219,15 @@ test::
   want: 42
 
 
+#-------------------------------------------------------------------------------
+- note: "Function functions"
+
+- code: |
+    bus =: sub:flip
+    bus: 2 44
+  want: 42
+
+
 #-------------------------------------------------------------------------------
 - note: "String functions"