在Emacs Lisp中,要对列表中的奇数求和,可以使用以下代码:
(defun sum-odd-numbers (numbers)
(let ((sum 0))
(dolist (number numbers)
(if (oddp number)
(setq sum (+ sum number))))
sum))
这个函数接受一个数字列表作为参数,并使用dolist
循环遍历列表中的每个数字。如果数字是奇数,则将其添加到sum
变量中。最后,函数返回sum
变量的值,即列表中所有奇数的和。
例如,如果我们有以下列表:
(setq numbers '(1 2 3 4 5 6 7 8 9))
我们可以调用sum-odd-numbers
函数来计算列表中奇数的和:
(sum-odd-numbers numbers)
这将返回结果25
,因为1 + 3 + 5 + 7 + 9 = 25。
领取专属 10元无门槛券
手把手带您无忧上云