- 1
main = return $ (.)(.)
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+131
main = return $ (.)(.)
+21
extern struct BloodRainPersonage
{
} bloodRainPersonage, * pBloodRainPersonage;
Мне даже нечего сказать...
+136
for (var attempt = 0; attempt < 3; attempt++)
{
var result = (from neighborhood in this.DataContext.Neighborhoods
join city in this.DataContext.Cities on neighborhood.CityId equals city.Id
where !string.IsNullOrEmpty(neighborhood.Latitude) && (neighborhood.Id <= 31028 || attempt == 2) &&
(attempt == 0 && !string.IsNullOrEmpty(location.city) ? (city.Name.Equals(location.city, StringComparison.InvariantCultureIgnoreCase)) : true)
select new...).ToList();
}
просто linq, просто where;) От создателя xml-парсера (http://govnokod.ru/11870), обработки postback-запросов (http://govnokod.ru/10313), "обычного switch-а" (http://govnokod.ru/10448, http://govnokod.ru/10474), а еще конкатинации sql строк без параметров (но там слишком много, поэтому не выложу(:)
+93
Float nan=Float.NaN;
new Float(10).compareTo(nan);
//-1
nan.compareTo(nan);
//0
new Float(Float.POSITIVE_INFINITY).compareTo(nan);
//-1. POSITIVE_INFINITY<NAN. LoL
http://ideone.com/9WIo16
Тут некоторые товарищи в соседнем треде предлагали сравнивать объекты через compareTo()==0, если возможно.
Ну и беречься от equals как от огня, если есть Comparable.
А вот к чему это приводит.
+121
Поздравляю, дамы и господа, крупнейшая электронная библиотека русских книг lib.rus.ec попала в России под запрет.
Искомый ip адрес внесен в реестр
Дата основания для внесения в реестр 05.11.2012
Номер основания для внесения в реестр 2/2/16482
Орган, принявший решение о внесении в реестр ФСКН
Дата внесения в реестр 11.11.2012
zapret-gov.ru
Fatal error: Cannot redeclare get_web_page() (previously declared in /home/u749066976/public_html/parser.php:7) in /home/u749066976/public_html/parser.php on line 35
−124
Function ms2Str(Миллисекунды) export
КолВоЧасов=Цел(Миллисекунды/(60*60*1000));
Остаток=Миллисекунды-КолВоЧасов*60*60*1000;
КолВоМинут=Цел(Остаток/(60*1000));
Остаток=Остаток-КолВоМинут*60*1000;
КолВоСекунд=Цел(Остаток/1000);
КолВоМиллисекунд=Остаток-КолВоСекунд*1000;
h=Формат(КолВоЧасов,"ЧЦ=3;ЧН=;ЧВН=")+":";
if КолВоЧасов=0 then
h="";
endif;
m=Формат(КолВоМинут,"ЧЦ=2;ЧН=;ЧВН=")+":";
if КолВоМинут=0 then
m="";
endif;
return h+m+Формат(КолВоСекунд,"ЧЦ=2;ЧН=;ЧВН=")+":"+Формат(КолВоМиллисекунд,"ЧЦ=3;ЧН=;ЧВН=");
endFunction
Перевод время в миллисекундах в строку. Автор: Жуков А.П.
+24
QString("a=%1 b=%2").arg("[%1]").arg("Shit happens")
Вы думаете, что результат будет "a=[%1] b=Shit happens"?
Как бы не так! "a=[Shit happens] b=%2".
Причем эта "фича" вполне документирована. Но документирована она не в самом первом описании arg'а, а только в arg(const QString &a1, const QString &a2), в доку по которому я естественно никогда не заглядывал...
UPD: правильным вариантом будет QString("a=%1 b=%2").arg("[%1]", "Shit happens"), но тогда мы лишаемся поддержки форматирования, да и таким образом можно засунуть максимум 10 аргументов.
−125
procedure setParameters(aq)
спДекрет= Новый СписокЗначений;
спДекрет.Добавить(Перечисления.СостоянияРаботникаОрганизации.ОтпускПоБеременностиИРодам);
спДекрет.Добавить(Перечисления.СостоянияРаботникаОрганизации.ОтпускПоУходуЗаРебенком);
aq.setParameter("Дат",КонецДня(НачПериода));
aq.setParameter("Уволен",Перечисления.ПричиныИзмененияСостояния.Увольнение);
aq.setParameter("Оклад",Перечисления.СпособыРасчетов.Оклад);
aq.setParameter("МРП",Перечисления.СпособыРасчетов.КолМРП);
aq.setParameter("Сумма",Перечисления.СпособыРасчетов.Сумма);
aq.setParameter("Оклад",Перечисления.СпособыРасчетов.ПроцентОтОклада);
aq.setParameter("Доход",Перечисления.СпособыРасчетов.ПроцентОтДоходов);
aq.setParameter("ПодразделениеОрганизации",ПодразделениеОрганизации);
aq.setParameter("ФизЛицо",Работник);
aq.setParameter("Должность",Должность);
aq.setParameter("ВидЗанятости",ВидЗанятости);
aq.setParameter("ТарифныйРазряд",ТРазряд);
aq.setParameter("ВРЭкология",ВРЭкология);
//Декретники
aq.setParameter("Декрет",спДекрет);
//Состояние общее
aq.setParameter("Состояние",Состояние);
aq.setParameter("Сост",Состояние1);
endprocedure
procedure setБабло(Тз)
Тз.Колонки.Добавить("id",new ОписаниеТипов("Строка"));
Тз.Колонки.Добавить("Размер",new ОписаниеТипов("Число"));
endProcedure
...
q=new Query;
q.Текст=" //--------------------------------------------бабло
|Select
| ПлановыеНачисленияРаботниковОрганизацийСрезПоследнихКон.Размер,
| ПлановыеНачисленияРаботниковОрганизацийСрезПоследнихКон.ФизЛицо.код id
|from
| РегистрСведений.ПлановыеНачисленияРаботниковОрганизаций.СрезПоследних(
| &Дат,
| ВидРасчета.ЯвляетсяОсновнымНачислением
| И Размер <> 0) КАК ПлановыеНачисленияРаботниковОрганизацийСрезПоследнихКон
|";
setParameters(q);
бабло=New ТаблицаЗначений;
setБабло(бабло);
rs=q.Выполнить().Выбрать();
while rs.next() do
s=бабло.Добавить();
s.id=rs.id;
s.Размер=rs.Размер;
enddo;
бабло.Индексы.Добавить("id");
...
Форматирование текста оставил как есть. Автор: Жуков А.П.
+15
for(int y=0; y<height; ++y)
{
for(int x=0; x<width; ++x)
b[y,x] = a[y,x];
}
+136
typedef char C;typedef long I;
typedef struct a{I t,r,d[3],p[2];}*A;
#define P printf
#define R return
#define V1(f) A f(w)A w;
#define V2(f) A f(a,w)A a,w;
#define DO(n,x) {I i=0,_n=(n);for(;i<_n;++i){x;}}
I *ma(n){R(I*)malloc(n*4);}mv(d,s,n)I *d,*s;{DO(n,d[i]=s[i]);}
tr(r,d)I *d;{I z=1;DO(r,z=z*d[i]);R z;}
A ga(t,r,d)I *d;{A z=(A)ma(5+tr(r,d));z->t=t,z->r=r,mv(z->d,d,r);R z;}
V1(iota){I n=*w->p;A z=ga(0,1,&n);DO(n,z->p[i]=i);R z;}
V2(plus){I r=w->r,*d=w->d,n=tr(r,d);A z=ga(0,r,d);
DO(n,z->p[i]=a->p[i]+w->p[i]);R z;}
V2(from){I r=w->r-1,*d=w->d+1,n=tr(r,d);
A z=ga(w->t,r,d);mv(z->p,w->p+(n**a->p),n);R z;}
V1(box){A z=ga(1,0,0);*z->p=(I)w;R z;}
V2(cat){I an=tr(a->r,a->d),wn=tr(w->r,w->d),n=an+wn;
A z=ga(w->t,1,&n);mv(z->p,a->p,an);mv(z->p+an,w->p,wn);R z;}
V2(find){}
V2(rsh){I r=a->r?*a->d:1,n=tr(r,a->p),wn=tr(w->r,w->d);
A z=ga(w->t,r,a->p);mv(z->p,w->p,wn=n>wn?wn:n);
if(n-=wn)mv(z->p+wn,z->p,n);R z;}
V1(sha){A z=ga(0,1,&w->r);mv(z->p,w->d,w->r);R z;}
V1(id){R w;}V1(size){A z=ga(0,0,0);*z->p=w->r?*w->d:1;R z;}
pi(i){P("%d ",i);}nl(){P("\n");}
pr(w)A w;{I r=w->r,*d=w->d,n=tr(r,d);DO(r,pi(d[i]));nl();
if(w->t)DO(n,P("< ");pr(w->p[i]))else DO(n,pi(w->p[i]));nl();}
C vt[]="+{~<#,";
A(*vd[])()={0,plus,from,find,0,rsh,cat},
(*vm[])()={0,id,size,iota,box,sha,0};
I st[26]; qp(a){R a>='a'&&a<='z';}qv(a){R a<'a';}
A ex(e)I *e;{I a=*e;
if(qp(a)){if(e[1]=='=')R st[a-'a']=ex(e+2);a= st[ a-'a'];}
R qv(a)?(*vm[a])(ex(e+1)):e[1]?(*vd[e[1]])(a,ex(e+2)):(A)a;}
noun(c){A z;if(c<'0'||c>'9')R 0;z=ga(0,0,0);*z->p=c-'0';R z;}
verb(c){I i=0;for(;vt[i];)if(vt[i++]==c)R i;R 0;}
I *wd(s)C *s;{I a,n=strlen(s),*e=ma(n+1);C c;
DO(n,e[i]=(a=noun(c=s[i]))?a:(a=verb(c))?a:c);e[n]=0;R e;}
main(){C s[99];while(gets(s))pr(ex(wd(s)));}
http://www.kuro5hin.org/story/2002/8/30/175531/763
Taken from Roger Hui's An Implementation of J.
One summer weekend in 1989, Arthur Whitney visited Ken Iverson at Kiln Farm and produced — on one page and in one afternoon — an interpreter fragment on the AT&T 3B1 computer. I studied this interpreter for about a week for its organization and programming style; and on Sunday, August 27, 1989, at about four o'clock in the afternoon, wrote the first line of code that became the implementation described in this document.
Arthur's one-page interpreter fragment is as follows:
Read inside for the most beautiful code you have ever seen.