пропозиції роботи
Marcin
Żuchelkowski
informatyk,
freelancer ... piszę
na prawie każdy
temat i ...
Temat: Euler się nie mylił ... (2 ^ 31)-1 jest pierwsza -...
(define (prime? p)(define (non-divisible-by n d)
(cond
((= d 1) #t)
(else (if(= (remainder n d) 0)
#f
(non-divisible-by n (- d 1))))))
(if (= p 1)
#t
(non-divisible-by p (- p 1))))
> (prime? (- (expt 2 31) 1))
#t
