Лучший говнокод за всё время

Лучший говнокод

В номинации:

Лучший рейтинг
Самый комментируемый

За время:

Haskell / Говнокод #29201

0

01
02
03
04
05
06
07
08
09
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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97

{-# LANGUAGE BangPatterns #-}

import Data.List (intercalate)

-- Тип для представления пары значений
data TwoVal = TwoVal !Int !Int
  deriving (Show, Eq)

-- Тип для пары с флагом обмена
data TwoValAndStatus = TwoValAndStatus 
  { isSwapped :: !Bool
  , twoVal    :: !TwoVal
  } deriving (Show, Eq)

-- Тип для массива (используем список для идиоматичности Haskell)
type Array = [Int]

-- Тип для массива с состоянием сортировки
data ArrayAndStatus = ArrayAndStatus
  { hasSwap :: !Bool
  , position :: !Int
  , array :: !Array
  } deriving (Show, Eq)

-- Сортировка двух элементов с возвратом статуса обмена
sort2 :: TwoVal -> TwoValAndStatus
sort2 (TwoVal a b)
  | a > b     = TwoValAndStatus True (TwoVal b a)
  | otherwise = TwoValAndStatus False (TwoVal a b)

-- Чтение пары значений из массива по позиции
readTwoVal :: Array -> Int -> Maybe TwoVal
readTwoVal arr pos
  | pos < length arr - 1 = Just $ TwoVal (arr !! pos) (arr !! (pos + 1))
  | otherwise = Nothing

-- Сохранение значения в массив по индексу
storeVal :: Array -> Int -> Int -> Array
storeVal arr val pos = 
  take pos arr ++ [val] ++ drop (pos + 1) arr

-- Сохранение пары значений в массив
storeTwoVal :: Array -> TwoVal -> Int -> Array
storeTwoVal arr (TwoVal a b) pos =
  storeVal (storeVal arr a pos) b (pos + 1)

-- Рекурсивная функция сортировки пузырьком
bubbleSortRec :: ArrayAndStatus -> ArrayAndStatus
bubbleSortRec state@(ArrayAndStatus swap pos arr)
  | pos >= length arr - 1 = 
      if not swap
        then state  -- Сортировка завершена!
        else bubbleSortRec $ ArrayAndStatus False 0 arr  -- Новый проход
  | otherwise = 
      case readTwoVal arr pos of
        Nothing -> state
        Just pair -> -- ← Переименовали переменную здесь
          let sortResult = sort2 pair
              newArr = storeTwoVal arr (twoVal sortResult) pos -- ← Используем селектор twoVal
              newSwap = swap || isSwapped sortResult
          in bubbleSortRec $ ArrayAndStatus newSwap (pos + 1) newArr

-- Основная функция сортировки
bubbleSort :: Array -> Array
bubbleSort arr = array $ bubbleSortRec $ ArrayAndStatus False 0 arr

-- Более идиоматичная версия для Haskell (альтернативная реализация)
bubbleSortIdiomatic :: Ord a => [a] -> [a]
bubbleSortIdiomatic = untilFixed bubblePass
  where
    bubblePass [] = []
    bubblePass [x] = [x]
    bubblePass (x:y:xs)
      | x > y     = y : bubblePass (x:xs)
      | otherwise = x : bubblePass (y:xs)
    
    untilFixed f x = let fx = f x
                     in if fx == x then x else untilFixed f fx

-- Функция для красивого вывода
showArray :: Show a => [a] -> String
showArray = intercalate ", " . map show

-- Главная функция
main :: IO ()
main = do
  let initialArray = [8, 2, 4, 1, 3, 5, 7, 0, 6, 9]
  let sortedArray = bubbleSort initialArray
  
  putStrLn "input"
  putStrLn $ showArray initialArray
  
  putStrLn "\nsort:"
  putStrLn $ showArray sortedArray
  
  putStrLn "\nsort2:"
  putStrLn $ showArray $ bubbleSortIdiomatic initialArray

Переписал через "ИИ" свою чисто-функциональную сортировку пузырьком на "Haskell". Оригинальный код на Си в https://govnokod.ru/27880#comment755323

j123123, 24 Ноября 2025

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

Haskell / Говнокод #29199

0

1
2
3
4
5
6
7

(defun s (f)
  (lambda (g)
    (lambda (x)
      (funcall (funcall f x) (funcall g x)))))

(let ((result #'(lambda () (funcall (funcall (funcall #'s #'(lambda (n) #'(lambda (x) (+ x n)))) #'(lambda (x) (* x x))) 5))))
  (print (funcall result)))

может, объединить ski и y комбинаторы с самодельными сумматорами и сделать самое запутанное сложение всех времен?

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

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

Haskell / Говнокод #29189

0

01
02
03
04
05
06
07
08
09
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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
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)

Haskell / Говнокод #29188

0

01
02
03
04
05
06
07
08
09
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
41
42
43
44
45

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; WARNING: THE CODE BELONGS TO        ;;
;; A NATIONAL MILITARY STRUCTURE.      ;;
;;                                     ;;
;; IF YOU READ THIS, IMMEDIATELY       ;;
;; REMOVE THE CODE FROM YOUR DEVICE.   ;;
;;                                     ;;
;; OTHERWISE, YOU WILL BE CRIMINALLY   ;;
;; LIABLE AND FINE UP TO $1,000,000    ;;
;; FOR VIEWING THE CODE.               ;;
;;                                     ;;
;; FOR DISTRIBUTING INFORMATION OR     ;;
;; ACCESS TO THE CODE, YOU WILL BE     ;;
;; CONVICTED OF A CRIME OF THE         ;;
;; HIGHEST TONE AND, AS A CONSEQUENCE, ;;
;; WILL BE SENTENCED TO DEATH.         ;;
;;                                     ;;
;; AFFERO GPL 3.0.                     ;;
;; ALL RIGHTS ARE RESERVED             ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;



;; PART III
;; UTILS

;; Author of code: Mr. Jr. Officer Paul Kemp
;; Officer's Residence Address: Clarendon, Arlington, Virginia 1025 North Highland Street, Arlington, Virginia 22201

(defmacro make-scalar (&body |Arguments|)
  "Makes an tensor

   Args:
       &body |Arguments|: Arguments of `make-scalar` function"

  `(make-instance 'scalar ,@|Arguments|))

;; PART IV
;; OPERATIONS

;; Author of code: Mr. Sr. Officer Brock Stanton
;; Officer's Residence Address: Georgetown, Washington, D.C. 3342 O Street Northwest, Washington, D.C. 20007

(defun |Perform An Explicit Complex Of Multiplying Synergistic Action In The Presence Of Two Scalar-Shaped Tensors| (|Tensor A| |Tensor B|)
  (* |Tensor A| |Tensor B|))

2 часть

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

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

Python / Говнокод #29162

0

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

n = input().strip('#')
n = int(n)
for _ in range(n):
    s = input()
    if '#' not in s:
        s = s.rstrip()
        print(s)
    else:
        i = 0
        count = 0
        while s[i].isspace():
            count += 1
            i += 1
        s = s.strip()
        l = s.split(' ')
        while True:
            item = l.pop(-1)
            if '#' in item:
                break
        if count != 0:
            l.insert(0, ' '*(count - 1))
        count = 0
        m = ' '.join(l)
        print(m.rstrip())

На вход программе подаётся натуральное число в формате #n, а затем n строк с кодом, в котором нужно удалить все комментарии и сохранить всё остальное как есть. Зачем вся эта хрень со списками, когда можно решить в несколько строк методами строк, простите за каламбур!

Permanent_Record, 27 Июля 2025

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

Python / Говнокод #29149

0

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33

def animate_fight (self, игрок):
       if self.gamedata.animate_fight == True: 
          
          if self.gamedata.fight_animation_progress < 3:
           self.gamedata.screen.blit(self.fight1, (self.x - (self.width // 2), self.y - (self.width //2) ))
           
          elif 3 <= self.gamedata.fight_animation_progress < 6:
           self.gamedata.screen.blit(self.fight2, (self.x - (self.width // 2), self.y - (self.width //2) ))

          elif  6 <= self.gamedata.fight_animation_progress < 9:
           self.gamedata.screen.blit(self.fight3, (self.x - (self.width // 2), self.y - (self.width //2) ))
           self.gamedata.screen.blit(self.fight1, (игрок.x - (self.width // 2), игрок.y - (self.width // 2) ))
          elif  9 <= self.gamedata.fight_animation_progress < 12:
           self.gamedata.screen.blit(self.fight4, (self.x - (self.width // 2), self.y - (self.width //2) ))
           self.gamedata.screen.blit(self.fight2, (игрок.x - (self.width // 2), игрок.y - (self.width // 2) ))
          elif  12 <= self.gamedata.fight_animation_progress < 15:
           self.gamedata.screen.blit(self.fight5, (self.x - (self.width // 2), self.y - (self.width //2) ))
           self.gamedata.screen.blit(self.fight3, (игрок.x - (self.width // 2), игрок.y - (self.width // 2) ))
          elif  15 <= self.gamedata.fight_animation_progress < 18:
           self.gamedata.screen.blit(self.fight6, (self.x - (self.width // 2), self.y - (self.width //2) ))
           self.gamedata.screen.blit(self.fight4, (игрок.x - (self.width // 2), игрок.y - (self.width // 2) ))
          elif  18 <= self.gamedata.fight_animation_progress < 21:
             self.gamedata.screen.blit(self.fight5, (игрок.x - (self.width // 2), игрок.y - (self.width // 2) ))

          elif  21 <= self.gamedata.fight_animation_progress < 24:
             self.gamedata.screen.blit(self.fight6, (игрок.x - (self.width // 2), игрок.y - (self.width // 2) ))
           
          elif  24 <=self.gamedata.fight_animation_progress:
             self.gamedata.animating = False
             self.gamedata.fight_animation_progress = 0
             self.gamedata.animate_fight = False
          if 24 > self.gamedata.fight_animation_progress:
           self.gamedata.fight_animation_progress += 1

Зачем делить на 3, если можно написать кучу говна?

1004w, 02 Июля 2025

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

Go / Говнокод #29116

0

1
2
3
4

koko.
  Add(1). 
  Add(2). 
  Add(3)

Такое трансоформатирование в стандартном линтере.

3_dar, 03 Апреля 2025

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

1C / Говнокод #29108

0

01
02
03
04
05
06
07
08
09
10

//Правила для КД2 дял перехода с УТ10.3 на УТ 11

Если Источник.Ссылка.Владелец.ВидНоменклатуры.ТипНоменклатуры <> Перечисления.ТипыНоменклатуры.Товар
   И Источник.Ссылка.Владелец.ВидНоменклатуры.ТипНоменклатуры <> Перечисления.ТипыНоменклатуры.Услуга Тогда
	Отказ = Истина;
КонецЕсли;

Если Источник.Ссылка.Владелец.ЕдиницаХраненияОстатков = Источник.Ссылка И Источник.Ссылка.Владелец.ЕдиницаХраненияОстатков.Коэффициент = 1 Тогда
	Отказ = Истина;
КонецЕсли;

Что может пойти не так?

k-yurii, 27 Марта 2025

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

Си / Говнокод #29100

+1

1

Почему при таком обилии языков программирования ассемблер не уходит в туман?

К нему возвращаются опять и опять, и, что удивительно, тем чаще, чем язык высокоуровневей.

Напоминает попытки быдла бросить курить.

KPblCA, 08 Марта 2025

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

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

0

1
2
3
4
5

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

Теперь-то я понимаю. Еврейский душок все крепче.

Отрадно, что по крайней мере, на говнокоде он постепенно выветривается.

doomginho, 24 Февраля 2025

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

Говнокод: по колено в коде.