来自 Clojure 的“线程优先”宏和“线程最后”宏在 Scheme 上实现？

Question

我正在尝试在 Scheme 中实现宏 -> 和 ->>，我的最终结果是：

  ;;
  ;; See https://clojuredocs.org/clojure.core/-%3E
  ;; for more info.
  ;;
  (define-syntax ->
    (syntax-rules ()
      ((_ a) a)
      ((_ a (b c ...)) (b a c ...))
      ((_ a b) (b a))      
      ((_ a b c) (-> (-> a b) c))
      ((_ a b ... c) (-> (-> a b ...) c))))

  ;;
  ;; See https://clojuredocs.org/clojure.core/-%3E%3E
  ;; for more info.
  ;;
  (define-syntax ->>
    (syntax-rules ()
      ((_ a) a)
      ((_ a (b c ...)) (b c ... a))
      ((_ a b) (b a))      
      ((_ a b c) (->> (->> a b) c))
      ((_ a b ... c) (->> (->> a b ...) c))))

我已经成功地进行了一些测试，但我不确定它是否 100% 正确以及是否 100% 优化。

正确吗？有没有办法优化这个？是我做的太多还是还是这样？

Answer 1

答案取决于问题：您使用的是哪种 Scheme 方言？因为在 Racket 中我们已经有了threading macros，所以没有必要实现它们 :) 。特别是，支持~> 和~>> 等。请查看文档。