Post Lisp Code

JUST POST SOME FUCK ING LISP!!!!

(defun generate-expr (&key fn-list term-list max-depth method)
  (if (or (= max-depth 0)
      (and (eq method :grow)
           (< (random 1.0)
          (/ (length term-list) (+ (length term-list) (length fn-list))))))
      (nth (random (length term-list)) term-list)
      (let* ((fn (nth (random (length fn-list)) fn-list))
         (arity (length `(swank-backend:arglist ,fn))))
    (cons fn (loop for i from 0 to arity
         collect (generate-expr :fn-list fn-list :term-list term-list :max-depth (1- max-depth) :method method))))))

ABBA - Lay All Your Sexp On Me

I was depressive before we met
Now every bracket I see is a potential threat
And I'm possessive, it isn't nice
You've heard me saying that Python was my only vice
But now it isn't #t
Now everything is new
And all I've learned has overturned
I beg of you...

Don't go wasting computation
Lay all your sexp on me

It was like consing a sitting box
A little Smalltalk, a Scheme and baby I was stuck
I still don't know what you've done with me
A grown-up coder should never fall so easily
I feel a kind of fear
When I don't have you near
Unsatisfied, I skip my pride
I beg you dear...

Don't go wasting computation
Lay all your sexp on me
Don't go sharing your devotion
Lay all your sexp on me

I've had a few little C affairs
They didn't last very long and they've been pretty scarce
I used to think that I wasn't functional
It makes the #t even more incomprehensible
'cause everything is new
And everything is you
And all I've learned has overturned
What can I do...

Don't go wasting computation
Lay all your sexp on me
Don't go sharing your devotion
Lay all your sexp on me