1. Список говнокодов пользователя runewalsh

    Всего: 4

  2. C++ / Говнокод #15778

    +72

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    auto val = map_.at(std::distance(map_.begin(),
	std::min_element(map_.begin(), map_.end(), [](std::vector<int> a, std::vector<int> b)
	{
		return b.at(std::distance(b.begin(), std::min_element(b.begin(), b.end()))) > a.at(std::distance(a.begin(), std::min_element(a.begin(), a.end())));
	})));

return val.at(std::distance(val.begin(), std::min_element(val.begin(), val.end())));

    Разыменование итератора для слабаков!

    runewalsh, 18 Апреля 2014

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

  3. Pascal / Говнокод #12945

    +78

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    {$ifdef Profile}
  {$define __TRACE__:= try Profile_TraceCall}
  {$define __END__:=finally Profile_LeaveCall; end;}
{$else}
  {$define __TRACE__:= //}
  {$define __END__:=}
{$endif}

procedure Foo();
begin
  __TRACE__('Foo');
  ...
  __END__
end;

    FPC.

    runewalsh, 28 Апреля 2013

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

  4. C++ / Говнокод #12225

    +19

    1. 1
    2. 2
    3. 3
    4. 4
    Class1* c1 = (Class1*)malloc(sizeof(Class1)*N);
Class2* c2 = (Class2*)malloc(sizeof(Class2)*N);
for (long i = 0; i < N; i++) c1[i] = Class1();
for (long i = 0; i < N; i++) c2[i] = Class2();

    Рассказать ему про new[] / delete[]?

    runewalsh, 29 Ноября 2012

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

  5. Pascal / Говнокод #3373

    +100

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    procedure WriteCharXY(_bx,by:integer; ch:char; tcol:word);
var buf:array[1..18,1..12] of word;
XOfs:longint;
x,y,px,py:integer;
begin
XOfs:=GetCharOffset(ch);
if xofs=0 then fillchar(buf,sizeof(buf),200) else
fromXMS(XOfs,addr(buf),432);
for y:=1 to 18 do
for x:=1 to 12 do begin
if buf[y,x]=0 then begin
   px:=_bx+x; py:=by+y;
   asm
   mov   bx,px;  add   bx,actviewport.x1;  cmp   bx,fillviewport.x1;
   jl    @end;  cmp   bx,fillviewport.x2; jg    @end;
   mov   cx,currentmode.scanline;  cmp   bx,cx;  jnb   @end;
   mov   ax,py;  add   ax,actviewport.y1;  cmp   ax,fillviewport.y1;
   jl    @end;  cmp   ax,fillviewport.y2;  jg    @end;
   add   ax,pageadd;  mul   cx;  add   bx,bx;
   add   ax,bx;  adc   dx,0;  mov   si,ax;
   cmp   dx,lastbank;  je    @next;  push  dx;
   call  nearsetbank2;  @next:  mov   es,[currentmode.writeptr];
   mov   ax,tcol;  {cmp   writemode,0;  jne   @doxor;}
   mov   es:[si],ax;  {jmp   @end;  @doxor: xor   es:[si],ax;}  @end:
   end;
end;
end;
end;

procedure WriteStringXY(x,y,maxx:integer; s:string; col:word);
var tx,ty:integer; i:word;
begin tx:=x; ty:=y;
for i:=0 to length(s) do begin
writecharXY(tx,ty,s[i],col);
inc(tx,GetCharWidth(s[i]));
if (tx>=maxx) and (s[i]=' ') then begin inc(ty,18); tx:=x; end;
end;
end;

procedure Write5Strings(x,y,maxx:integer; col:word; s1,s2,s3,s4,s5:string;
letterdelay:byte);
var tx,ty:integer; t,i:word;
st:array[1..5] of string;
begin tx:=x; ty:=y;
st[1]:=s1; st[2]:=s2; st[3]:=s3; st[4]:=s4; st[5]:=s5;
for t:=1 to 5 do begin
if length(st[t])=0 then exit;
   for i:=1 to length(st[t]) do begin
   writecharXY(tx,ty,st[t][i],col);
   if letterdelay>0 then pdel(letterdelay);
   inc(tx,GetCharWidth(st[t][i]));
   if (tx>=maxx-100) and (st[t][i]=' ') then begin
   inc(ty,18); tx:=x; end;
   end;
end;
end;

    Молодость.

    runewalsh, 01 Июня 2010

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