Implement a functional flip

diff --git a/misc.scm b/misc.scm
index 42037a398cb93211c0f97559b4d33fef06c150d5..72c991be59203fc458a82f03c759575c668c3111 100644 (file)
--- a/misc.scm
+++ b/misc.scm
@@ -4,6 +4,7 @@
   #:export
   (array-map
    array-map-indexed
+   flip
    for-indices-in-range
    if-let
    ifn
@@ -11,6 +12,12 @@
    map-indexed
    produce-array))
 
+(define (flip f)
+  "Returns a procedure behaving as `f', but with arguments taken in reverse
+order."
+  (lambda args
+    (apply f (reverse args))))
+
 (define-syntax if-let
   (syntax-rules ()
     [(_ (x test) consequent alternate)