Question

我想将以下代码合并为一个：

   (define (foundList x)
        (when (pair? x)
         ((hash-ref *function-table* (car x)) (cdr x))))

(define (endofstring x)
  (if (not (null?(cdr x)))
    (endofstring (cdr x))
    (foundList (car x))))

我试图做以下但是我得到＆＃34; hash-ref：找不到键值＃34;

(define (endofstring x)
  (if (not (null?(cdr x)))
    (endofstring (cdr x))
    (if (when (pair? x) 
      ((hash-ref *function-table* (car x)) (cdr x)))
      (car x) (void))))

需要帮助thanx

Answer 1

我认为x中的endofstring与x中的foundList混淆了(foundList (car x))。

将foundList替换为x的正文，并将(car x)替换为(when (pair? (car x)) ((hash-ref *function-table* (car (car x))) (cdr (car x))))。
也就是说，用

(define (endofstring x)
  (if (not (null?(cdr x)))
    (endofstring (cdr x))
    (when (pair? (car x))
        ((hash-ref *function-table* (car (car x))) (cdr (car x))))))

你得到了

git checkout orphan
git merge --no-commit --squash master
git commit

如何结合这两个功能（方案）？

1 个答案: