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

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

+123

1
2
3
4
5

@echo off
:start
ping -n 1 <destination>
ping -n 90 127.0.0.1 > NUL 2>&1
GOTO start

http://mybroadband.co.za/vb/showthread.php/122641-How-do-you-set-ping-interval
Попов жив.

Stallman, 28 Июля 2013

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

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

+125

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

slowCallPattern (P: P: P: P: P: P: _) = (fsLit "stg_ap_pppppp", 6)
slowCallPattern (P: P: P: P: P: _) = (fsLit "stg_ap_ppppp", 5)
slowCallPattern (P: P: P: P: _) = (fsLit "stg_ap_pppp", 4)
slowCallPattern (P: P: P: V: _) = (fsLit "stg_ap_pppv", 4)
slowCallPattern (P: P: P: _) = (fsLit "stg_ap_ppp", 3)
slowCallPattern (P: P: V: _) = (fsLit "stg_ap_ppv", 3)
slowCallPattern (P: P: _) = (fsLit "stg_ap_pp", 2)
slowCallPattern (P: V: _) = (fsLit "stg_ap_pv", 2)
slowCallPattern (P: _) = (fsLit "stg_ap_p", 1)
slowCallPattern (V: _) = (fsLit "stg_ap_v", 1)
slowCallPattern (N: _) = (fsLit "stg_ap_n", 1)
slowCallPattern (F: _) = (fsLit "stg_ap_f", 1)
slowCallPattern (D: _) = (fsLit "stg_ap_d", 1)
slowCallPattern (L: _) = (fsLit "stg_ap_l", 1)
slowCallPattern (V16: _) = (fsLit "stg_ap_v16", 1)
slowCallPattern [] = (fsLit "stg_ap_0", 0)

Исходник GHC
https://github.com/ghc/ghc/blob/master/compiler/codeGen/StgCmmArgRep.hs#L120

j123123, 27 Июля 2013

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

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

+125

1
2
3
4
5
6
7
8
9

wrs(S):-put_char('\"'), wrsi(S).
wrsi([C|S]):-put_char(C), wrsi(S).
wrsi([]):-put_char('\"').
 
wrl(S):-put_char('['), wrli(S), put_char(']').
wrli([C|[O|S]]):-wrs(C), put_char(','), wrli([O|S]).
wrli([C]):-wrs(C).
 
:- wrl(["dog", "cat", "canary"]).

Курю правильные примеры кода на прологе. PrologGovno ждите во всех кинотеатрах страны.
http://ideone.com/L4vIKs
Почему вместо того чтобы пользоваться стандартной функцией вывода списков или строк - автор рекомендует это? Я код правда поправил, а то хаскельных скобок (я уже без них не могу) не было и запятую в конце списка выдавало.

HaskellGovno, 15 Июля 2013

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

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

+132

1

У МИНЯ ЕСТЬ АЙФОН 5 И БАЛЬШОЙ ДОМ В МАЙНКРАВТЕ А ЧИВО ДАБИЛСЯ ТЫ?

Я БАГАТ И УСПЕШОН

PragramistOtBoga, 12 Июля 2013

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

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

+124

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
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94

#pragma syntax(C++03) // было
int i,j,*pi,&ri=...,ai[10],aai[10][20];
const int ci = 100;
T myFunction (TX x1,TX x2,TY y1,TY ywd=...);

#pragma syntax(C++SD) // стало
var(int) i,j;
var(Ptr[int]) pi;
var(Ref[int]) ri = ...;
var(Array[int,10]) ai;
var(Array[Array[i,20],10]) aai;
var(Immutable[int]) ci = 100;
// отличать от:
const(int) cci = 100; // и cci с рантаймовой точки зрения будет чистой константой, а не "типа неизменяемой переменной"

function(T) myFunction (var(TX) x1,x2; var(TY) y1,ywd=...);
// ^смысл в том, чтобы список параметров имел ту же форму, что декларация переменных и членов структур

// возможны и константные функции
function const(int) constSum (const(int) x1,x2) { return x1+x2; }
// теперь constSum (1,2) будет всё равно что 3

// это теперь заменяет тайпдеф
const(typename) Int32 = int;

#pragma syntax(C++03) // было
class C
{
 int mi;
 static int si;

private:
 float mf;
 void privateMethod1 () {...}
 void privateMethod2 ();

protected:
 void staticMethod1 () {...}
 void staticMethod2 ();

public:
 virtual void virtualMethod ();
};

int C::si;
void C::privateMethod2 () {...}
void C::staticMethod2 () {...}
void C::virtualMethod () {...}

#pragma syntax(C++SD) // стало
class C
{
 // эта секция называется "имплементацией класса"
 var(int) mi;
 // статические поля в имплементации класса не объявляются

private:
 var(float) mf;
 function() privateMethod1 () {...}
 //void privateMethod2 (); // объявлять методы, который не имплементируются тут же, не обязательно

protected:
 function() staticMethod1 (): Static
 {...}
 // Static - пометка для функции, декларируемой/имплементируемой в имплементации класса,
 // что это не метод, а просто функция

public:
 virtual function() virtualMethod ();
 // в имплементации класса по-настоящему нужна декларация только переменных-полей,
 // виртуальных методов и деструктора, если он пишется юзером

 // также:
 var(int) inlinelyInitialized = 100;
 // да, инициализаторы тоже допускаются
};

using (C) var(int) si; // using(C) - пометка, что декларация касается неймспейса C
using (C) private: function() privateMethod2 (): Method {...}
// ^если метод объявляется/имплементируется вне имплементации класса, его
// нужно пометить как Method, чтобы отличить от обычной функции

// using можно юзать и целым блоком...
using (C)
{
protected:
 // для функции-неметода вне имплементации класса уточнение Static не требуется
 function() staticMethod2 {...}
public:
 function() virtualMethod (): Method {...}
}

// глобальный скоп - тоже типа класс, для его явного указания, если вдруг понадобится,
// используется конструкция using (.)

Тот момент, когда понимаешь: "Какая радость, что в создатели стандарта крестов не берут кого попало."
http://www.gamedev.ru/flame/forum/?id=178107

LispGovno, 09 Июля 2013

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

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

+133

1
2

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

Stertor, 08 Июля 2013

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

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

+125

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

<Target Inputs="@(DeployLabel)" Name="GenericDeploy" Outputs="%(Identity).Dummy">
    <PropertyGroup>
      <TargetFilter>%(DeployLabel.Dir)</TargetFilter>
      <TargetFilterReplaced>$(TargetFilter.Replace('\', ''))</TargetFilterReplaced>
    </PropertyGroup>
    <WriteLinesToFile
        File="$(ProjectDir)tsfiles.txt"
        Condition="$([System.Text.RegularExpressions.Regex]::IsMatch(%(Filter),
                   '$(TargetFilterReplaced)'))"
        Lines="@(TypeScriptCompile -&gt;'&quot;%(fullpath)&quot;', ' ')"
        Overwrite="false" />
    <PropertyGroup>
      <TSFilesFiltered>$([System.IO.File]::ReadAllText($(ProjectDir)tsfiles.txt))</TSFilesFiltered>
      <TSFilesOneLine>$([System.Text.RegularExpressions.Regex]::Replace(
      $(TSFilesFiltered), "[\n\r]+", " "))</TSFilesOneLine>
    </PropertyGroup>
    <Exec Command="tsc --target ES3 -c -d --out $(Deployroot)\foo.js $(TSFilesOneLine)" />
    <Delete Files="$(ProjectDir)tsfiles.txt"/>
  </Target>

Кто не был, тот будет, кто был, тот не забудет.
MSBuild: задача отфильтровать массив из строк. Я за два дня ничего лучшего не придумал.

wvxvw, 07 Июля 2013

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

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

+124

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

[% FOREACH i IN DYN_DATE_OPT %]
<td class="number [% IF loop.count mod 2 != 0 %]odd[% END %] distri_td" [% distri_style %]>[% DYN_FILTER_COMMIFY( distr_row.lic.$i ) || 0 %]</td>
[% UNLESS DYN_PARAMS.display_unprocent %]
<td class="number right_b [% IF loop.count mod 2 != 0 %]odd[% END %] distri_td" [% distri_style %]>[% DYN_FILTER_PERCENT( distr_row.lic.$i, distr_row.commonper.$i ) %]</td>
[% END %]
<td class="number left_b [% IF loop.count mod 2 != 0 %]odd[% END %] distri_td" [% distri_style %]>[% DYN_FILTER_COMMIFY( distr_row.gsn_lic.$i ) || 0 %]</td>
[% UNLESS DYN_PARAMS.display_unprocent %]
<td class="number right_b [% IF loop.count mod 2 != 0 %]odd[% END %] distri_td" [% distri_style %]>[% DYN_FILTER_PERCENT( distr_row.gsn_lic.$i, distr_row.gsnper.$i ) %]</td>
[% END %]
<td class="number left_b [% IF loop.count mod 2 != 0 %]odd[% END %] distri_td" [% distri_style %]>[% DYN_FILTER_COMMIFY( distr_row.lic_ov.$i, 'red' ) || 0 %]</td>
[% UNLESS DYN_PARAMS.display_unprocent %]
<td class="number [% IF loop.count mod 2 != 0 %]odd[% END %] distri_td" [% distri_style %]>[% DYN_FILTER_PERCENT( distr_row.lic_ov.$i, distr_row.gsnper.$i ) %]</td>
[% END %]
[% END %]

Template::Toolkit

236 вот такого вот шаблона. Во всём сервисе их пачка, и все аналогичны.

kainwinterheart, 05 Июля 2013

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

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

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

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

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

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

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

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

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

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

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

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