Return Racket ISL 中数字列表中的最小元素?
Return smallest element in a list of numbers in Racket ISL?
我必须在 Racket ISL 中编写一个函数,它接受一个数字列表和 returns 列表中的最小数字。不允许使用最小值和最大值。我想我从这里开始了;显然需要递归。
最后我会用这个函数来创建一个抽象的。
(check-expect (find-smallest (list 3 8 4 9 2 0 1)) 0)
(check-expect (find-smallest (list 2 3 4 5 6)) 2)
(check-expect (find-smallest (list 58 37 28 37 58 92 24)) 24)
(check-expect (find-smallest (list 19 38 46 85 19 38 19)) 19)
;; find-smallest: list of numbers -> number
;; consumes a list of numbers and returns the
;; smallest number in the list
(define (find-smallest lon)
(cond
[(empty? (rest lon)) (first lon)]
[(
看起来你的基本情况不错。您的默认情况可以如下所示:您使用 find-smallest
查找列表其余部分中的最小值,并将其与第一个元素进行比较,例如。 <
。最小的应该是结果。
也可以使用内部命名 let 循环和一个临时变量来存储最小值以找到列表中的最小数字:
(define (find-smallest l)
(let loop ((l l)
(sm (first l))) ; start with first of list as smallest
(cond
[(empty? l) sm]
[(< sm (first l))
(loop (rest l) sm)]
[else
(loop (rest l) (first l))])))
我必须在 Racket ISL 中编写一个函数,它接受一个数字列表和 returns 列表中的最小数字。不允许使用最小值和最大值。我想我从这里开始了;显然需要递归。
最后我会用这个函数来创建一个抽象的。
(check-expect (find-smallest (list 3 8 4 9 2 0 1)) 0)
(check-expect (find-smallest (list 2 3 4 5 6)) 2)
(check-expect (find-smallest (list 58 37 28 37 58 92 24)) 24)
(check-expect (find-smallest (list 19 38 46 85 19 38 19)) 19)
;; find-smallest: list of numbers -> number
;; consumes a list of numbers and returns the
;; smallest number in the list
(define (find-smallest lon)
(cond
[(empty? (rest lon)) (first lon)]
[(
看起来你的基本情况不错。您的默认情况可以如下所示:您使用 find-smallest
查找列表其余部分中的最小值,并将其与第一个元素进行比较,例如。 <
。最小的应该是结果。
也可以使用内部命名 let 循环和一个临时变量来存储最小值以找到列表中的最小数字:
(define (find-smallest l)
(let loop ((l l)
(sm (first l))) ; start with first of list as smallest
(cond
[(empty? l) sm]
[(< sm (first l))
(loop (rest l) sm)]
[else
(loop (rest l) (first l))])))