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

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

В номинации:

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

За время:

C# / Говнокод #15891

+143

1
2
3
4
5

if (result == true) {
              return true;
          }
          else { return false; }
          return false;

не баян, а классика

dotFive, 03 Мая 2014

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

C# / Говнокод #15839

+138

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

private static Dictionary<RoleEnum, string> Roles = new Dictionary<RoleEnum, string>
        {
            {RoleEnum.TeamMember, "Team Member"},
            {RoleEnum.ProjectManager, "Project Manager"},
            {RoleEnum.ProgramManager, "Program Manager"},
            {RoleEnum.PortfolioManager, "Portfolio Manager"},
            {RoleEnum.Executive, "Executive"},
            {RoleEnum.Undefined, "Undefined"}
        };

        public static RoleEnum ParseRole(string role)
        {
            RoleEnum result = RoleEnum.Undefined;
            Roles
                .Where(_ => _.Value == role)
                .ToList()
                .ForEach(_ => result = _.Key);

            return result;
        }

Странное использование дикшинари, очень странное, в обратную сторону можна сказать

boades, 24 Апреля 2014

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

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

−98

1
2
3
4

if value is False:
    res = ~res
elif not value is True:
    raise AnalyzeError("Invalid value {0}".format(condition.value))

hugr, 22 Апреля 2014

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

Pascal / Говнокод #15801

+84

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

{*********** PosEx ***********}
function Posex(const substr,str:string; const startloc:integer):integer;
{Search for "substr" in "str" starting at "startloc" return 0 or the start
 postion where "substr" was found}
var
  i, j,k,ssLen, sLen, stop:integer;
  a:char;
begin
  result:=0;
  ssLen:=length(substr);
  slen:=length(str);
  stop:=slen-sslen+1; {highest feasible start location for substring}
  if (ssLen=0) or (sslen>sLen) then exit;
  a:=substr[1];  {1st letter of substr}
  i:=startloc; {start search location}
  while (i<=stop) and (result=0) do
  begin
    while (i<=stop) and (a<>str[i]) do inc(i); {find the 1st letter}
    if i<=stop then
    begin
      if sslen=1 then  result:=i {It was a 1 character search, so we're done}
      else
      begin
        j:=2;
        k:=i-1; {back "K" up by 1 so that we can use K+j as the index to the string}
        while (j<=sslen) do
        begin {compare the rest of the substring}
          if (substr[j]<>str[k+j]) then break
          else inc(j); {The letter matched, go to the next+
                   {When we pass the substring end, "while" loop will terminate}
        end;
        if (j>sslen) then
        begin
          result:=i;
          exit;
        end
        else inc(i); {that search failed, look for the next 1st letter match}
      end;
    end;
  end;
end;

Несколько вложенных циклов - это НЕ может работать быстро.
Для сравнения - функция PosEx из StrUtils.pas

function PosEx(const SubStr, S: string; Offset: Cardinal = 1): Integer;

var

  I,X: Integer;

  Len, LenSubStr: Integer;

begin

  if Offset = 1 then

    Result := Pos(SubStr, S)

  else

  begin

    I := Offset;

    LenSubStr := Length(SubStr);

    Len := Length(S) - LenSubStr + 1;

    while I <= Len do

    begin

      if S[i] = SubStr[1] then

      begin

        X := 1;

        while (X < LenSubStr) and (S[I + X] = SubStr[X + 1]) do

          Inc(X);

        if (X = LenSubStr) then

        begin

          Result := I;

          exit;

        end;

      end;

      Inc(I);

    end;

    Result := 0;

  end;

end;

А вот что пишет автор:

The Delphi "Pos" function searches for a

substring within a string.  Later versions of

Delphi also include a "PosEx" function 

which

starts the search at a given position so 

multiple calls can return all occurrences.



This program tests DFF versions of these 

two

functions. Pos was rewritten to provide a 

base

of code for PosEx.  And PosEx wll provide 

the

missing function for versions of Delphi 

before

Delphi 7.



As an unexpected bonus, it appears that the

DFF versions of Pos and Posex are slightly

quicker than the D7 versions.

brutushafens, 20 Апреля 2014

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

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

+121

1

Wct Editor forever

Ахаххахаха))

