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

    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
    (macrolet ((|(| ((&rest |)|) &body |((|) #|||# `(let ,|)| ,@|((|))
               (|))| #|||# (|(((| |))(| &body |()(|) `(defun ,|(((| ,|))(| ,@|()(|))
               (|()| (|)| |()))(()| #|||# |(((())|) `(if ,|)| ,|()))(()| ,|(((())|))
               (|))(| (|(|) `(1+ ,|(|)) (|(()| (|)|) `(1- ,|)|))
               (|((((| (|))|) `(zerop ,|))|))
               (|)()(| (|(((|) `(functionp ,|(((|))
               (|))(()| (|)(()(| &rest |(()((|) `(,|)(()(| ,@|(()((|)))
    
            ( |))| |())())()| (|)()| |)| |)(|)
              (|(| ((|)()())| #'|())())()|))
                (|))| |())())()| (|)()| |)| |()|)
                  (|(| ((|))()()))((| #'|())())()|))
                    (|()| (|((((| |()|)
                      |)|
                      (|))(()| |)()| |))()()))((| |)| |()|))))
    
                (|()| (|)()(| |)()|)
                  (|))(()| |)()| |)()())| (|))(| |)|) (|(()| |)(|))
                  (|))(()| #'|())())()| |)()())| (|))(| |)|) (|(()| |)(|))))))

    Программа складывает два числа.

    Запостил: lisp-worst-code, 10 Августа 2025

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

    • https://onecompiler.com/commonlisp/43t8puveh
      Ответить
    • Выглядит круто. Похоже на jsfuck.
      Ответить
    • Ого, даже хуз не распидорасило
      Ответить
    • Я нашёл 1+, 1-, zerop, functionp, defun! Тут есть осмысленные места!
      Ответить
    • ( ͡° ͜ʖ ͡°) Самый смешной контент из мировой сети Интернет. ( ͡° ͜ʖ ͡°)
      Ответить
      • Native American Flute, 432 Hz, Remove All Negative Energy, Shamanic Drums, Astral Projection

        @jimmie-k7o
        Im very blessed for the Cherokee Indian bloodline that flows within me. It's like second nature to me to listen this wondrous vibrationally lifting music akin to the universe itself thank you

        @roadkill2029
        This prevented a path of no return thanks for giving me the opportunity to decompress

        @contactexperiencer57
        Thank you and the Universe

        @arthurwheatley4936
        You've have brought, several moments that bring, visions, I've had of the trail'of tears, I've received, with in my dreams!!
        Ответить
    • https://govnokod.ru/18030
      Ответить

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