避免函数调用的双重调用

如何解决避免函数调用的双重调用

考虑 Lisp 中的以下函数定义：

(defun Fct(F L)
    (cond
        ((null L) nil)
        ((funcall F (car L)) (cons (funcall F (car L)) (Fct F (cdr L)) ) )
        (T nil)
    )
)

给出避免重复调用 (funcall F (car L)) 的解决方案。你 不会使用 set、setq、setf。证明答案是正确的。

这是我重新定义函数的方式：

(defun Fct2(F L)
    (funcall #'(lambda (x)
                    (cond
                        ((null L) nil)
                        (x (cons x (Fct2 F (cdr L)) ) )
                        (T nil)
                    )
                )
        (F (car L))
    )
) 

我在工作，但我看不到后面是否有双重调用。我也看到有人以另一种方式做到了：

(defun redefine(f l)
    (funcall #' (lambda (x)                    
                        (cond 
                            ((null l) nil)
                            (x (cons x (Fct f (cdr l))))
                            (t nil)
                        )                   
                )
                (funcall f (car l))
    )
)

（使用里面的旧Fct）

但我认为 Fct2 是继续进行的好方法。我想听听一些意见。

解决方法

函数 fct 以函数 f 和列表 L 作为参数 并返回 t 元素的 L 列表，这些元素的计算结果为 f un
直到 L 耗尽，或者元素对 F 的计算结果为 false。

例如：

(fct #'plusp '(1 2 -3 4 10)) => (t t),(fct #'listp '((1 2 3) 4 '(a))) => (t),(fct #'listp nil) => nil.

函数 fct2 和 redefine 不满足这种行为。

另外为了避免多次计算表达式， 只需将表达式的计算结果绑定到一个符号。 考虑以下实现预期结果的实现：

(defun fct-2 (func list)
  (when list
    (let ((head (funcall func (car list))))
      (when head
        (cons head (fct-2 func (cdr list)))))))

宏 when 当您有一个没有 else 部分的 if 表单时特别有用。 在 fct-2 中，我们将 (funcall func (car list)) 的结果绑定到 head 我们稍后使用。

附注：

1. Commonlisp 为函数和变量提供了单独的命名空间，因此我们可以毫无问题地使用 list 之类的名称作为变量名，这可以使程序更清晰，而不是名称 像 L 表示列表。
2. 查看 https://mumble.net/~campbell/scheme/style.txt 和 https://lisp-lang.org/style-guide/ 以获取有关编写和格式化（常见）lisp 程序的指南。