Куча — Говнокод.ру

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

+97

1
2
3
4
5

If bd12tc->mes!=num_month
  st_mes=num_month
Else
  st_mes=bd12tc->mes
EndIf

Clipper
Перевожу на работе старую программку (писалась больше 12 лет назад) в Delphi, нашёл вот такое

avstecenko, 25 Апреля 2012

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

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

+103

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

digits n  = reverse $ map (`mod` 10) (takeWhile (/= 0) (iterate (`div` 10) n))

fromDigits l = sum $ zipWith (*) (reverse l) (map (10^) [0..])

isPalindromic x = digits x == (reverse $ digits x)


f :: Integer -> [[Integer]] -> [Integer] -> Int -> [[Integer]]
f x founded lookedup niter 
                  | niter > 50 = [notlychers, [x] ++ lychers ++ lookedup, zs]
                  | nextX `elem` notlychers = [[x] ++ notlychers ++ lookedup, lychers, zs]
                  | nextX `elem` lychers = [notlychers, [x] ++ lychers ++ lookedup, zs]
                  | isPalindromic nextX = [[x] ++ notlychers ++ lookedup, lychers, zs]
                  | otherwise = f nextX founded (x : lookedup) (niter+1)
   where nextX = x + fromDigits (reverse $ digits x)
         notlychers = founded !! 0
         lychers = founded !! 1
         zs = founded !! 2

g :: [[Integer]] -> [[Integer]]
g founded = f (x-1) [xs, ys, [x-1]] [] 0
 where x  = zs !! 0
       xs = founded !! 0
       ys = founded !! 1
       zs = founded !! 2

gg n = g [[],[],[n+1]]

isLycher n = null $ (gg n) !! 0

http://projecteuler.net/problem=55
http://projecteuler.net/thread=55

>i even haven't understood why it works :(

TheHamstertamer, 23 Апреля 2012

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

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

+91

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

#include <amxmodx>

new g_MsgSync
new g_MsgSync2

new isConnected[33 char]

public plugin_init()
{
   register_plugin("Damager", "1.0", "Prayer")
   
   register_event("Damage", "EVENT_Damage", "b", "2!0", "3=0", "4!0")
   
   g_MsgSync = CreateHudSyncObj()
   g_MsgSync2 = CreateHudSyncObj()
}

public client_putinserver(id)
{
   isConnected{id} = true
}

public client_disconnect(id)
{
   isConnected{id} = false
}

public EVENT_Damage(id)
{ 
   if(isConnected{id})
   {
      static damage, pid
      damage = read_data(2)
      
      set_hudmessage(255, 0, 0, 0.45, 0.50, 2, 0.1, 4.0, 0.1, 0.1, -1)
      ShowSyncHudMsg(id, g_MsgSync2, "%d", damage)
   
      pid = get_user_attacker(id)
      
      if((pid > 0) && (pid < 33) && isConnected{pid})
      {
         set_hudmessage(0, 100, 200, -1.0, 0.55, 2, 0.1, 4.0, 0.02, 0.02, -1)
         ShowSyncHudMsg(pid, g_MsgSync, "%d", damage)
      }
   }
}

Это павн переработанный вельвом. Кто писал плагины для CS тот поймёт всю соль.

Dg_INC, 22 Апреля 2012

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

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

+100

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

procedure interpretation;
var
s,f:string;
i,m,v:integer;

begin
s:=#0;

for I:=0 to form9.Memo2.Lines.Count-1 do begin
  s:=form9.Memo2.Lines.Strings[i];//ïðîñìîòð ñòðîê èäåò
  //ñâåðõó âíèç

  if s='hex' then hex;
  if s='acsii' then acsii;

  if (s[1]='a') and (s[2]='d') and (s[3]='d') then begin
  form9.Edit6.Text:=s[5];
  form9.Edit5.Text:=s[7];
  peredsim;
  end;

  if (s[1]='s') and (s[2]='a') and (s[3]='m') then begin
  form9.Edit2.Text:=s[5];
  form9.Edit4.Text:=s[7];
  samsimbyl;
  end;

  if (s[1]='d') and (s[2]='e') and (s[3]='l') then begin
  form9.Edit3.Text:=s[5];
  for v:=1 to length(s) do
  deletesimbyl;
  end;

  if (s[1]='d') and (s[2]='e') and (s[3]='l') and (s[4]='s') then begin
  form9.Edit3.Text:=s[6];
  dels;
  end;

  if (s[1]='i') and (s[2]='n') and (s[3]='f') then begin
  form9.Memo1.Text:=s[5]+form9.Memo1.Text;
  end;

  if (s[1]='f') and (s[2]='n') and (s[3]='i') then begin
  form9.Memo1.Text:=form9.Memo1.Text+s[5];
  end;

  if (s[1]='p') and (s[2]='h') and (s[3]='e') then RapsrRedel;


  if (s[1]='n') and (s[2]='a') and (s[3]='b') then PerstNO;


  if (s[1]='a') and (s[2]='t') and (s[3]='s') then acsiitosim;
  if (s[1]='h') and (s[2]='t') and (s[3]='s') then hextosim;
  if (s[1]='h') and (s[2]='t') and (s[3]='a') then hextoacsii;
  if (s[1]='a') and (s[2]='t') and (s[3]='h') then acsiitohex;
end;
end;

Нужно было быстро накодить интерпретатор, которым никто пользоваться не будет, кроме собственно автора программы, для создания простеньких скриптов (сами понимаете семантический анализатор писать, в данном случае не улыбалось). Потому получился такой МегОАдЪовый говнокод!

Kerny, 21 Апреля 2012

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

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

+99

1

http://img.ponibooru.org/images/4e/4e688d1fa583ab735ea3974cdb855897

bot-minurast, 20 Апреля 2012

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

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

+64

1

http://i.imgur.com/z30k3.png

bot, 20 Апреля 2012

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

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

+132

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

<asp:Label></asp:Label>
<br>
<asp:TextBox></asp:TextBox>
<br>
<br>
<br>
<br></br>
<asp:Label></asp:Label>
<br>
<asp:TextBox></asp:TextBox>
<br>
<br>
<br>
<br></br>
<asp:Button />
<br></br>
</br>
</br>
</br>
</br>
</br>
</br>

новый сотрудник "наваял" страницу. кто его надоумил использовать закрывающий тег </br>, да еще и по такому странному принципу - неизвестно...

_vinka, 12 Апреля 2012

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

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

+123

1

http://funkyimg.com/u2/1556/586/2825302008_10_13_08_56_pit_dirty_ru_lepro_2_2008_10_09_18140_132300_8a155bd531ebf86457f70e98dff1756d.gif

gorky, 10 Апреля 2012

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

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

+126

01
02
03
04
05
06
07
08
09
10

...
{else}
    {assign var=count value=0}
    {foreach from=$item.child item=item2 key=key2}
        {if $item2.virtual != 1}
            {assign var=count value=$count+1}
        {/if}
    {/foreach}
    {if $count > 0}
...

Smarty. Выдранный кусок из шаблона сайта.

zii, 09 Апреля 2012

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

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

+145

1

http://don-shmat.narod2.ru/

и тот кто это прислал предлагает заработать и показывает ссылку на ЭТО

NeZeD, 06 Апреля 2012

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

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