Говнокод – Страница 14

Куча говна / Говнокод #29147

0

1

IT Оффтоп #217

nepeKamHblu_nemyx, 20.06.2025 (Updated 20.06.2025)

Комментарии (424, +424)

Няшная / Говнокод #29146

0

1
2
3
4
5
6
7
8
9
10
11
12
13

#include <stdio.h>

struct{int a; float b;} test()
{
  return (typeof(test())){1337, 666.666};
}

int main()
{
  auto a = test();
  printf("%d %f\n", a.a, a.b);
  return 0;
}

В стандарт C23 добавили auto и теперь можно писать такую хуйню. В "Clang" работает: https://godbolt.org/z/GG3addqPb

j123123, 17.06.2025 (Updated 17.06.2025)

Комментарии (99, +99)

Бухгалтерия / Говнокод #29145

0

1
2
3
4
5

Функция ЧислоВСтрокуБезПробелов(Число) Экспорт
	 Возврат СтрЗаменить(Строка(Число), Символы.НПП, "");
КонецФункции

Чем не подходит Формат???

evreybiysk, 10.06.2025 (Updated 10.06.2025)

Комментарии (5, +5)

Куча говна / Говнокод #29144

0

1
2
3

Хуже отсутствия документации может быть только документация
написанная на отвали, с устаревшей информацией и проебом
важных деталей, без которых говнокод не запустится даже с бубном.

BelCodeMonkey, 09.06.2025 (Updated 09.06.2025)

Комментарии (9, +9)

Хламидомонада / Говнокод #29143

0

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40

(defparameter *workers* 200)

(defun rn-virt-dfns (data &optional (turn-on t))
  (defconstant +workers+ *workers*)
  `(declare (type (array (member ,(let* ((i '())) (do* ((y 0 (+ y 1))) ((= y 9) 'nil) (push y i)))) (3)) data))
  (sb-alien:define-alien-type address-pointer (sb-alien:system-area-pointer))
  (progn (macrolet ((>> (x s) `,(ash x s)) (<< (x -s) `(ash ,x ,(- -s))) (~ (x) `(lognot ,x)) (& (x) `(sb-kernel:get-lisp-obj-address ,x)))
    (let ((truedata (eval `(mapcar #'(lambda (x) (coerce x 'list)) (coerce ,data 'list)))))
      (labels ((get-pointer (addr)
                 (sb-sys:sap-ref-8 (sb-sys:int-sap addr) 0))
               (proc-dfns-simd (pntrx mmr pntry orgdt)
                 (declare (type integer pntrx pntry)
                          (type (array integer (*)))
                          (type list orgdt))
                 (loop for it in `(,@orgdt)
                       do (let ((dif (the integer (- pntry `,(& it)))))
                            (when (= `,(abs dif) (+ #XA #X1))
                              (do ((it 0 (+ it (if `(plusp ,dif) 1 -1)))) ((= it (if `(plusp ,dif) 16 -16)) nil)
                                (ignore-errors
                                  (let ((lazy `(setf (& (get-pointer (- ,dif ,it))) #b0))
                                        (lazy-2 `(setf (~ (& (get-pointer (- ,dif ,it))) #b1))))
                                    (when turn-on (eval lazy) (eval lazy-2))))))
                            (when (/= (abs dif) 8)
                              (if `(plusp ,dif)
                                (dotimes (i 8)
                                  (ignore-errors
                                    (let ((lazy `(setf (>> (& (get-pointer (- ,dif ,i))) #x1) #b1)))
                                      (when turn-on (eval lazy)))))
                                (loop for i from 0 downto -8 by 1
                                      do (ignore-errors
                                           (let ((lazy `(setf (<< (& (get-pointer (- ,dif ,i))) #x1) #b1)))
                                              (when turn-on (eval lazy)))))))))))

        (handler-case
            (loop repeat +workers+ do (bt:make-thread #'(lambda () (proc-dfns-simd `,(& data) `,data `,(& truedata) `,truedata))))
          (error (e)
            (declare (ignore e)))))))))


(rn-virt-dfns #(#(1) #(2)))

lisp-worst-code, 08.06.2025 (Updated 08.06.2025)

Комментарии (5, +5)

Куча говна / Говнокод #29142

0

1

Пиздец-оффтоп #111

nepeKamHblu_nemyx, 08.06.2025 (Updated 08.06.2025)

Комментарии (419, +419)

Хламидомонада / Говнокод #29141

0

1
2
3
4
5
6
7
8

(defun functional-function (x)
  (setf *random-state* (make-random-state t))
  (defconstant xx (setq e (+ x 44)))
  (if (= (length lst) 1)
    (return-from functional-function (make-list))
    (if (> (car lst) (cadr lst))
      (return-from functional-function (cons lst (apply #'functional-function (setf (or (car (cdr lst)) (cadr lst)) (cadr lst)))))
      (return-from functional-function (cons lst (apply #'functional-function (setf (or (car (cdr lst)) (cadr lst)) (car lst))))))))

lisp-worst-code, 08.06.2025 (Updated 08.06.2025)

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

Куча говна / Говнокод #29140

0

1

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

#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

nepeKamHblu_nemyx, 03.06.2025 (Updated 03.06.2025)

Комментарии (442, +442)

Куча говна / Говнокод #29139

0

1
2
3
4
5

...В детстве я любил русские народные сказки из сборника Афанасьева.
Сюжет даже откровенно взрослых сказок он передавал мягко, избегая зауми; с грубоватым, народным юмором, слегка подпёздывая, а затем плавно 
и в подробностях подходя к кульминации.

После того, как я уже в зрелом возрасте прочел, как барыня заставила холопа нюхать свою пизду, я стал практиковать воздержание.

Ну его нахуй, сказка ведь может и былью статься.
Нужно срочно запретить сказки! Тем более, что все перечисленные в них извращения успешно практикуют и те дети, кому и сказок-то не читали.

3uMuCTOH, 28.05.2025 (Updated 28.05.2025)

Комментарии (1, +1)

Куча говна / Говнокод #29138

0

1
2
3
4

Афоризм "Отцы были хуже дедов, а мы и вовсе никчемны" - обрел свой истинный, ужасный смысл. 
Словно предвосхищая трескотню быдла, которое будет жалеть расстрелянных ЧК царят,  Юровский оставил примерно такие строки:
... Вероятно, новое поколение увидит в нас палачей и не поймет сразу, почему мы в ту ночь не пощадили царских отпрысков. 
Перед тем, как судить, задайте себе вопрос: в кого бы выросли, кем бы стали эти дети?..

Быдла остается катастрофически много, несмотря даже на принятые Хуйлом меры. И оно интенсивно плодит такое же быдло.
Нужно срочно развязать новую войну - с Грузией.

doomginho, 25.05.2025 (Updated 25.05.2025)

Комментарии (3, +3)