Programation scheme et aritmetique en général
dimip
-
jeeve -
jeeve -
Bonjour, je dois concevoir (sous scheme) une fonction recursive qui rend vrai si un nombre est premier, faux sinon.
Dans la pratique, on me demande de trouver une relation de recurence qui montre que n n'est divisible par aucun des ses diviseurs potentiels, tous situés dans [2, n/2], ou mieux dans [2, ??] (tel que c'est écrit dans l'énoncé).
Egalement sur le meme principe de recursivité, ecrire un programme qui rend vrai si n est une puissance de 2.
Voila, si vous pouvez m'aider a solutionner ce probleme c'est super car c'est pour demain.
Dans la pratique, on me demande de trouver une relation de recurence qui montre que n n'est divisible par aucun des ses diviseurs potentiels, tous situés dans [2, n/2], ou mieux dans [2, ??] (tel que c'est écrit dans l'énoncé).
Egalement sur le meme principe de recursivité, ecrire un programme qui rend vrai si n est une puissance de 2.
Voila, si vous pouvez m'aider a solutionner ce probleme c'est super car c'est pour demain.
A voir également:
- Programation scheme et aritmetique en général
- Comment désactiver le schéma de verrouillage en cas d'oubli - Guide
- General uvc - Télécharger - Agendas & Calendriers
- Schéma cinématique en ligne - Télécharger - CAO-DAO
- Programation - Forum Python
- Uefi general udisk ✓ - Forum Windows 8 / 8.1
1 réponse
voici un programme qui genere le flott des nombres premier
(require srfi/41) ; librairie des flots
(define (flot-nb-entiers-a-partir-de n)
(stream-cons n (flot-nb-entiers-a-partir-de (+ n 1))))
(define (non-divisible-par? k)
(lambda (n) (not (zero? (remainder n k)))))
(define (crible flot)
(stream-cons (stream-car flot)
(crible (stream-filter (non-divisible-par? (stream-car flot))
(stream-cdr flot)))))
(define flot-nb-premiers (crible (flot-nb-entiers-a-partir-de 2)))
(require srfi/41) ; librairie des flots
(define (flot-nb-entiers-a-partir-de n)
(stream-cons n (flot-nb-entiers-a-partir-de (+ n 1))))
(define (non-divisible-par? k)
(lambda (n) (not (zero? (remainder n k)))))
(define (crible flot)
(stream-cons (stream-car flot)
(crible (stream-filter (non-divisible-par? (stream-car flot))
(stream-cdr flot)))))
(define flot-nb-premiers (crible (flot-nb-entiers-a-partir-de 2)))
