Comment réparer la fonction unique entier comme un argument dans Racket

Question

J'ai besoin de quelqu'un peut expliquer pour moi comment faire cela s'il vous plaît,

divisible-par-7?

Définissez votre propre fonction de raquette qui prend un seul entier comme argument et renvoie une valeur booléenne qui indique si le nombre est divisible de manière égale par 7. Vous n'avez pas besoin de vérifier les erreurs sur l'entrée.

Entrée: Un nombre entier.

Sortie: une valeur booléenne.

Example: 

> (divisible-by-7? 14) 
#t 
> (divisible-by-7? 31) 
#f 
> (divisible-by-7? 56) 
#t 

ce que j'ai, mais je continue à recevoir erreur

(define (divisible-by-7) 
(divisible 7)) 

Answer 1

Il semble que divisible n'est pas une procédure de bibliothèque en raquette.

Essayez

(define (divide-by-7? x) 
    (= (remainder x 7) 0)) 

Alternativement, si vous souhaitez mettre en œuvre divisible? en raquette:

(define (divisible k) 
    (lambda (x) 
    (= (remainder x k) 0))) 

et de l'utiliser:

(define divide-by-7? 
    (divisible 7))