4clojure第135个问题：中缀计算器

goodluckforlove

于 2013-03-13 19:31:32 发布

阅读量679

点赞数

分类专栏： clojure

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

版权

clojure 专栏收录该内容

28 篇文章

订阅专栏

本文介绍了一个使用 Clojure 实现的简单前缀表达式计算器，该计算器能够处理基本的数学运算，包括加减乘除。通过递归方式处理表达式，无论优先级如何，均从左至右执行计算。

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

(ns for-clojure.problem135)

(defn infix-calculator
  "前缀计算机，从左到右执行，不论优先级"
  [& xs]
  (loop [r (first xs)
         xs (rest xs)]
    (if (empty? xs)
      r
      (recur ((first xs) r (second xs)) (nthrest xs 2)))))

(= 72 (infix-calculator 20 / 2 + 2 + 4 + 8 - 6 - 10 * 9))

(nthrest xs n)返回序列xs第n个元素后的子序列，所以 (rest (rest xs))等同于(nthrest xs 2)