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

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
(let ((actions (make-list 100 :initial-element (make-list 100 :initial-element (make-list 1000 :initial-element most-negative-fixnum #| your action reward |# )))))
  (labels ((find-best-action (life)
             (if (numberp life) life (apply #'max (mapcar #'find-best-action life)))))

    (print (find-best-action actions))))  ;; the best your life outcome

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

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

  • ava JloJle4Ka # Ссылка на оригинал 0

    Ну и зачем дальше жить, если программа на Lisp уже посчитала мою жизнь?
    Ответить

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

Я, guest, находясь в здравом уме и твердой памяти, торжественно заявляю:

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

    ↑
    8
    ↓