1. Haskell / Говнокод #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, 30 Мая 2026

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

    • ava guest6 21 час назад # 0

      Ехал list через list.
      Ответить

    • ava JloJle4Ka 16 часов назад # 0

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

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