guile-user
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Is apply procedure not tail recursive?


From: Akop Pogosian
Subject: Is apply procedure not tail recursive?
Date: Wed, 16 Jan 2013 17:34:44 -0600

(define (zeros n)
;; Make list of n zeros
  (define (zeros-iter n lst)
    (if (= n 0)
        lst
        (zeros-iter (- n 1)
                         (cons 0 lst))))
  (zeros-iter n '()))

Results:

guile> (apply + (zeros (expt 10 3)))
$2 = 0
guile> (apply + (zeros (expt 10 4)))
$3 = 0
guile> (apply + (zeros (expt 10 5)))
ERROR: Throw to key `vm-error' with args `(vm-run "VM: Stack overflow" ())'.
guile> (apply + (zeros (expt 10 6)))

Process scheme aborted (core dumped)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]