Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (define (check li copy)
- (cond ((null? li) copy )
- ((not (PAIR? li))
- (cons copy (li) ) )
- (else
- (display "\n")
- (display (null? li))
- (display li)
- (display copy)
- (display "\n")
- (check (cdr li ) (cons (car li) copy ) )
- )
- )
- )
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement