首页
学习
活动
专区
工具
TVP
发布
精选内容/技术社群/优惠产品,尽在小程序
立即前往

Emacs Lisp:如何对列表中的奇数求和?

在Emacs Lisp中,要对列表中的奇数求和,可以使用以下代码:

代码语言:lisp
复制
(defun sum-odd-numbers (numbers)
  (let ((sum 0))
    (dolist (number numbers)
      (if (oddp number)
          (setq sum (+ sum number))))
    sum))

这个函数接受一个数字列表作为参数,并使用dolist循环遍历列表中的每个数字。如果数字是奇数,则将其添加到sum变量中。最后,函数返回sum变量的值,即列表中所有奇数的和。

例如,如果我们有以下列表:

代码语言:lisp
复制
(setq numbers '(1 2 3 4 5 6 7 8 9))

我们可以调用sum-odd-numbers函数来计算列表中奇数的和:

代码语言:lisp
复制
(sum-odd-numbers numbers)

这将返回结果25,因为1 + 3 + 5 + 7 + 9 = 25。

页面内容是否对你有帮助?
有帮助
没帮助

相关·内容

领券