- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
: %fib
( left right count limit -- result )
2dup u<= if 2drop swap drop exit then
1+ 2swap tuck + 2swap recurse ;
: fib
( n -- n )
1 2 0 -rot 2swap %fib ;
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+125
: %fib
( left right count limit -- result )
2dup u<= if 2drop swap drop exit then
1+ 2swap tuck + 2swap recurse ;
: fib
( n -- n )
1 2 0 -rot 2swap %fib ;
Где там ForthGovno?
+153
/* Грязный хак для слайдера */
switch (id){
case '1':
num = 2;
break;
case '2':
num = 1;
break;
default:
num = 0;
break;
}
+75
int i, n;
for(n = 0; n < 3; n++)
{
switch(n){
case 0:
n+=i;
case 1:
n-=i;
case 2:
n*=i;
}
}
Написал это, встал и хорошенько вымыл руки с мылом.
http://programmersforum.ru/showthread.php?t=241288
+128
public void BuildInsertClause(OleDbCommand cmd, ObjectState objState)
{
StringBuilder builder = new StringBuilder();
..........
cmd.CommandText = builder.ToString() + "(" + columns.ToString() + ") VALUES (" +
values.ToString() + ")";
}
http://solidcoding.blogspot.ru/2008/01/linq-to-excel-provider-25.html
Еще много смешного, для затравки:
object val = reader[col.GetSelectColumn()];
if (val is DBNull)
{
val = null;
}
+167
/**
* Return data
*
* @return array
*/
public function __toString()
{
return $this->toArray();
}
/**
* Return Data
*
* @return array
*/
public function toArray()
{
return $this->_data;
}
No comments
+133
ADMIN LOH
+12
class Random
{
public:
int getInt(int min, int max)
{
return std::uniform_int_distribution<int>(min, max)(_rd);
}
double getReal(double min, double max)
{
return std::uniform_real_distribution<double>(min, max)(_rd);
}
bool getBool()
{
return std::uniform_int_distribution<int>(0, 1)(_rd);
}
private:
std::random_device _rd;
};
Даже не знаю, говнокод это или нет.
+3
#include "stdafx.h"
int otv;
int main()
{
int l[10]={1,1,1,1,1,1,1,1,1,1};
start://старт
std::cout<<"Enter the number of variables < 10\n";
int g;
std::cin>>g;
if(g>=10||g<=0) goto start;
std::cout<<"please enter "<<g<<" your numbers\n";
for(int y=0;y<g;y++){int z;std::cin>>z;l[y]=z;}
for(int y=0;y<g;y++){std::cout<<l[y]<<", ";}
otv=l[0]*l[1]*l[2]*l[3]*l[4]*l[5]*l[6]*l[7]*l[8]*l[9];
std::cout<<"answer is "<< otv <<'\n';
return 0;}
Кальцо еще то.
+130
procedure TMyTr.Execute; // метод потока; эта процедура выполняется в отдельном потоке.
var
s,resp,ip,port:string;
cw,i:integer;
begin
http:=TIdHTTP.Create(nil);
cw:=getnumberproxy;
while cw<form1.Memo1.Lines.Count do
begin
s:=form1.Memo1.Lines[cw];
i := Pos(':',s);
IP := Copy(s,1,i-1);
PORT := Copy(s,i+1,Length(s));
try
http.ProxyParams.ProxyServer:=ip;
http.ProxyParams.ProxyPort:=StrToInt(port);
http.ReadTimeout:=Form1.SpinEdit2.Value*1000;
resp:=http.Get('http://ya.ru/');
if pos('ya.ru',resp)<>0 then
form1.Memo2.Lines.Add(ip+':'+port);
except
end;
cw:=getnumberproxy;
checked:=checked+1;
end;
http.Free;
end;
Вот так живут Америка с Европой; что интересно, ни поток ни форма ни разу не заглючили.
+132
var
FormMeh: TFormMeh;
x,y,len:integer;
x2,y2:integer;
x3,y3:integer;
x0,y0, y20:integer;
xa , ya : integer;
v1 , v2 : integer;
x1,y1,ar,dar:integer;
anim:integer;
Глобальные переменные отныне РАЗРЕШЕНЫ. Утверждаю, подпись моя.