anonymous No title
No License Lisp
2021年09月19日
Copy Clone
(define (app/cc ls1 ls2)
  (let/cc
   cont
   (if (null? ls1)
       (cont ls2)
       (cons (car ls1)
	     (app/cc (cdr ls1) ls2)))))
(define (app/cc ls1 ls2)
  (let/cc
   cont
   (if (null? ls1)
       (cont ls2)
       (cons (car ls1)
	     (app/cc (cdr ls1) ls2)))))
No one still commented. Please first comment.