返回Scheme列表中的最小项目

Question

注意：我这样做是为了做作业。我不是在寻找解决问题的算法，只是想了解 Scheme 的工作原理。

我是计划的新手，正在尝试编写一个小程序来查找列表中的最小项目。该程序正在运行，因为它正在找到正确的答案（所以逻辑有点合理），但我只知道这一点，因为出现了一个错误，它试图将我的答案视为一个函数并调用它。

(DEFINE (startmin mylist)
(

    (repeatmin (CAR mylist) (CDR mylist))


))


(DEFINE (repeatmin curmin mylist)
(

    (IF (NULL? mylist) ;If the list is empty

        ;This is where I'm at a loss. I want a way for this value to be
        ;sent out once the list is empty
        curmin ;return the current minimum

        (IF (< curmin (CAR mylist)) ;if the current minimum is less than the head of the list
            (repeatmin curmin (CDR mylist)) ;recurse with curmin
            (repeatmin (CAR mylist) (CDR mylist)) ;otherwise recurse with the head of the list.
        )
    )
))

我真的不知道如何获得该值，一旦找到，就退出递归，因为它一直试图将值视为一个函数。

Answer 1

您的括号已关闭。如果你写

((if ...))

这意味着来自if 的结果是一个函数，一旦计算出值，就应该立即调用它。似乎您正在使用括号，就好像它们是块一样，例如 C 中的 {}，但事实并非如此。事实上(begin ...) 是Scheme 中的一个块。当然还有一个函数，let 和 cond 术语有隐含的开始.. 因此

(define (func . args)
  (begin 
    x
    y))

和

一样

(define (func . args)
  x
  y)

也请format your code correctly。缩进帮助你阅读代码和嵌套。我真的不注意括号，只注意至关重要的位置。选择一个为您执行此操作的编辑器。例如。 DrRacket 是我使用的一个不错的选择。