1. Haskell / Говнокод #29154

    0

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    (ql:quickload :cl-json)

(defmacro penetrate-json (val shifrate)
  `(if (null ,shifrate)
     ,val)

  `(case ,shifrate
     (#XA (penetrate-json (car ,val) (cadr ,shifrate)))
     (#XF (penetrate-json (cdr ,val) (cadr ,shifrate)))
     (#XFF (penetrate-json (caadar ,val) (cadr ,shifrate)))
     (#XFA (penetrate-json (cddddr ,val) (cadr ,shifrate)))
     (#XAF (penetrate-json (caddar ,val) (cadr ,shifrate)))
     (#XFFF (penetrate-json (cdaadr ,val) (cadr ,shifrate)))
     (#XFAF (penetrate-json (cddadr ,val) (cadr ,shifrate)))
     (#XAAA (penetrate-json (caaddr ,val) (cadr ,shifrate)))))

(let ((parsed (with-open-file (stream "C:/Users/lisps/PycharmProjects/pythonProject/.venv/Scripts/commonlisp/test" :direction :input)
                (json:decode-json-from-source stream))))

  (setf (cdadar (penetrate-json (assoc :pidorasik parsed) `(,#XA ,#XFAF ,#XFFF ,#XAF ,#XF ,#XAAA ,#XFAF ,#XFF))) 100) ; oh my fucking gosh

  (with-open-file (stream "C:/Users/lisps/PycharmProjects/pythonProject/.venv/Scripts/commonlisp/test" :direction :output :if-exists :supersede)
    (json:encode-json parsed stream)))

    car/cdr ад

    Запостил: lisp-worst-code, 06 Июля 2025

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

    • ava guest6 6 дней назад # 0

      CAR/CDR-инженер
      Ответить

    • ava SVOLOCH 5 дней назад # 0

      Переведи. Мы не обязаны знать язык отстриженных нгтей
      Ответить

    • ava guest6 5 дней назад # 0

      https://x.com/purrbanism/status/1835957392313352432
      Ответить

      • ava guest6 5 дней назад # 0

        Там ещё в реплаях сортировка этажей по алфавиту.

        Адаптирую для русского языка:
        восьмой
        второй
        девятый
        десятый
        первый
        пятый
        седьмой
        третий
        четвёртый
        шестой
        Ответить

      • ava guest6 5 дней назад # 0

        Ещё было предложение сортировать по количеству буков. Если кодировка с фиксированной разрядностью и длина строки содержится в метаданных (а не null-terminated), то сортироваться будет мигом.
        Ответить

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