方案中的随机函数

Question

我正在尝试从方案中的字符串列表中获取随机字符串。 示例列表（“这个”“那个”“今天”“昨天”） 因此，根据列表的长度创建一个随机数并输出该单词。但不断出错！

我这样尝试：

;; produces random number that should be input to the random-function

(define (random-num list)

(random-function ((random (length (list))) list)))

;; loops the number of times till random number is 0 and outputs the list value

(define (random-function num list )
  (cond 
    [(zero? num) (car list)]
    [else (random-function (- num 1) (cdr list))]))

错误：

procedure application: expected procedure, given: 
("this" "that" "today" "yesterday") (no arguments)

当我尝试执行以下操作时：

(random-function (random (length list)) 

在控制台上我得到一个随机数。

不明白为什么在我的程序中完成时它会在这里崩溃？？？

我可以用更好的方式来做这件事，而不是循环很多次吗？ 在 Java 中，我会使用数组并直接给出位置。 无论如何也要在计划中做到这一点吗？

Answer 1

(define (random-element list)
  (list-ref list (random (length list))))