Trouver la quantité de diviseurs

Question

J'ai besoin d'écrire une fonction dans la raquette #lang qui détermine la quantité de diviseurs d'un entier positif. (Ex: 6 a 4; 1,2,3,6 diviseurs)

Jusqu'à présent, j'ai:

(define (ab divise) (si (= 0 (modulo ab)) #t # f))

je besoin d'utiliser cette fonction d'assistance pour écrire la fonction (diviseurs-jusqu'à nk) qui qui calcule le nombre de diviseurs n est compris entre 1 et k (il calcule le nombre de diviseurs de n jusqu'à la valeur k).

Answer 1

C'est plus facile fait avec une boucle for, en particulier for/fold, étant donné que vous avez déjà votre fonction divides.

(define (divisors num) 
    (for/fold ([acc 0] 
      [n (in-range num)]) 
    (if (divides n num) <acc+1> <acc>))) 

Fondamentalement, vous êtes bouclez la liste, et en gardant un accumulateur, et chaque fois qu'un nombre est divisible, incrémenter votre accumulateur. Voyez si vous pouvez remplir les expressions pour <acc+1> et <acc> dans le code ci-dessus.

_{Vous pouvez aussi le faire avec la liste length et filter. Voyez si vous pouvez comprendre comment.}