По колено в коде — Говнокод.ру

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

+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

procedure TDetailForm.GridPanel1Click(Sender: TObject);
var
  i: Integer;
  s: String;
begin
  //set title and subtitle
  if Pos('Item', TControl(Sender).Name) > 0 then begin
    if Sender.ClassName = 'TImage' then begin
      i := Length(TControl(Sender).Name) - Length('ItemImage') - 1;
      s := Copy(TControl(Sender).Name, Length(TControl(Sender).Name) - i, Length(TControl(Sender).Name));
      ItemTitle.Caption := TLabel(DetailForm.FindComponent('ItemTitle' + s)).Caption;
      ItemSubtitle.Caption := TLabel(DetailForm.FindComponent('ItemSubTitle' + s)).Caption;
    end else if Pos('ItemSubTitle', TControl(Sender).Name) > 0 then begin
      ItemSubtitle.Caption := TLabel(Sender).Caption;
      i := Length(TControl(Sender).Name) - Length('ItemSubTitle') - 1;
      s := Copy(TControl(Sender).Name, Length(TControl(Sender).Name) - i, Length(TControl(Sender).Name));
      ItemTitle.Caption := TLabel(DetailForm.FindComponent('ItemTitle' + s)).Caption;
    end else if Pos('ItemDescription', TControl(Sender).Name) > 0 then begin
      i := Length(TControl(Sender).Name) - Length('ItemDescription') - 1;
      s := Copy(TControl(Sender).Name, Length(TControl(Sender).Name) - i, Length(TControl(Sender).Name));
      ItemTitle.Caption := TLabel(DetailForm.FindComponent('ItemTitle' + s)).Caption;
      ItemSubtitle.Caption := TLabel(DetailForm.FindComponent('ItemSubTitle' + s)).Caption;
    end else begin
      ItemTitle.Caption := TLabel(Sender).Caption;
      i := Length(TControl(Sender).Name) - Length('ItemTitle') - 1;
      s := Copy(TControl(Sender).Name, Length(TControl(Sender).Name) - i, Length(TControl(Sender).Name));
      ItemSubTitle.Caption := TLabel(DetailForm.FindComponent('ItemSubTitle' + s)).Caption;
    end;
  end;
end;

Код из шаблона New Metropolis UI Application в новом Delphi XE3. Рефлексия так и прет.

kipar, 23 Сентября 2012

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

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

−87

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

>>> r=range(16);print '\n'.join(' '*y+' '.join('# '[x&y>0] for x in r) for y in r)
# # # # # # # # # # # # # # # #
 #   #   #   #   #   #   #   #  
  # #     # #     # #     # #    
   #       #       #       #      
    # # # #         # # # #        
     #   #           #   #          
      # #             # #            
       #               #              
        # # # # # # # #                
         #   #   #   #                  
          # #     # #                    
           #       #                      
            # # # #                        
             #   #                          
              # #                            
               #

1. Почему f(x, y) = 1-sign(x&y) даёт в результате треугольник Серпинского?
2. Олимпиада: на вашем любимом языке написать программу, которая выводит аналогичный фрактал(см. код). Победит тот язык, программа на котором займёт наименьшее число символов. Нулевое приближение на Python - 78 символов.

serpinski, 22 Сентября 2012

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

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

+138

01
02
03
04
05
06
07
08
09
10
11
12

# it makes sense to use it only for
# numbers up to 100
fun StringToInteger (str) {
    int = -1;
    for (i=0; i<=100; i++) {
        if (i+"" == str) {
            int = i;
            break;
        }
    }
    return int;
}

Функция преобразования строк в целые числа из кода бутскрина Ubuntu на неизвестном науке кастомном скриптовом языке.
Пруфлинк: http://bazaar.launchpad.net/~ubuntu-branches/ubuntu/precise/plymouth/precise/view/head:/themes/ubuntu-logo/ubuntu-logo.script#L149

Shnatsel, 22 Сентября 2012

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

C++ / Говнокод #11819

+27

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

#define говно NULL
#define нихуя void
#define факт bool
#define хуёво false
#define пиздато true
#define цифра int
#define число float
#define базар char
#define ТамГде *
#define типа {
#define ёба }
#define это =
#define сука ==
#define и &&
#define или ||
#define чатко const
#define базарь cout<<
#define спроси cin>>
#define блять ;
#define то )
#define иначе else

#include <iostream>
using namespace std;

нихуя main()
типа
	факт Semki блять
		базарь "Семки есть,, ёба? /n" блять
		спроси Semki блять
			если Semki сука пиздато то
			типа
				базарь "Красава" блять
			ёба
			иначе
			типа
				базарь "Нарываешься, сука? /n" блять
			ёба
ёба

Быдло-код!

NeZeD, 21 Сентября 2012

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

C++ / Говнокод #11817

+21

1
2
3
4
5
6
7
8

unsigned i=Facts.size();
optimized=false;
Facts.push_back(fact);
  
if(Facts.size()>i)
   return i;
   else
   return -1;

Обмазываем push_back рет-кодом.

Try, 21 Сентября 2012

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

Objective C / Говнокод #11816

−97

1
2

NSMutableDictionary* data = [[NSMutableDictionary alloc] initWithObjectsAndKeys:@"Заголовок", @"name",  
@"Очень длинное описание акции, которое надо для проверки функционирования элементов прекрасного пользовательского интерфейса, работающего на последнем издыхании. Казалось бы, что такого поправить две кнопки. Но нет, тут никто не знает про MVC", @"description", nil];

Тестовые данные в проекте

GK2012, 21 Сентября 2012

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

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

+136

1
2
3
4
5
6
7

// http://msdn.microsoft.com/en-us/library/dya2szfk%28v=VS.71%29.aspx

If x = True Then   ' Compares x to the Boolean value True.
   ' Insert code to execute if x = True.
Else
   ' Insert code to execute if x = False.
End If

http://msdn.microsoft.com/en-us/library/dya2szfk%28v=VS.71%29.aspx
Учебник по языку, да

Demetr, 21 Сентября 2012

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

C++ / Говнокод #11814

+20

01
02
03
04
05
06
07
08
09
10
11
12
13

class CRenderWindow
{
public:
	/***/
	bool IsWindow(); 
	/***/
};


class CWindow : public CRenderWindow
{
	/***/
};

Код для работы с окнами. Лишнее я убрал (весь код занимает больше 500 строк).
О чем думал человек, который это проектировал? О_о

Artur, 21 Сентября 2012

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

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

+127

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

/**
   * Determines equality based upon the contents of this Box instead of the box itself.
   * As a result, it is not symmetric. Which means that for
   *
   * <pre name="code" class="scala">
   *     val foo = "foo"
   *     val boxedFoo = Full(foo)
   *     foo == boxedFoo //is false
   *     boxedFoo == foo //is true
   * </pre>
   *
   * For Full and Empty, this has the expected behavior. Equality in terms of Failure
   * checks for equivalence of failure causes.
   */
  override def equals(other: Any): Boolean = (this, other) match {
    case (Full(x), Full(y)) => x == y
    case (Full(x), y) => x == y
    case (x, y: AnyRef) => x eq y
    case _ => false
  }

https://github.com/lift/framework/blob/master/core/common/src/main/scala/net/liftweb/common/Box.scala

rat4, 20 Сентября 2012

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

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

+131

1

o?o.f():{};

Мне было стыдно постить это в С++.

http://www.gamedev.ru/flame/forum/?id=167142&page=2#m25

LispGovno, 20 Сентября 2012

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

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