fonction aléatoire dans le schéma

Question

J'essaie d'obtenir une chaîne aléatoire à partir d'une liste de chaînes dans le schéma. Exemple de liste ("this" "que" "aujourd'hui" "hier") Donc, basé sur la longueur de la liste, un nombre aléatoire est créé et ce mot est sorti. Mais continue d'avoir des erreurs!

Je l'ai essayé comme ceci:

;; 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))])) 

Erreur:

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

Lorsque je tente de faire:

(random-function (random (length list)) 

sur la console que je reçois un nombre aléatoire.

Je ne comprends pas pourquoi il plante ici quand il est fait dans mon programme ??? Pourrais-je mieux faire cela plutôt que de boucler autant de fois? En Java j'aurais utilisé un tableau et donné la position directement. De toute façon pour le faire dans le schéma aussi?

Answer 1

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