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

VisualBasic / Говнокод #11421

−98

001
002
003
004
005
006
007
008
009
010
011
012
013
014
015
016
017
018
019
020
021
022
023
024
025
026
027
028
029
030
031
032
033
034
035
036
037
038
039
040
041
042
043
044
045
046
047
048
049
050
051
052
053
054
055
056
057
058
059
060
061
062
063
064
065
066
067
068
069
070
071
072
073
074
075
076
077
078
079
080
081
082
083
084
085
086
087
088
089
090
091
092
093
094
095
096
097
098
099
100

Private Sub Command2_Click()
Cls
For x = 1 To Text2 + 1
For y = 1 To Text2 + 1
A(x, y) = Round(Rnd(1))
If A(x, y) = 0 Then A(x, y) = -1
Next
Next
For x = 2 To Text2
For y = 2 To Text2
PSet (1200 + x * 15, 200 + y * 15), A(x, y)
Next
Next
End Sub

Private Sub Command3_Click()
Cls
For x = 1 To Text2 + 1
For y = 1 To Text2 + 1
A(x, y) = 1
Next
Next
A(Text20, Text21) = -1
A(Text22, Text23) = -1
A(Text24, Text25) = -1
A(Text26, Text27) = -1
For x = 2 To Text2
For y = 2 To Text2
PSet (1200 + x * 15, 200 + y * 15), A(x, y)
Next
Next
End Sub

Private Sub Form_Load()

For x = 1 To Text2 + 1
For y = 1 To Text2 + 1
A(x, y) = Round(Rnd(1))
If A(x, y) = 0 Then A(x, y) = -1
Next
Next



'For x = 1 To Text2 + 1
'For y = 1 To Text2 + 1
'A(x, y) = 1
'Next
'Next
'A(10, 10) = -1



End Sub

Private Sub Command1_Click()
Cls

For k = 1 To Text1

For x = 1 To Text2 + 1
A(x, 1) = A(x, Text2)
A(x, Text2 + 1) = A(x, 2)
Next

For y = 1 To Text2 + 1
A(1, y) = A(Text2, y)
A(Text2 + 1, y) = A(2, y)
Next



For x = 2 To Text2
For y = 2 To Text2

xp = A(x - 1, y - 1) + A(x, y - 1) + A(x + 1, y - 1) + A(x - 1, y) + A(x + 1, y) + A(x - 1, y + 1) + A(x, y + 1) + A(x + 1, y + 1)
Select Case xp
Case -8
B(x, y) = Text3
Case -7
B(x, y) = Text4
Case -6
B(x, y) = Text5
Case -5
B(x, y) = Text6
Case -4
B(x, y) = Text7
Case -3
B(x, y) = Text8
Case -2
B(x, y) = Text9
Case -1
B(x, y) = Text10
Case 0
B(x, y) = Text11
Case 1
B(x, y) = Text12
Case 2
B(x, y) = Text13
Case 3

Жестокий, безумный мозг пятнадцатилетнего пацана родил клеточный автомат. Нашел свои исходники десятилетней давности.
А ведь я себя тогда считал крутым программистом... стыдно вспоминать.

xcont, 16 Июля 2012

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

Java / Говнокод #11420

+129

1
2
3
4
5
6
7
8

private static BigDecimal ZERO;
private static BigDecimal ONE;
private static BigDecimal TWO;
private static BigDecimal FIVE;
private static BigDecimal FOUR;
private static BigDecimal SEVEN;
public static BigDecimal SMALLDECIMAL;
private static BigDecimal THREEHUNDRED;

http://multilevellayout.googlecode.com/svn-history/r13/trunk/MultilevelLayoutPlugin/src/multilevelLayoutPlugin/MultilevelLayoutAlgorithm.java

someone, 15 Июля 2012

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

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

+118

1
2

decimal retValue = <...>
var span = TimeSpan.FromMinutes(double.Parse(retValue.ToString()));

Почему бы просто не (double) retValue...

