t nil

cons car cdr

cond atom eq quote

label lambda apply if

&rest


(label append

  (lambda (&rest x)

    (if x (cons (car x) (apply append (cdr x))) nil)))


(label filter

  (lambda (f s)

    (if s (if (f (car s)) (cons (car s) (filter f (cdr s))) (filter f (cdr s))) nil)))


(label qsort

  (lambda (s)

    (if s ((lambda (x xs) (append (qsort (filter (lambda (t) (< t x)) xs)) (list x) (qsort (filter (lambda (t) (>= t x)) xs)))) (car s) (cdr s))) nil)))


t

cond atom eq quote


아

기분이 좋아졌다