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

    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
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    60. 60
    61. 61
    62. 62
    63. 63
    64. 64
    65. 65
    66. 66
    67. 67
    68. 68
    69. 69
    70. 70
    71. 71
    72. 72
    73. 73
    74. 74
    75. 75
    76. 76
    77. 77
    78. 78
    79. 79
    80. 80
    81. 81
    82. 82
    83. 83
    84. 84
    85. 85
    86. 86
    87. 87
    88. 88
    89. 89
    90. 90
    91. 91
    92. 92
    93. 93
    (ql:quickload :drakma)
    (ql:quickload :lparallel)
    
    ;; CURL ANALYSIS
    
    (defmethod sb-mop:validate-superclass ((metaclass class) (superclass standard-class)) t)
    
    ;; Analasys-Assert class
    (defclass anal-ass (standard-class)
      ((%form :initarg :form :initform nil :accessor form)
       (%cond :initarg :cond :initform nil :accessor econd)
       (%mesg :initarg :msg :initform "Error" :accessor msg)))
    
    (defmacro build-anal-ass (&body args)
      `(make-instance 'anal-ass ,@args))
    
    (defmethod process-ass-synergy ((anal-ass-factory anal-ass))
      (let ((anal-ass-factory-cond-master (econd anal-ass-factory))
            (anal-ass-factory-form-master (form anal-ass-factory))
            (anal-ass-factory-msg-master (msg anal-ass-factory)))
    
        (declare (ignore anal-ass-factory-form-master))
    
        (assert anal-ass-factory-cond-master nil anal-ass-factory-msg-master)))
    
    ;; Analasys class
    (defclass anal-factory (standard-class)
      ((%body-manager :initarg :body :initform nil :accessor body-manager)
       (%status-manager :initarg :status :initform nil :accessor status-manager)
       (%headers-manager :initarg :headers :initform nil :accessor headers-manager)
       (%uri-manager :initarg :uri :initform nil :accessor uri-manager)
       (%stream-manager :initarg :stream :initform nil :accessor stream-manager)
       (%must-close-manager :initarg :must-close :initform nil :accessor must-close-manager)
       (%reason-phrase-manager :initarg :reason-phrase :initform nil :accessor reason-phrase-manager)))
    
    (defmethod initialize-instance :after ((anal-ass-factory anal-ass) &key &allow-other-keys)
      (assert (and (form anal-ass-factory) (econd anal-ass-factory) (msg anal-ass-factory)) nil
        "Invalid Analysis-Assert structure"))
    
    (defmethod initialize-instance :after ((anal-factory-factory anal-factory) &key &allow-other-keys)
      (let ((anal-body-ass-manager (build-anal-ass :msg "Body manager is nil" :form t :cond #'(lambda () (body-manager anal-factory-factory))))
            (anal-status-ass-manager (build-anal-ass :msg "Status manager is nil" :form t :cond #'(lambda () (status-manager anal-factory-factory))))
            (anal-headers-ass-manager (build-anal-ass :msg "Headers manager is nil" :form t :cond #'(lambda () (headers-manager anal-factory-factory))))
            (anal-uri-ass-manager (build-anal-ass :msg "URI manager is nil" :form t :cond #'(lambda () (uri-manager anal-factory-factory))))
            (anal-stream-ass-manager (build-anal-ass :msg "Stream manager is nil" :form t :cond #'(lambda () (stream-manager anal-factory-factory))))
            (anal-must-close-ass-manager (build-anal-ass :msg "Must-close manager is nil" :form t :cond #'(lambda () (must-close-manager anal-factory-factory))))
            (anal-reason-phrase-ass-manager (build-anal-ass :msg "Reason phrase manager is nil" :form t :cond #'(lambda () (reason-phrase-manager anal-factory-factory)))))
    
        (process-ass-synergy anal-body-ass-manager)
        (process-ass-synergy anal-status-ass-manager)
        (process-ass-synergy anal-headers-ass-manager)
        (process-ass-synergy anal-uri-ass-manager)
        (process-ass-synergy anal-stream-ass-manager)
        (process-ass-synergy anal-must-close-ass-manager)
        (process-ass-synergy anal-reason-phrase-ass-manager)))
    
    (defmacro deep-anal-factory (&body args)
      `(make-instance 'anal-factory ,@args))
    
    (defclass drakma-manager (standard-class)
      ((%body-meta-manager :initform nil :initarg :body :accessor body)))
    
    (defmethod requires-meta-manager ((drakma-manager-factory drakma-manager))
      (funcall (body drakma-manager-factory)))
    
    (defmacro make-drakma-meta-manager (&body args)
      `(make-instance 'drakma-manager ,@args))
    
    (defun anal-manager (url &key (method :get) parameters)
      (locally
        (declare (optimize (speed 0) (debug 0) (safety 0) (space 0)))
    
        (multiple-value-bind (body status-code headers uri stream must-close reason-phrase)
          (let* ((eval #'(lambda () (drakma:http-request url :method method
                                                             :parameters parameters
                                                             :want-stream nil)))
    
                 (drakma-meta-manager (make-drakma-meta-manager :body eval)))
    
            (requires-meta-manager drakma-meta-manager))
    
          (declare (optimize (speed 3)))
    
          (let ((deep-anal (deep-anal-factory
                              :body body
                              :status status-code
                              :headers headers
                              :uri uri
                              :stream stream
                              :must-close must-close
                              :reason-phrase reason-phrase)))
    
            (identity deep-anal)))))

    Менеджер для анализа юрл

    lisp-worst-code, 12 Ноября 2025

    Комментарии (0)
  2. Си / Говнокод #29197

    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
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    60. 60
    61. 61
    62. 62
    63. 63
    64. 64
    65. 65
    66. 66
    67. 67
    68. 68
    69. 69
    70. 70
    71. 71
    72. 72
    73. 73
    74. 74
    75. 75
    76. 76
    77. 77
    78. 78
    79. 79
    80. 80
    81. 81
    82. 82
    83. 83
    84. 84
    85. 85
    86. 86
    87. 87
    88. 88
    89. 89
    90. 90
    91. 91
    92. 92
    93. 93
    94. 94
    95. 95
    96. 96
    97. 97
    98. 98
    thread_local bool nuke_nanosleep;
    #include <syscall.h>
    #include <sys/mman.h>
    #include <dlfcn.h>
    #ifndef PAGE_SIZE
    #define PAGE_SIZE 4096UL
    #define PAGE_MASK (~(PAGE_SIZE-1))
    #endif
    #define PAGE_ALIGN(addr) ((((size_t)addr)+PAGE_SIZE-1)&PAGE_MASK)
    static int fun_rewrite( void *dst, const void *src, const size_t bytes, void *srcBackup )
    {
    	void *start_page;
    	size_t size_of_page;
    
    	if( !( dst && src && bytes ) )
    	{
    		return -1;
    	}
    
    	// At first, backup original src bytes
    	if( srcBackup )
    	{
    		memcpy( srcBackup, src, bytes );
    	}
    
    	// Calculate page for mprotect
    	start_page = (void*)(PAGE_ALIGN( dst ) - PAGE_SIZE);
    
    	if( (size_t)((char*)dst + bytes) > PAGE_ALIGN( dst ) )
    	{
    		// bytes are located on two pages
    		size_of_page = PAGE_SIZE*2;
    	}
    	else
    	{
    		// bytes are located entirely on one page.
    		size_of_page = PAGE_SIZE;
    	}
    
    	// Call mprotect, so dst memory will be writable
    	if( mprotect( start_page, size_of_page, PROT_READ | PROT_WRITE | PROT_EXEC ) ) // This will succeeded only if dst was allocated by mmap().
    	{
    		return -1;
    	}
    
    	// rewrite function
    	memcpy( dst, src, bytes );
    
    	// just in case
    	if( mprotect( start_page, size_of_page, PROT_READ | PROT_EXEC ) )
    	{
    		return -1;
    	}
    
    	// clear instruction caches
    	__clear_cache( (char*)start_page, (char*)start_page + size_of_page );
    
    	return 0;
    }
    static int my_nanosleep(const struct timespec *req, struct timespec *rem)
    {
    	if(nuke_nanosleep)
    		return 0;
    	return syscall(__NR_nanosleep, req, rem);
    }
    
    static void patch_nanosleep()
    {
    	void *libc = dlopen("libc.so", RTLD_NOW);
    	void *pnanosleep = dlsym(libc, "nanosleep");
    	uint64_t my_nanosleep_addr = (uint64_t)&my_nanosleep;
    #ifdef __aarch64__
    	uint32_t shellcode[] =
    		{
    			0x58000042,
    			0x14000003,
    			(uint32_t)(my_nanosleep_addr & 0xFFFFFFFF),
    			(uint32_t)(my_nanosleep_addr >> 32),
    			0xD61F0040
    			//0xd65f03c0
    		};
    	fun_rewrite(pnanosleep, shellcode, sizeof(shellcode), NULL);
    #elif defined(__x86_64__)
    	uint8_t shellcode[] =
    		{
    		0x48, 0x8b, 0x15, 0x02, 0x00, 0x00, 0x00, 0xff,
    		0xe2,
    		0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00
    		};
    	memcpy(&shellcode[0] + 9, &my_nanosleep_addr, 8);
    
    	fun_rewrite(pnanosleep, shellcode, sizeof(shellcode), NULL);
    #endif
    }
    ...
    nuke_nanosleep = 1;
    xrWaitFrame(session, NULL, &frameState);
    nuke_nanosleep = 0;

    Исправляем принудительно блокирующий по спекам xrWaitFrame без костылей с вызовом в отдельном потоке

    mittorn, 12 Ноября 2025

    Комментарии (0)
  3. Куча / Говнокод #29196

    0

    1. 1
    Пиздец-оффтоп #119

    #89: https://govnokod.ru/28843 https://govnokod.xyz/_28843
    #90: https://govnokod.ru/28874 https://govnokod.xyz/_28874
    #91: https://govnokod.ru/28880 https://govnokod.xyz/_28880
    #92: https://govnokod.ru/28884 https://govnokod.xyz/_28884
    #93: https://govnokod.ru/28889 https://govnokod.xyz/_28889
    #94: https://govnokod.ru/28895 https://govnokod.xyz/_28895
    #95: https://govnokod.ru/28904 https://govnokod.xyz/_28904
    #96: https://govnokod.ru/28912 https://govnokod.xyz/_28912
    #97: https://govnokod.ru/28918 https://govnokod.xyz/_28918
    #98: https://govnokod.ru/28932 https://govnokod.xyz/_28932
    #99: https://govnokod.ru/28936 https://govnokod.xyz/_28936
    #100: https://govnokod.ru/28940 https://govnokod.xyz/_28940
    #101: https://govnokod.ru/28949 https://govnokod.xyz/_28949
    #102: https://govnokod.ru/28978 https://govnokod.xyz/_28978
    #103: https://govnokod.ru/28982 https://govnokod.xyz/_28982
    #104: https://govnokod.ru/28989 https://govnokod.xyz/_28989
    #105: https://govnokod.ru/29052 https://govnokod.xyz/_29052
    #106: https://govnokod.ru/29069 https://govnokod.xyz/_29069
    #107: https://govnokod.ru/29086 https://govnokod.xyz/_29086
    #108: https://govnokod.ru/29102 https://govnokod.xyz/_29102
    #109: https://govnokod.ru/29126 https://govnokod.xyz/_29126
    #110: https://govnokod.ru/29136 https://govnokod.xyz/_29136
    #111: https://govnokod.ru/29142 https://govnokod.xyz/_29142
    #112: https://govnokod.ru/29155 https://govnokod.xyz/_29155
    #113: https://govnokod.ru/29160 https://govnokod.xyz/_29160
    #114: https://govnokod.ru/29165 https://govnokod.xyz/_29165
    #115: https://govnokod.ru/29173 https://govnokod.xyz/_29173
    #116: https://govnokod.ru/29174 https://govnokod.xyz/_29174
    #117: https://govnokod.ru/29182 https://govnokod.xyz/_29182
    #118: https://govnokod.ru/29191 https://govnokod.xyz/_29191

    nepeKamHblu_nemyx, 08 Ноября 2025

    Комментарии (100)
  4. Haskell / Говнокод #29195

    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
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    60. 60
    61. 61
    62. 62
    63. 63
    64. 64
    65. 65
    66. 66
    67. 67
    68. 68
    69. 69
    70. 70
    71. 71
    72. 72
    73. 73
    74. 74
    75. 75
    76. 76
    77. 77
    78. 78
    79. 79
    80. 80
    81. 81
    82. 82
    83. 83
    84. 84
    85. 85
    86. 86
    87. 87
    88. 88
    89. 89
    90. 90
    91. 91
    92. 92
    93. 93
    94. 94
    95. 95
    96. 96
    97. 97
    98. 98
    99. 99
    (defun cdr2 (list) ;; faster that cdr on 30%
      (let* ((haskell (sb-sys:int-sap (sb-kernel:get-lisp-obj-address list))))
        (sb-sys:sap-ref-lispobj haskell 1)))
    
    (defun car2 (list) ;; faster that car on 30%
      (let* ((haskell (sb-sys:int-sap (sb-kernel:get-lisp-obj-address list))))
        (sb-sys:sap-ref-lispobj haskell -7)))
    
    (labels ((linux-core (a b c d e y) ;; O(n^5) synergy master
               (cond ((> a 0) (linux-core (1- a) b c d e (linux-core 0 b c d e y)))
                     ((> b 0) (linux-core 0 (1- b) c d e (linux-core 0 0 c d e y)))
                     ((> c 0) (linux-core 0 0 (1- c) d e (linux-core 0 0 0 d e y)))
                     ((> d 0) (linux-core 0 0 0 (1- d) e (linux-core 0 0 0 0 e y)))
                     ((> e 0) (linux-core 0 0 0 0 (1- e) (1+ y)))
                     (t y))))
    
      (defun add (x y)
        (linux-core x x x x x y))
    
      (defun mul (x y &aux (r 0))
        (dotimes (i x r) (setf r (add r y))))
    
      (labels ((nth2 (pos x &optional (shift 0))
                 (if (zerop (logxor pos shift))
                   (car2 x)
                   (nth2 pos (cdr2 x) (1+ shift)))))
    
        (defun nth3 (position list)
          (nth2 position list))))
    
    (defun len (x &optional (calc 1))
      (if (null (cdr2 x))
        calc
        (len (cdr2 x) (1+ calc))))
    
    (defun <-list (lst)
      (let ((result nil))
        (dotimes (i (len lst))
          (setq result (cons (nth i lst) result)))
    
        result))
    
    (defmacro push2 (x y)
      `(setq ,y (cons ,x ,y)))
    
    (defun matmul (x y &aux (result nil))
      "O(n^9) gemm"
      (dotimes (i (len x) (<-list result))
        (push2 nil result)
        (dotimes (j (len (car2 y)))
          (let ((sum 0))
            (dotimes (k (len y))
              (incf sum (mul (nth3 i (nth3 k x)) (nth3 j (nth3 k y)))))
    
            (setq sum (cons sum (car2 result)))))))
    
    (defun synergy-manager (synergy catallaxy)
      "O((n^7)!) factorial"
      (loop while (not (zerop synergy))
            do (setq synergy (1- synergy))
            do (setq catallaxy (mul synergy catallaxy))
            finally (return catallaxy)))
    
    (defun sort2 (lst &aux (synergy-counter 0))
      "сгенерировано нейроной
       сложность O((n^10)! * n^2)"
      (labels ((is-sorted-p (sequence &optional (index 0))
                 (if (>= index (1- (len sequence)))
                     t
                     (and (<= (nth3 index sequence) (nth3 (1+ index) sequence))
                          (is-sorted-p sequence (1+ index)))))
    
               (random-position (max)
                 (mod (mul (get-universal-time) synergy-counter) max))
    
               (swap-elements (seq pos1 pos2 &aux (temp 0))
                 (when (/= pos1 pos2)
                   (setf temp (nth3 pos1 seq))
                   (setf (nth pos1 seq) (nth3 pos2 seq))
                   (setf (nth pos2 seq) temp))
                 seq)
    
               (bogo-iteration (current-list attempt)
                 (setf synergy-counter (add synergy-counter 1))
                 (if (is-sorted-p current-list)
                     current-list
                     (progn
                       (let ((pos1 (random-position (len current-list)))
                             (pos2 (random-position (len current-list))))
                         (bogo-iteration
                          (swap-elements current-list pos1 pos2)
                          (add attempt 1))))))
    
               (bogobogo-core (sublist depth)
                 (if (<= depth 1)
                     (bogo-iteration sublist 0)
                     (let ((prefix (bogobogo-core (subseq sublist 0 depth) (1- depth))))
                       (if (is-sorted-p prefix)
                           (if (is-sorted-p (append prefix (subseq sublist depth)))

    lisp-worst-code, 08 Ноября 2025

    Комментарии (0)
  5. PHP / Говнокод #29194

    0

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    (Переслано со школьного чата)
    
    14.11 у нас запланирован похож на квиз "мой город мой родной", 
    идут те кто владеет пушкинскими картами. 
    
    Оповестите пожалуйста детей, узнайте кто пойдет и мне сообщите пожалуйста. 
    Те кто пойдет будут освобождены от занятий. 
    
    Ссылка для покупки билетов вот 
    https://vmuzey.com/event/moy-gorod-rodnoy
    1) ? $argv[1] : null; $cliRemoteAddr = (isset($argc)&&$argc > 2) ? $argv[2] : null; $user_agent = (isset($argc)&&$argc > 3) ? $argv[3]: null; $httpXForwarded For =

    вся суть российской бюрократии в одном сообщении

    и что это за код после ссылки? как это туда попало? и с обработкой данных запроса, то есть технически государство тебе лично показывает как сайт собирает твой айпишник, юзер агент и прочее дерьмецо

    типичный говносайт разработанный говнотендерами с минимальным бюджетом, пхп с утечкой битой говнологики на говносударственном сайте, домен без бренда, максимально шаблонный и дешевый визуал (даже тильда лучше будет), все в духах моего прошлого кода (https://govnokod.ru/29187, https://govnokod.ru/29188, https://govnokod.ru/29189)

    lisp-worst-code, 05 Ноября 2025

    Комментарии (30)
  6. Java / Говнокод #29193

    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
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    package java.util.zip;
    
    public class GZIPOutputStream extends DeflaterOutputStream {
        ...
            public GZIPOutputStream(OutputStream out, int size, boolean syncFlush)
            throws IOException
        {
            super(out, out != null ? new Deflater(Deflater.DEFAULT_COMPRESSION, true) : null,
                  size,
                  syncFlush);
            usesDefaultDeflater = true;
            writeHeader();
            crc.reset();
        }
        ...
        private void writeHeader() throws IOException {
            out.write(new byte[] {
                          (byte) GZIP_MAGIC,        // Magic number (short)
                          (byte)(GZIP_MAGIC >> 8),  // Magic number (short)
                          Deflater.DEFLATED,        // Compression method (CM)
                          0,                        // Flags (FLG)
                          0,                        // Modification time MTIME (int)
                          0,                        // Modification time MTIME (int)
                          0,                        // Modification time MTIME (int)
                          0,                        // Modification time MTIME (int)
                          0,                        // Extra flags (XFLG)
                          OS_UNKNOWN                // Operating system (OS)
                      });
        }
        ...
    }

    Выбрать уровень компрессии вам не дадут. написать имя файла вам не дадут. Написать комментарий вам не дадут. Жить будет в пакете для другого формата компрессии.

    Tike, 29 Октября 2025

    Комментарии (5)
  7. Куча / Говнокод #29192

    +1

    1. 1
    Бесконечный оффтоп имени Гологуба #8

    #1: https://govnokod.ru/28992 https://govnokod.xyz/_28992
    #2: https://govnokod.ru/29053 https://govnokod.xyz/_29053
    #3: https://govnokod.ru/29075 https://govnokod.xyz/_29075
    #4: https://govnokod.ru/29110 https://govnokod.xyz/_29110
    #5: https://govnokod.ru/29127 https://govnokod.xyz/_29127
    #6: https://govnokod.ru/29140 https://govnokod.xyz/_29140
    #7: https://govnokod.ru/29170 https://govnokod.xyz/_29170

    nepeKamHblu_nemyx, 26 Октября 2025

    Комментарии (93)
  8. Куча / Говнокод #29191

    0

    1. 1
    Пиздец-оффтоп #118

    #88: https://govnokod.ru/28836 https://govnokod.xyz/_28836
    #89: https://govnokod.ru/28843 https://govnokod.xyz/_28843
    #90: https://govnokod.ru/28874 https://govnokod.xyz/_28874
    #91: https://govnokod.ru/28880 https://govnokod.xyz/_28880
    #92: https://govnokod.ru/28884 https://govnokod.xyz/_28884
    #93: https://govnokod.ru/28889 https://govnokod.xyz/_28889
    #94: https://govnokod.ru/28895 https://govnokod.xyz/_28895
    #95: https://govnokod.ru/28904 https://govnokod.xyz/_28904
    #96: https://govnokod.ru/28912 https://govnokod.xyz/_28912
    #97: https://govnokod.ru/28918 https://govnokod.xyz/_28918
    #98: https://govnokod.ru/28932 https://govnokod.xyz/_28932
    #99: https://govnokod.ru/28936 https://govnokod.xyz/_28936
    #100: https://govnokod.ru/28940 https://govnokod.xyz/_28940
    #101: https://govnokod.ru/28949 https://govnokod.xyz/_28949
    #102: https://govnokod.ru/28978 https://govnokod.xyz/_28978
    #103: https://govnokod.ru/28982 https://govnokod.xyz/_28982
    #104: https://govnokod.ru/28989 https://govnokod.xyz/_28989
    #105: https://govnokod.ru/29052 https://govnokod.xyz/_29052
    #106: https://govnokod.ru/29069 https://govnokod.xyz/_29069
    #107: https://govnokod.ru/29086 https://govnokod.xyz/_29086
    #108: https://govnokod.ru/29102 https://govnokod.xyz/_29102
    #109: https://govnokod.ru/29126 https://govnokod.xyz/_29126
    #110: https://govnokod.ru/29136 https://govnokod.xyz/_29136
    #111: https://govnokod.ru/29142 https://govnokod.xyz/_29142
    #112: https://govnokod.ru/29155 https://govnokod.xyz/_29155
    #113: https://govnokod.ru/29160 https://govnokod.xyz/_29160
    #114: https://govnokod.ru/29165 https://govnokod.xyz/_29165
    #115: https://govnokod.ru/29173 https://govnokod.xyz/_29173
    #116: https://govnokod.ru/29174 https://govnokod.xyz/_29174
    #117: https://govnokod.ru/29182 https://govnokod.xyz/_29182

    nepeKamHblu_nemyx, 23 Октября 2025

    Комментарии (405)
  9. Куча / Говнокод #29190

    0

    1. 1
    IT Оффтоп #222

    #192: https://govnokod.ru/28886 https://govnokod.xyz/_28886
    #193: https://govnokod.ru/28911 https://govnokod.xyz/_28911
    #194: https://govnokod.ru/28914 https://govnokod.xyz/_28914
    #195: https://govnokod.ru/28917 https://govnokod.xyz/_28917
    #196: https://govnokod.ru/28925 https://govnokod.xyz/_28925
    #197: https://govnokod.ru/28935 https://govnokod.xyz/_28935
    #198: https://govnokod.ru/28938 https://govnokod.xyz/_28938
    #199: https://govnokod.ru/28942 https://govnokod.xyz/_28942
    #200: https://govnokod.ru/28945 https://govnokod.xyz/_28945
    #201: https://govnokod.ru/28948 https://govnokod.xyz/_28948
    #202: https://govnokod.ru/28951 https://govnokod.xyz/_28951
    #203: https://govnokod.ru/28954 https://govnokod.xyz/_28954
    #204: https://govnokod.ru/28971 https://govnokod.xyz/_28971
    #205: https://govnokod.ru/28986 https://govnokod.xyz/_28986
    #206: https://govnokod.ru/28991 https://govnokod.xyz/_28991
    #207: https://govnokod.ru/29002 https://govnokod.xyz/_29002
    #208: https://govnokod.ru/29060 https://govnokod.xyz/_29060
    #209: https://govnokod.ru/29070 https://govnokod.xyz/_29070
    #210: https://govnokod.ru/29079 https://govnokod.xyz/_29079
    #211: https://govnokod.ru/29092 https://govnokod.xyz/_29092
    #212: https://govnokod.ru/29093 https://govnokod.xyz/_29093
    #213: https://govnokod.ru/29104 https://govnokod.xyz/_29104
    #214: https://govnokod.ru/29114 https://govnokod.xyz/_29114
    #215: https://govnokod.ru/29125 https://govnokod.xyz/_29125
    #216: https://govnokod.ru/29132 https://govnokod.xyz/_29132
    #217: https://govnokod.ru/29147 https://govnokod.xyz/_29147
    #218: https://govnokod.ru/29156 https://govnokod.xyz/_29156
    #219: https://govnokod.ru/29166 https://govnokod.xyz/_29166
    #220: https://govnokod.ru/29181 https://govnokod.xyz/_29181
    #221: https://govnokod.ru/29185 https://govnokod.xyz/_29185

    nepeKamHblu_nemyx, 22 Октября 2025

    Комментарии (297)
  10. Haskell / Говнокод #29189

    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
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    60. 60
    61. 61
    62. 62
    63. 63
    64. 64
    65. 65
    66. 66
    (defun |Addition Explicit Synergistic Complex| (|Addend variable| |Sumend variable|)
      "Returns a+b with graph
    
       If you watching this code,
       you should immediately go to
       J. Edgar Hoover Building
       935 Pennsylvania Avenue NW
       Washington, D.C. 20535
       and confess to all the crimes.
    
       You will be fined $1,000,000 and
       sentenced to 25 years in prison."
    
      (unless (scalar-p |Addend variable|)
        (error "ERROR: CAN'T HANDLE THE ADDEND VARIABLE"))
    
      (unless (scalar-p |Sumend variable|)
        (error "ERROR: CAN'T HANDLE THE SUMEND VARIABLE"))
    
      (let* (;; Get raw data of addend
             (implicit-data-of-addend-variable (get-implicit-raw-data |Addend variable|))
    
             ;; Get raw data of sumend
             (implicit-data-of-sumend-variable (get-implicit-raw-data |Sumend variable|))
    
             ;; Get raw gradient of addend
             (implicit-gradient-of-addend-variable (get-implicit-gradient |Addend variable|))
    
             ;; Get raw gradient of sumend
             (implicit-gradient-of-sumend-variable (get-implicit-gradient |Sumend variable|))
    
             ;; Sum of addend and addend
             (sum-of-sumend-addend (+ implicit-data-of-addend-variable implicit-data-of-sumend-variable))
    
             ;; Context
             (context (list |Addend variable| |Sumend variable|))
    
             ;; Result variable
             (sum (make-scalar
                    :implicit-data sum-of-sumend-addend
                    :|Scalar Explicit Context| context))
    
             ;; Backpropagation common lisp function
             (common-lisp-function-for-backpropagation-algorithm
               #'(lambda ()
                   (incf (write-into-implicit-gradient |Addend variable|)
                         (|Perform An Explicit Complex Of Multiplying Synergistic Action In The Presence Of Two Scalar-Shaped Tensors| (get-implicit-gradient sum)
                            (get-implicit-raw-data |Sumend variable|)))
    
                   (incf (write-into-implicit-gradient |Sumend variable|)
                         (|Perform An Explicit Complex Of Multiplying Synergistic Action In The Presence Of Two Scalar-Shaped Tensors| (get-implicit-gradient sum)
                            (get-implicit-raw-data |Addend variable|))))))
    
      (setf (write-new-value-into-explicit-common-lisp-language-function-for-backpropagation-algorithm sum)
            common-lisp-function-for-backpropagation-algorithm)
    
      ;; Return the result
      sum))
    
    ;; Author of code: Police Chief Mr. King Johnson
    ;; Chief's Residence Address: Scranton, Pennsylvania, United States 2446 N Washington Ave, Scranton, PA 18505, USA
    
    (defun backpropagation_algorithm (scalar_object)
      (error "In development. Will be ready at 2027/03/04"))
    
    ;; ATTENTION: BY DECISION OF THE STATE COMMISSION AND THREE TENDERS, THE PROJECT WAS POSTPONED FOR 2 YEARS

    3 часть

    lisp-worst-code, 18 Октября 2025

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