将列表中的每个元素转换为原子的Scheme程序_Scheme

将列表中的每个元素转换为原子的Scheme程序

scheme

将列表中的每个元素转换为原子的Scheme程序,scheme,Scheme,我需要一个程序，将列表作为输入，并将列表中的每个元素转换为原子。这是我到目前为止所做的，但我一直在出错 (define make-lat (lambda (l) (cond ((null? l) (quote ())) (else (cond ((list? (car l)) (cons (caar l) make-lat (cdr l))) (else ((atom? (car l))

我需要一个程序，将列表作为输入，并将列表中的每个元素转换为原子。这是我到目前为止所做的，但我一直在出错

    (define make-lat
      (lambda (l)
(cond
  ((null? l) (quote ()))
  (else
   (cond
     ((list? (car l))
      (cons (caar l)
            make-lat (cdr l)))
      (else 
       ((atom? (car l))
        (cons (car l)
       (make-lat(cdr l)
           )))))))))

有人能帮我吗？

我觉得你的代码有点杂乱无章，我想你可能需要考虑一下设计配方中的以下步骤：

第一步：你能为你的程序写一个目的陈述吗？它应该说明函数的作用

第二步：你能写一份合同吗？它应该说明程序接收的数据类型，以及它生产什么。这里，您必须是特定的，并且您指定的任何类型的数据都必须是内置的或具有明确的“数据定义”

第三步：编写一些测试用例！提供一个示例输入和您期望的输出

要了解更多设计配方的优点，请查看。

我觉得您的代码有点杂乱无章，我想您可能需要考虑设计配方中的以下步骤：

第一步：你能为你的程序写一个目的陈述吗？它应该说明函数的作用

第三步：编写一些测试用例！提供一个示例输入和您期望的输出

有关设计配方的更多信息，请查看。

您的问题看起来像是家庭作业

下面是一些您可以尝试和调试的方法

使用Repl尝试函数的某些部分。例如，如果在cond中检查null，您也可以在REPL上执行此操作

（空？'（1 2 3））

或

（空？'（））

检查单个S-EXP。您确定您调用的每个函数都有一个开始和结束参数吗
作为提示，简化你的条件。你不需要再做什么了。你可以把所有的条件一个一个地放进去

使用Repl尝试函数的某些部分。例如，如果在cond中检查null，您也可以在REPL上执行此操作

（空？'（1 2 3））

（空？'（））

检查单个S-EXP。您确定您调用的每个函数都有一个开始和结束参数吗
作为提示，简化你的条件。你不需要再做什么了。你可以把所有的条件一个一个地放进去

makelat（cdrl）

makelat（cdrl）

列表

（cons 3（cons'dollars（cons'and）（cons 53（cons'cents empty(cons'empty)））

（列出3'dollars'and 53'cents）

list

列表