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

    В номинации:
    За время:

  2. Perl / Говнокод #138

    −379.3

    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
    sub pfexec { args "pfexec", @_ unless $1.$2 eq "pfexec";
  local ( $_, $lp, @rep ) = @_; $lp ||= 1;
  die 'Command string must not contain $$ sequences' if m/\$\$/o;
  1 while s/\(([^()]*)\)/'$$'.push(@rep,$1)/eo;
# print $_,"REP:\n","=>",join( "\n=>", @rep),"\n";
  unshift @rep, ""; s/\s+/ /g;

LOOP: while ( $lp-- ) {
        foreach ( split ";" ){
          my @cmd = split " "; $_ = shift @cmd; last unless m/^(\w{2})(\w+)/o;
CMD:  foreach (@cmd){
                1 while s/\$\$(\d+)/'('.$rep[$1].')'/eo; s/^\(\s*(.*?)\s*\)$/$1/so;
                s/^\%(\d+)->(\w+)=//    and ${$HASH[$1]} ->{$2} = $_ and next;
                /^\%(\d+)->(\w+)/               and $_ = ${$HASH[$1]} ->{$2} and redo CMD;

                /^%%(\d+)/      and $_ = $HASH[$1] || ( $HASH[$1] = \{} ) and next;
                /^\%(\d+)/      and $_ = ${$HASH[$1]} and next;
                /^\#\#(\d+)/ and $_ = $CHAN[$1] || ( $CHAN[$1] = \{} ) and next;
                /^\#(\d+)/      and $_ = ${$CHAN[$1]} and next;
          }
          $_ = $::control{$1} && $::control{$1}{$2};
          s/\^(\d+)/$cmd[$1-1]/geo and print "Expanded to: $_\n"
                and pfexec( $_ ) if !ref;
          args $1.$2, @cmd and eval { $_->(@cmd) } if "CODE" eq ref;
          last LOOP if $@;
        }
  }

    Так пишет мой коллега

    guest, 12 Декабря 2008

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

  3. C# / Говнокод #117

    +27

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    if (Monitor.TryEnter(this))
            {
                ...
            }
            else
            {
                // do not do anything
            }

    guest, 12 Декабря 2008

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

  4. PHP / Говнокод #107

    −37.4

    1. 1
    <?php }}}}}}} ?>

    Самое яркое впечатление от кода...

    guest, 11 Декабря 2008

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

  5. PHP / Говнокод #98

    +25.8

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    while(!$a){
      $rd = rand(1,999999);
      $mdrd = md5($rd);
      db_query("SELECT * FROM players WHERE mdid = '$mdrd' LIMIT 1;");
      $fla = db_fetch();
           if(empty($fla))
           $a=1;
           }

    Молодость...
    // Поиск уникального идентификатора для юзера в базу данных.

    guest, 10 Декабря 2008

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

  6. Python / Говнокод #15

    −215

    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
    # -*- coding: utf-8 -*-
q=0
def is_sym(li):
	l=li[:]
	if len(l)%2==1:
		l.pop(len(l)/2)
	half = l[:len(l)/2]
	sec_half = l[len(l)/2:]
	sec_half.reverse()
	if(half==sec_half):
		return True
def do_sym(li):
	global q
	l=li[:]
	while (is_sym(l)!=True):
		l.insert(len(l)-q,l[q])
		q=q+1
	return l
how_much=input("Сколько? ")
lis=[]
for z in range(1,how_much+1):
	lis.append(input("Введите число №%d: " % (z, )))
sym = do_sym(lis)
print q
res = ""
for z in range(0, len(sym)):
	res=res + "%d, " % (sym[z],)
print res

    Задание на школьную олимпиаду, что удивительно - работает.

    guest, 27 Ноября 2008

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

  7. Haskell / Говнокод #29172

    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
    (ql:quickload :blockchain)
(ql:quickload :quantum)
(ql:quickload :windows)
(ql:quickload :connector-5g)
(ql:quickload :connector-4g)
(ql:quickload :nft)
(ql:quickload :nn-lisp)
(ql:quickload :rl)
(ql:quickload :cl-cuda)
(ql:quickload :cl-tpu)
(ql:quickload :cl-blas)
(ql:quickload :cl-cublas)
(ql:quickload :cudnn)
(ql:quickload :spike)
(ql:quickload :sparse-tensor)
(ql:quickload :trivial-cpu)

(defpackage :skynet.core.nn
  (:use :cl))

;; AGPL 3.0
;; ALL RIGHTS ARE RESERVED

;;;; *-* Mode: Lisp *-*
;; Author: John McCarthy II
;; License: AGPL 3.0
;; File: skynet-nn.lisp
;; Filepath: skynet/core/skynet-nn.lisp
;;;;

