Register machines for count-leaves
Implement register machines for the following procedures. Assume that the list-structure memory operations are available as machine primitives.
(define (count-leaves tree) (cond ((null? tree) 0) ((not (pair? tree)) 1) (else (+ (count-leaves (car tree)) (count-leaves (cdr tree))))))
(define (count-leaves tree) (define (count-iter tree n) (cond ((null? tree) n) ((not (pair? tree)) (+ n 1)) (else (count-iter (cdr tree) (count-iter (car tree) n))))) (count-iter tree 0))
with explicit counter:
There are no comments yet.
You must log in to post a comment.Login