Obtuve la “solicitud de esquema no un procedimiento” en la última llamada recursiva de una función
así que aquí está el código:
(define (time-prime-test n)
(newline)
(display n)
(start-prime-test n (runtime)))
(define (start-prime-test n start-time)
(if (prime? n)
(report-prime (- (runtime) start-time))))
(define (report-prime elapsed-time)
(display " *** ")
(display elapsed-time))
(define (search-for-primes n m)
(if (< n m)
((time-prime-test n)
(search-for-primes (+ n 1) m))
(display " calculating stopped. ")))
(search-for-primes 100000 100020)
y recibí este error después de "detener el cálculo". ha sido mostrado. como abajo:
100017 100018 100019* 54 calculando parado. . . aplicación: no es un procedimiento; Se espera un procedimiento que se pueda aplicar a los argumentos.
dado: # <void>
argumentos ...:
# <void>