- 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;
}
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+57
// Просто удаляет элемент из массива
function delElement($arr, $index)
{
$result = Array();
for($i=0;$i<count($arr);$i++)
if($index != $i) $result[] = $arr[$i];
return $result;
}
- Ваше мнение, коллега?
- Кал молодой особи пыхаписта, коллега. Очень ярко выражены типичные признаки.
−100
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']]
+120
clearScreen = putStr $ take 50 (repeat '\n')
Написано нормально, но вот задумка...
+124
main =do
let b = 56
let b = b+1
print b
Зачем есть возможность задавать переменные с однаковыми именами, если их использовать ниже всё равно нельзя?
http://ideone.com/b1DGYF
+161
eval( array.join('+') );
Конечно, я понимаю что всякие Haskel там, то, сё...
+138
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;
}
}
+118
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
−92
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 для логических значений всё-таки есть и называется !=
+94
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;
Ещё по теме приближённых расчётов в игровом движке.
+62
for($i=0; $i<strlen($input); $i++)
{
$ip=$input{$i};
$op='';
if ($intag)
{
if ($ip=="=") $op="=3D";
else $op= $ip;
}
else
{
if ($ip=="\"") $op='"';//'
else if ($ip=="&") $op="&";
else if ($ip=="'") $op="'";
else $op= $ip;
}
if ((strlen($line)+strlen($op))>=$line_max)
{
$output.=$line.'='.$eol;
//if ($intag) $output.=$line.'='.$eol;
//else $output.=$line.$eol;
$line='';
}
$line.=$op;
if($ip=='<')
$intag=true;
else if ($ip=='>')
$intag=false;
}
Заголовки у письма отфильтрованы... Всё «путём» катимся дальше...