Хламидомонада / Говнокод #29141 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
(defun functional-function (x)
  (setf *random-state* (make-random-state t))
  (defconstant xx (setq e (+ x 44)))
  (if (= (length lst) 1)
    (return-from functional-function (make-list))
    (if (> (car lst) (cadr lst))
      (return-from functional-function (cons lst (apply #'functional-function (setf (or (car (cdr lst)) (cadr lst)) (cadr lst)))))
      (return-from functional-function (cons lst (apply #'functional-function (setf (or (car (cdr lst)) (cadr lst)) (car lst))))))))

Запостил: lisp-worst-code lisp-worst-code, (Updated )

Комментарии (0) RSS

Добавить комментарий

Помни, guest, за тобой могут следить!

    А не использовать ли нам bbcode?

    ↑
    8
    ↓