4clojure第58个问题：组合函数

最新推荐文章于 2024-09-15 08:22:16 发布

goodluckforlove

最新推荐文章于 2024-09-15 08:22:16 发布

阅读量884

点赞数

分类专栏： clojure

本文链接：https://blog.youkuaiyun.com/goodluckforlove/article/details/8667710

版权

clojure 专栏收录该内容

28 篇文章

订阅专栏

本文介绍了一种在Clojure中实现函数组合的方法，通过两个不同的函数组合实现展示了如何灵活地组合多个函数，并提供了具体的示例代码来说明其用法。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

(ns for-clojure.problem58)
(defn fn-comp-1
  "创建一个函数的组合函数，此函数接受任何个数的函数，从右到左执行函数"
  [& fns]
  (fn [& init-paramters]
    (let [fns (reverse fns)
          result (apply (first fns) init-paramters)]
      (loop [fns (rest fns) result result]
        (if (empty? fns) 
          result
          (recur (rest fns) ((first fns) result)))))))

((fn-comp-1 rest reverse) [1 2 3 4]) ;= [3 2 1]
((fn-comp-1 (partial + 3) second) [1 2 3 4]) ;= 5
((fn-comp-1 zero? #(mod % 8) +) 3 5 7 9) ;= true
((fn-comp-1 #(.toUpperCase %) #(apply str %) take) 5 "hello world") ;= "HELLO"

(defn fn-comp-2
  "非尾递归版本"
  [& fns]
  (fn [& xs]
    (let [fns (reverse fns)
          result (apply (first fns) xs)]
      (reduce #(%2 %1) result (rest fns)))))

((fn-comp-2 rest reverse) [1 2 3 4]) ;= [3 2 1]
((fn-comp-2 (partial + 3) second) [1 2 3 4]) ;= 5
((fn-comp-2 zero? #(mod % 8) +) 3 5 7 9) ;= true
((fn-comp-2 #(.toUpperCase %) #(apply str %) take) 5 "hello world")  ;= "HELLO"

在创建组合函数的过程中，主要是第一个函数比较特别，因为它的参数不确定，因此必须在reduce之前把它处理掉。