someone, 15 Июля 2012

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

JavaScript / Говнокод #11418

+168

1
2
3
4
5

<script>
    var ROOT = '/';
    if (ROOT == '/')
        ROOT = '';
</script>

larikov, 15 Июля 2012

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

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

+31

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

#include <iostream>
using namespace std;

struct RefStruct {
    RefStruct(int &ref) :
        m_ref(ref)
    {}
    
    int getRefValue() const {
        return m_ref;
    }

private:
    int &m_ref;
};

int main(int argc, char *argv[]) {
    int a = 0xa;
    int b = 0xb;

    RefStruct s(a);
    RefStruct *p = &s;
    
    *(reinterpret_cast<int **>(p)) = &b;
    
    cout << "RefValue: " << hex << s.getRefValue() << endl;

    return 0;
}

С другом разговаривали - как бы получить указатель на ссылку.

Как вы думаете, что будет на выхлопе?

Elvenfighter, 15 Июля 2012

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

SQL / Говнокод #11416

−134

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

SELECT     ISNULL(SUM(dbo.colors.setup_time_base + dbo.colors.setup_time_add), 0) AS setup_time, ISNULL(SUM(dbo.colors.setup_time_base), 0) AS setup_time_base, 
                      ISNULL(SUM(dbo.colors.setup_time_add), 0) AS setup_time_add, ISNULL(SUM(dbo.colors.setup_length_base), 0) + 40 AS setup_lenght_base, 
                      ISNULL(SUM(dbo.colors.setup_lenght_add), 0) AS setup_lenght_add, ISNULL(SUM(dbo.colors.setup_length_base + dbo.colors.setup_lenght_add), 0) 
                      + 40 AS setup_lenght, ISNULL(COUNT(dbo.dir_order_sections.color_id), 0) AS section_count, CASE WHEN COUNT(dbo.dir_order_sections.color_id) 
                      = 0 THEN 0.5 WHEN COUNT(dbo.dir_order_sections.color_id) >= 1 AND COUNT(dbo.dir_order_sections.color_id) 
                      <= 2 THEN 0.65 WHEN COUNT(dbo.dir_order_sections.color_id) >= 3 AND COUNT(dbo.dir_order_sections.color_id) 
                      <= 6 THEN 1 WHEN COUNT(dbo.dir_order_sections.color_id) >= 7 AND COUNT(dbo.dir_order_sections.color_id) 
                      <= 10 THEN 1.15 WHEN COUNT(dbo.dir_order_sections.color_id) >= 11 THEN 1.3 ELSE 0 END AS section_rate, CASE WHEN COUNT(dbo.dir_order_sections.color_id) 
                      = 0 THEN 0.03 WHEN COUNT(dbo.dir_order_sections.color_id) >= 1 AND COUNT(dbo.dir_order_sections.color_id) 
                      <= 2 THEN 0.04 WHEN COUNT(dbo.dir_order_sections.color_id) >= 3 AND COUNT(dbo.dir_order_sections.color_id) 
                      <= 7 THEN 0.05 WHEN COUNT(dbo.dir_order_sections.color_id) >= 8 AND COUNT(dbo.dir_order_sections.color_id) 
                      <= 10 THEN 0.07 WHEN COUNT(dbo.dir_order_sections.color_id) >= 11 THEN 0.07 ELSE 0 END AS role_rate, CASE WHEN COUNT(dbo.dir_order_sections.color_id) 
                      = 0 THEN 0.03 WHEN COUNT(dbo.dir_order_sections.color_id) >= 1 AND COUNT(dbo.dir_order_sections.color_id) 
                      <= 2 THEN 0.04 WHEN COUNT(dbo.dir_order_sections.color_id) >= 3 AND COUNT(dbo.dir_order_sections.color_id) 
                      <= 7 THEN 0.05 WHEN COUNT(dbo.dir_order_sections.color_id) >= 8 AND COUNT(dbo.dir_order_sections.color_id) 
                      <= 10 THEN 0.07 WHEN COUNT(dbo.dir_order_sections.color_id) >= 11 THEN 0.07 ELSE 0 END AS role_shift_rate_base, ISNULL(SUM(dbo.colors.role_shift_rate_add), 
                      0) + CASE WHEN COUNT(dbo.dir_order_sections.color_id) = 0 THEN 0.03 WHEN COUNT(dbo.dir_order_sections.color_id) >= 1 AND 
                      COUNT(dbo.dir_order_sections.color_id) <= 2 THEN 0.04 WHEN COUNT(dbo.dir_order_sections.color_id) >= 3 AND COUNT(dbo.dir_order_sections.color_id) 
                      <= 7 THEN 0.05 WHEN COUNT(dbo.dir_order_sections.color_id) >= 8 AND COUNT(dbo.dir_order_sections.color_id) 
                      <= 9 THEN 0.06 WHEN COUNT(dbo.dir_order_sections.color_id) >= 10 THEN 0.07 ELSE 0 END AS role_shift_rate, dbo.orders.order_n
