SHARE
TWEET

Untitled

a guest Dec 15th, 2019 59 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. (define (partition pivot num-list)
  2.     (cond ((null? num-list) '(() ()))
  3.           ((< pivot (car num-list))
  4.             (list (cons (car num-list) (car (partition pivot (cdr num-list))))
  5.                   (cadr (partition pivot (cdr num-list)))))
  6.           (else list (car (partition pivot (cdr num-list)))
  7.                      (cons (car num-list) (cadr (partition pivot (cdr num-list)))))))
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