Name:
Anonymous
2012-07-23 3:49
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))))))
Name:
Anonymous
2013-08-13 13:09
(LAMBDA (A)
(DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0) (DEBUG 0))
(TYPE FIXNUM A))
(LET ((REG (MAKE-ARRAY 256 :ELEMENT-TYPE 'FIXNUM :INITIAL-ELEMENT 0)))
(DECLARE (TYPE (SIMPLE-ARRAY FIXNUM (256)) REG)
(IGNORABLE REG))
(LABELS ((#:L980 (A #:R974 #:R975 #:R976 #:R977 #:R978 #:R979)
(DECLARE
(TYPE FIXNUM A #:R974 #:R975 #:R976 #:R977 #:R978 #:R979)
(IGNORABLE A #:R974 #:R975 #:R976 #:R977 #:R978 #:R979))
(#:L981 A A #:R975 #:R976 #:R977 #:R978 #:R979))
(#:L981 (A #:R974 #:R975 #:R976 #:R977 #:R978 #:R979)
(DECLARE
(TYPE FIXNUM A #:R974 #:R975 #:R976 #:R977 #:R978 #:R979)
(IGNORABLE A #:R974 #:R975 #:R976 #:R977 #:R978 #:R979))
(#:L982 A #:R974 A #:R976 #:R977 #:R978 #:R979))
(#:L982 (A #:R974 #:R975 #:R976 #:R977 #:R978 #:R979)
(DECLARE
(TYPE FIXNUM A #:R974 #:R975 #:R976 #:R977 #:R978 #:R979)
(IGNORABLE A #:R974 #:R975 #:R976 #:R977 #:R978 #:R979))
(#:L983 #:R974 #:R974 #:R975 #:R976 #:R977 #:R978 #:R979))
(#:L983 (A #:R974 #:R975 #:R976 #:R977 #:R978 #:R979)
(DECLARE
(TYPE FIXNUM A #:R974 #:R975 #:R976 #:R977 #:R978 #:R979)
(IGNORABLE A #:R974 #:R975 #:R976 #:R977 #:R978 #:R979))
(#:L984 (1- A) #:R974 #:R975 #:R976 #:R977 #:R978 #:R979))
(#:L984 (A #:R974 #:R975 #:R976 #:R977 #:R978 #:R979)
(DECLARE
(TYPE FIXNUM A #:R974 #:R975 #:R976 #:R977 #:R978 #:R979)
(IGNORABLE A #:R974 #:R975 #:R976 #:R977 #:R978 #:R979))
(#:L985 A A #:R975 #:R976 #:R977 #:R978 #:R979))
(#:L985 (A #:R974 #:R975 #:R976 #:R977 #:R978 #:R979)
(DECLARE
(TYPE FIXNUM A #:R974 #:R975 #:R976 #:R977 #:R978 #:R979)
(IGNORABLE A #:R974 #:R975 #:R976 #:R977 #:R978 #:R979))
(#:L986 #:R976 #:R974 #:R975 #:R976 #:R977 #:R978 #:R979))
(#:L986 (A #:R974 #:R975 #:R976 #:R977 #:R978 #:R979)
(DECLARE
(TYPE FIXNUM A #:R974 #:R975 #:R976 #:R977 #:R978 #:R979)
(IGNORABLE A #:R974 #:R975 #:R976 #:R977 #:R978 #:R979))
(#:L987 (+ A #:R975) #:R974 #:R975 #:R976 #:R977 #:R978 #:R979))
(#:L987 (A #:R974 #:R975 #:R976 #:R977 #:R978 #:R979)
(DECLARE
(TYPE FIXNUM A #:R974 #:R975 #:R976 #:R977 #:R978 #:R979)
(IGNORABLE A #:R974 #:R975 #:R976 #:R977 #:R978 #:R979))
(#:L988 A #:R974 #:R975 A #:R977 #:R978 #:R979))
(#:L988 (A #:R974 #:R975 #:R976 #:R977 #:R978 #:R979)
(DECLARE
(TYPE FIXNUM A #:R974 #:R975 #:R976 #:R977 #:R978 #:R979)
(IGNORABLE A #:R974 #:R975 #:R976 #:R977 #:R978 #:R979))
(#:L989 #:R974 #:R974 #:R975 #:R976 #:R977 #:R978 #:R979))
(#:L989 (A #:R974 #:R975 #:R976 #:R977 #:R978 #:R979)
(DECLARE
(TYPE FIXNUM A #:R974 #:R975 #:R976 #:R977 #:R978 #:R979)
(IGNORABLE A #:R974 #:R975 #:R976 #:R977 #:R978 #:R979))
(IF (ZEROP A)
(#:L990 A #:R974 #:R975 #:R976 #:R977 #:R978 #:R979)
(#:L983 A #:R974 #:R975 #:R976 #:R977 #:R978 #:R979)))
(#:L990 (A #:R974 #:R975 #:R976 #:R977 #:R978 #:R979)
(DECLARE
(TYPE FIXNUM A #:R974 #:R975 #:R976 #:R977 #:R978 #:R979)
(IGNORABLE A #:R974 #:R975 #:R976 #:R977 #:R978 #:R979))
(#:L991 #:R976 #:R974 #:R975 #:R976 #:R977 #:R978 #:R979))
(#:L991 (A #:R974 #:R975 #:R976 #:R977 #:R978 #:R979)
(DECLARE
(TYPE FIXNUM A #:R974 #:R975 #:R976 #:R977 #:R978 #:R979)
(IGNORABLE A #:R974 #:R975 #:R976 #:R977 #:R978 #:R979))
(:EXIT A #:R974 #:R975 #:R976 #:R977 #:R978 #:R979))
(:EXIT (A #:R974 #:R975 #:R976 #:R977 #:R978 #:R979)
(DECLARE (IGNORE #:R974 #:R975 #:R976 #:R977 #:R978 #:R979))
A))
(#:L980 A 0 0 0 0 0 0))))
Some generated code using labels and tail-calls rather than the tagbody/goto combination.