FROM         dbo.orders LEFT OUTER JOIN
                      dbo.dir_order_sections ON dbo.dir_order_sections.order_n = dbo.orders.order_n AND dbo.dir_order_sections.color_id <> 0 AND 
                      dbo.dir_order_sections.color_id IS NOT NULL LEFT OUTER JOIN
                      dbo.colors ON dbo.dir_order_sections.color_id = dbo.colors.color_id
GROUP BY dbo.orders.order_n

someone, 15 Июля 2012

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

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

+122

1
2
3
4
5
6
7

Уважаемые знатоки, вопрос такой:
sizeof('a') для  С и Сpp имеет различное значение и это вам известно из 
C99 Standard: 6.4.4.4 Character constants  Para 2
и
C++03 Standard: 2.13.2 Character literals Para 1. 

Интересует ваше предположение/мнение/версия/etc, для чего такое приняли?

Стандартоособенности и внезапнонесовместимости.

sayidandrtfm, 15 Июля 2012

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

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

+89

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

procedure TClickerAdvertising.Start(Item: TTaskItem);
  procedure StartTask(AURL: string);
  procedure SearchInYandex(Keywords, Domen: string);
    procedure SendSearchRequest;
    procedure CheckSearchRequest;
    procedure SearchLinkAndClick;
      function FindLinkInList: IHTMLElement;
    procedure CheckValidateTransition;

  procedure MoveAndGoBack(Domen: string; MoveCount, MoveDelay: Integer);
    function GetRandomElement: IHTMLElement;

  procedure FindAdvertLinkAndClick(AdvertType: TAdvertType; var AdvertLink: string);
    procedure ClickFromLinkToAdvert;
    procedure ClickFromGoogleAds;

  procedure SendReport(AURL: string);
    function GetIP: string;
    
begin
//...
end;

А як, Ви, ставитись до вкладених процедур?

ADR, 14 Июля 2012

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

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

+32

1
2
3
4

typedef typename _STD tr1::conditional<
        _STD tr1::is_same<key_type, value_type>::value,
        const_iterator,
        _Tree_iterator<_Mybase> >::type iterator;

Шаблоны на шаблонах и шаблонами погоняют.

Fai, 14 Июля 2012

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

Java / Говнокод #11412

+74

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

if (scope.equals("page")) {
    beanObject = context.getAttribute(bean);
} else {
    if (scope.equals("request")) {
        beanObject = context.getRequest().getAttribute(bean);
    } else {
        if (scope.equals("session")) {
            beanObject = context.getSession().getAttribute(bean);
        } else {
            if (scope.equals("context")) {
                beanObject = context.getServletContext().getAttribute(bean);
            }
        }
    }
}

Eyeless, 14 Июля 2012

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

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

VisualBasic / Говнокод #11421

Java / Говнокод #11420

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

JavaScript / Говнокод #11418

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

SQL / Говнокод #11416

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

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

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

Java / Говнокод #11412