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

Perl / Говнокод #6482

−116

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

#!/usr/bin/perl -w

@arr=<>;

@arr=reverse(@arr);
$ac=$#arr+1;
print "array size $ac\n";
@arr = sort { $a <=> $b } @arr;
while($ac>2){
  $ac=$#arr+1;
print "size $ac";
  print "reverse \n@arr\n\n";
if(!exists($arr[$ac])){
$eln=$ac-1;
print "\nDelete element $arr[$eln] $eln und $arr[$ac] $ac\n";
  splice @arr, $ac-2,2;
};
};

Скрипт на perl

AliceGoth, 26 Апреля 2011

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

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

+167

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

String ExelCol(int col)
{
  static const char c[] = { 'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z' };
  String str;
  if( !col ) return str;
  while( true )
  {
    str.Insert( c[(col-1) % sizeof(c)], 1 );
    if( ! ((col-1) / sizeof(c)) ) break;
    col /= sizeof(c);
  }
  return str;
}

ni3_inv, 26 Апреля 2011

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

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

+142

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

char version[80] = "       POSIX compliant Communications test program version 1.00 4-25-1999\r\n";
   char version1[80] = "          Copyright(C) Mark Zehner/Peter Baumann 1999\r\n";
  
fputs(version,output);               //display the program introduction
   fputs(version1,output);
   fputs(version2,output);
   fputs(version3,output);
   fputs(version4,output);
   fputs(version5,output);
   fputs(version6,output);
   fputs(version7,output);
   fputs(version8,output);
   fputs(version9,output);
   fputs(version10,output);
   fputs(version11,output); 
   fputs(version12,output);
   fputs(version13,output);

http://www.comptechdoc.org/os/linux/programming/c/linux_pgcserial.html
кришну вроде не вызывают. код странным образом напоминает индусский...

ursus, 26 Апреля 2011

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

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

+142

1
2
3
4
5
6

for(int i=0; i<16; i++) servoPos[i] = 64;
	for(int i=0; i<16; i++) servoOnOff[i] = SV_OFF;
	for(int i=0; i<16; i++) servoDirection[i] = SV_FOR;
	for(int i=0; i<16; i++) servoRange[i] = 15;
	for(int i=0; i<16; i++) servoCenter[i] = 3000;
	for(int i=0; i<16; i++) servoSpeed[i] = 127;

кусочек кетайского дзена.
Программа управления серво-приводами (хоть бы не аэс, хоть бы не аэс)

ursus, 26 Апреля 2011

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

ActionScript / Говнокод #6478

−109

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

/* Вопрос с форума
Пытаюсь создать игру шашки. Возник вопрос как двигать автоматически шашки противника? (например в зависимости от хода игрока). Как сделать проверку столкновения с шашкой противника?
(создаю их вот так (ALTERNATIVA3D):
*/
box2:Box
 
for (var j:int = 0; j < 3; j ++)
for (var n:int = 0; n < 8; n ++) {
box2 = new Box(52,52,52);
       box2.setMaterialToAllFaces(material3);
box2.x +=525;
box2.x += j * 105;
box2.y = 650
box2.y -= n * 105;
box2.z += 20;

if(box2.y == 650 && box2.x == 630 ||  box2.y == 545 && box2.x == 525 || box2.y == 440 && box2.x == 630 || box2.y == 335 && box2.x == 525 || box2.y == 230 && box2.x == 630 || box2.y == 125 && box2.x == 525 || box2.y == -85 && box2.x == 525 || box2.y == 20 && box2.x == 630 || box2.y == 545 && box2.x == 735 || box2.y == 335 && box2.x == 735 || box2.y == 125 && box2.x == 735 || box2.y == -85 && box2.x == 735) {
box2.visible = false;

}
container3.addChild(box2);

Не самый эпичный, но все-таки 111 as-говнокод на нашем сайте

KirAmp, 26 Апреля 2011

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

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

+146

1
2
3
4
5

try
{
    File.Delete(generatedFile);
}
catch { }

И такое бывает...

Mathematician, 26 Апреля 2011

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

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

+87

1
2
3
4
5

// очистка stringGrid1
for q:= 0 to stringgrid1.RowCount do
   for qq:= 0 to stringgrid1.colCount do
  stringgrid1.cells[qq,q]:='';
//********

"Отличный" способ очистить огромную таблицу.

black_dez, 26 Апреля 2011

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

Assembler / Говнокод #6475

+212

1
2
3

sub eax, edx
test eax, eax
jl +$04

dcc32
Нафига вторая строчка?

TarasB, 26 Апреля 2011

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

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

+130

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

<table>
  ...
  <tr>
    <td class="_r13 toggler" onclick='$("td").removeClass("selected"); $("._r13").addClass("selected")'>7</td>
    <td class="_r13 toggler" onclick='$("td").removeClass("selected"); $("._r13").addClass("selected")'>1</td>
    <td class="_r13">ПУ1</td>
    <td class="_r13">схр.</td>
    <td class="_r13">При &omega;=1; АМ=СчК</td>
    <td class="_r13">2, 4, 7, 8</td>
  </tr>
  ...
</table>

И так много-много раз ^^

Surendil, 26 Апреля 2011

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

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

+147

1
2
3
4
5

For i := 1 to Length(Val)-1 do
  Begin
    If (Ord(Val[i]) >= 48) and (Ord(Val[i]) <= 57) and
    (not ((Ord(Val[i+1]) >= 48) and (Ord(Val[i+1]) <= 57))) then Result := true;
  End;

ОТЦЕНИТИ КОД!!!1

Govnocoder#0xFF, 25 Апреля 2011

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

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