(defun ai-cublas-tpu-engine-nft-innovative-algorithm-revolutionary-neural-network-blas-cudnn-5g-4g-quantum-blockchain-lstm-rnn-cnn-gru-fnn-fc-resnet-big-data-machine-learning-data-science (blockchain 5g ai)
  "Uploads information from the blockchain to artificial intelligence through modern technologies"

  ;; Initialize the blockchain and adapter

  (let* ((msg "GET_BLOCKCHAIN_AI_DATA")
            (data (or 
                         (connector-5g:load-data-from-server msg)
                         (connector-4g:load-data-from-server msg)))
            (nn-prediction (nn-lisp:forward ai data))
            (device (or
                           (tpu:is-available)
                           (gpu:is-available)
                           (trivial-cpu:get-device))))
  (setf (blockchain:data blockchain) nn-prediction)
  (setf (blockchain:silent-mode blockchain) nil)
  (setf (blockchain:backend blockchain) device)
  (blockchain:start-blockchain blockchain))

  ;; Now we need to use hardware acceleration

  (defun relu ())
  (defun sigmoid ())
   
  (setf #'relu (or #'cudnn:relu #'nnl2:relu)
           #'sigmoid (or #'cudnn:sigmoid #'nnl2:sigmoid)) 
   

  ;; We get a prediction of a modern neural network spike

  (let ((snn (spike:make-snn :in 4 :out 8 :reward (rl:make-q-table)))) (blockchain:transfer blockchain :to snn :alignment 4)
  (windows:make-snapshot)
  (quantum:lparallel #'(lambda () (spike:prediction :keyc #'relu :keyd #'sigmoid :to ai :meta (nft:get-latest-metadata))

  ;; We copy the AI data to the tensor and return

  (let ((data (sparse:make-tensor (nnl-lisp:data ai))))
    data))

    lisp-worst-code, 15 Августа 2025

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

  8. Си / Говнокод #29091

    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
    extern char* strcat( char* dest, const char* src );
extern int   printf ( const char * restrict format, ... );
extern int   putchar( int ch );

#define LISPER(n, l, re) ({                                                                                                     \
                auto int ii = l;                                                                                                          \
                static unsigned char n[l];                                                                                      \                           
                while (ii--) {                                                                                                             \
                    *str##n(n, (unsigned char[]){0x09 >> 1 << 1, 0x1911 >> 0xD});                \
                };                                                                                                                               \
                *((void**)&re) = printf((unsigned char[]){0x25, 0x73, 0x1917 >> 0xE}, n); \
                })

struct bombitterLemon{
    union {
        unsigned char   : 0;
        unsigned char   : 0;
        unsigned char v: 7;
    } pacific;
};

int main(void) {

    struct bombitterLemon b0; 

    LISPER(cat, 0x40 ^ (2 << 2), b0);
    (*putchar) (*(struct wtf**)&b0);
    LISPER(cat, ((int) (((char*)   (0x8 ^ (1 << 6))) - 3) | 1), b0);
    (**putchar) (*(struct is***)&b0);
    LISPER(cat, ((int) (((short*)  (0x9 << 3))) | 4), b0);
    (***putchar) (*(struct that****)&b0);
    LISPER(cat, ((int) (((int*)    (0x12 << 2))) | 4), b0);
    (**putchar) (*(unsigned char*****)&b0);
    LISPER(cat, ((int) (((long*)   (0x90 >> 1))) | 4 | 2 | 1), b0);
    (*putchar) (b0.pacific.v);

}

    Классический собесный говнокод для кунов на громкие позиции malware ANALyst, security дрист-searcher и даже (о, ужас) compiler devteam в известные шарашки.
    Шланг<15 и ICC жуют с говном не глядя. Чего не сказать о бычаре, дристающего на коврик.
    Осилил, анонимус? Поясни пацанам на пальцах за высер без единого include с ноября прошлого.

    Dulldonch1k, 13 Февраля 2025

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

  9. Куча / Говнокод #28853

    +1

    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
    import std.stdio;

interface A {
    void M();
}

interface B : A {
    final void M() {
        writeln("BBBB");
    }
}

class C : B {

}

void main() {
    auto c = new C();
    c.M();
}

    а багры здесь тихие

    > Error: class `C` interface function `void M()` is not implemented

    Desktop, 20 Сентября 2023

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

  10. Assembler / Говнокод #28811

    0

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    9. 9
    PROCEDURE DIVISION.
  COMPUTE NUMC = (NUM1 * NUM2).
  DIVIDE NUMA BY NUMB GIVING RES-DIV.
  MULTIPLY NUMA BY NUMB GIVING RES-MULT.
  SUBTRACT NUMA FROM NUMB GIVING RES-SUB.
  ADD NUMA TO NUMB GIVING RES-ADD.
  MOVE NUMA TO RES-MOV.
  ...
  STOP RUN.

    Как вам такой код?

    JloJle4Ka, 01 Июля 2023

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

  11. JavaScript / Говнокод #28518

    0

    1. 1
    const govnoMochi = `$mocha.govno` ?? "Ваше говно не определено";

    ISO, 20 Декабря 2022

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