Advertisement
Guest User

for_blask0

a guest
Apr 25th, 2017
66
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Scheme 0.24 KB | None | 0 0
  1. (define min-max
  2.     (lambda (l)
  3.         (if (null?  cdr(l))
  4.             (car(l) car(l))
  5.             (if car(l) > car(cdr(min-max(cdr(l))))
  6.                 (car(min-max(cdr(l))) car(l))
  7.                 (if car(l) < car(min-max(cdr(l)))
  8.                     (car(l) car(cdr(min-max(cdr(l)))))
  9. )))))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement