SHARE
TWEET

Untitled

MarkUa Sep 16th, 2019 87 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. (define (check li copy)
  2.      
  3.       (cond ((null? li)  copy  )
  4.            ((not (PAIR? li))
  5.                               (cons copy (li) ) )
  6.            (else
  7.                  
  8.                       (display "\n")
  9.        (display (null? li))
  10.       (display li)
  11.       (display copy)
  12.       (display "\n")
  13.       (check (cdr li  ) (cons (car li) copy ) )
  14.                  
  15.             )
  16.        )
  17.  
  18.  )
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top