Mobac, 19 Апреля 2014

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

Pascal / Говнокод #15761

+80

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

function thttp.Get(URI: string): string;
var
  newlocation:string;
  redirect:integer;
  contenttype:string;
  i:integer;
  contentencoding:string;
  test:string;
  host:string;
begin
  redirect:=0;
  headers.clear;
  document.clear;

  uri:=stringreplace(uri,'\','/',[rfreplaceall]);

  // building the host///
  if request.host <> '' then
  headers.Add(format('Host:%s',[request.host]))
  else
  begin
    i:=pos('://',uri);
    if i>0 then
    begin
      host:=copy(uri,i+3,maxint);
      i:=pos('/',host);
      if i>0 then
      host:=copy(host,1,i-1);
      request.host:=host;
    end
    else
    begin
      i:=pos('/',uri);
      if i>0 then host:=copy(uri,1,i-1)
      else
      host:=uri;
      request.host:=host;
    end;
  end;

  if request.referer <> '' then
  headers.Add(format('Referer:%s',[request.referer]));

  if request.useragent <> '' then
  headers.Add(format('User-Agent:%s',[request.useragent]));

  if request.AcceptEncoding <> '' then
  headers.Add(format('Accept-Encoding:%s',[request.AcceptEncoding]));

  if request.contenttype <> '' then
  headers.Add('Content-Type:'+request.contenttype);

  if request.connection <> '' then
  headers.add('Connection:'+request.connection);

  HTTPMethod('GET',uri);

  if allowredirects=true then
  begin
    while (resultcode>=300) and (resultcode<400) do
    begin
      if (maxredirects <> -1) and (redirect > self.MaxRedirects) then break;
      document.clear;
      newlocation:=trim(Headers.Values['Location']);
      if newlocation='' then break;
      if (rightstr(request.host,1) <> '/') and (copy(newlocation,1,1) <> '/') then
      newlocation:='/'+newlocation;
      headers.clear;
      document.clear;
      HTTPMethod('GET',host+newlocation);
      host:=trim(headers.Values['host']);
      if host <> '' then
      request.host:=host;
      inc(redirect);
    end;
  end;
  contenttype:=Headers.Values['Content-Type'];
  contentencoding:=Headers.Values['Content-Encoding'];
  request.contentencoding:=contentencoding;
  request.contenttype:=contenttype;
  if pos('gzip',ansilowercase(contentencoding))>0 then
  begin
    mstream.clear;
    try
      GZDecompressStream(Document, MStream);
      document.Clear;
      document.LoadFromStream(mstream);
      document.Position:=0;
    except
    end;
  end;
  result:=memorystreamtostring(Document);
  if pos('charset=utf-8',ansilowercase(contenttype))>0 then
  test:=utf8toansi(result);
  if test <> '' then
  result:=test;
end;

У Булгакова есть цикл рассказов "Записки на манжетах".
Мой цикл называется "Записки на туалетной бумаге салфетках".

Итак, "Записки на салфетках. Как я обертывал Synapse".

brutushafens, 16 Апреля 2014

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

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

+123

1

drwsr

Pizda, 12 Апреля 2014

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

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

+117

1

bormand сосёт анус своему отцу, размазывая говно по лицу.

Pizda, 12 Апреля 2014

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

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

+130

1

<input id="resetbutton" class="btn btn-info" type="reset" value="Reset" name="reset"></input>

Джун порадовал. Не хватает комментария "Шоб наверняка!"

Keeper, 12 Апреля 2014

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

PHP / Говнокод #15680

+140

1

Лошади снова здесь.

Konardillo, 06 Апреля 2014

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

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