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