-
Лучший говнокод
- В номинации:
-
- За время:
-
-
+139
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
long __stdcall wndproc(HWND wnd, unsigned int message, WPARAM wparam, LPARAM lparam)
{
switch(message)
{
case WM_USER + 100:
{
char data[128];
fill_data(data);
PostMessage(wnd, WM_USER + 666, 0, (LPARAM)data);
return 0;
}
case WM_USER + 666:
{
char * data = (char *)lparam;
use_data(data);
return 0;
}
//etc
Wandering of the pointer или как выжить вне стека.
Xom94ok,
05 Февраля 2013
-
+57
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
// Просто удаляет элемент из массива
function delElement($arr, $index)
{
$result = Array();
for($i=0;$i<count($arr);$i++)
if($index != $i) $result[] = $arr[$i];
return $result;
}
- Ваше мнение, коллега?
- Кал молодой особи пыхаписта, коллега. Очень ярко выражены типичные признаки.
clauclauclau,
14 Декабря 2012
-
−100
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
size = 3
lines = ["___", "bcd", "___"]
board = [[None]*size]*size
for x in range(0, size):
for y in range(0, size):
if lines[x][y] != '_':
board[x][y] = lines[x][y]
print(board)
я бы, очевидно, хотел видеть результат:
[[None, None, None], ['b', 'c', 'd'], [None, None, None]]
но питоша выводит:
[['b', 'c', 'd'], ['b', 'c', 'd'], ['b', 'c', 'd']]
serpinski,
24 Ноября 2012
-
+120
- 1
clearScreen = putStr $ take 50 (repeat '\n')
Написано нормально, но вот задумка...
Fai,
10 Ноября 2012
-
+124
- 1
- 2
- 3
- 4
main =do
let b = 56
let b = b+1
print b
Зачем есть возможность задавать переменные с однаковыми именами, если их использовать ниже всё равно нельзя?
http://ideone.com/b1DGYF
LispGovno,
09 Ноября 2012
-
+161
- 1
eval( array.join('+') );
Конечно, я понимаю что всякие Haskel там, то, сё...
bot,
24 Октября 2012
-
+138
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
public void Delete(CommonType type)
{
label1:
Console.Write("Enter the title of the book: ");
string title = Console.ReadLine();
if (title == type.Title)
{
cmainlibrary.Remove(type);
Console.Write("Success");
Console.Read();
goto label1;
}
else
{
goto label1;
}
}
sater,
24 Сентября 2012
-
+118
- 1
- 2
- 3
yoba = (flip (>>=) .) . ((filter .) . (flip . (((==) .) . flip mod)))
main = print $ yoba 3 0 [КО КО КО]
http://ideone.com/UGoYJ
result: Internal error time: 0s memory: 0 kB signal: 0
LispGovno,
09 Сентября 2012
-
−92
- 1
- 2
- 3
public function xor(lhs:Boolean, rhs:Boolean):Boolean {
return !( lhs && rhs ) && ( lhs || rhs );
}
Из http://as3snippets.blogspot.com/2010/09/logical-xor.html
Как известно, в AS3 есть численный оператор XOR ^, а вот для логических значений ^^ нет. Поэтому ребята придумали такую конструкцию (и ещё вариант return Boolean(int(a) ^ int(b)); в комментах), и только через год какой-то чувак догадался что XOR для логических значений всё-таки есть и называется !=
makc3d,
02 Августа 2012
-
+94
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
function Dist(dx, dy: integer): integer;
begin
//result := trunc(sqrt(sqr(dx)+sqr(dy)));
dx := abs(dx);
dy := abs(dy);
if dx>dy then begin
dy := dy shr 1 - dx shr 3;
if dy >= 0 then result := dx+dy else result := dx;
end else begin
dx := dx shr 1 - dy shr 3;
if dx >= 0 then result := dx+dy else result := dy;
end;
end;
Ещё по теме приближённых расчётов в игровом движке.
TarasB,
02 Июля 2012