Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+140
// http://stackoverflow.com/questions/12033790/locknew-object-cargo-cult-or-some-crazy-language-special-case
private void foo()
{
if (InvokeRequired)
{
lock (new object())
{
if (m_bar!= null)
Invoke(new fooDelegate(foo), new object[] { });
}
}
else
{
if(OnBazChanged != null)
OnBazChanged();
}
}
По одной из версий, этот бессмысленный lock - это "оптимизация", раньше было поле private readonly object lockObj = new object();
P.S. Поставьте таки autocomplete="off" в поле ввода капчи <input class="captcha" id="formElm_captcha" name="captcha" type="text" value=""> - задолбала она старые капчи предлагать.
victor-homyakov,
23 Августа 2012
+67
$msg = (($this->data[0] == '1' || $this->auth->demo == 1) ? "orderCheck" : "orderInsert")." ".(($this->data[4] == '1') ? "1" : "0")."*|*".$a[$ww][$objs[0][0]][0]['o']."%|%".$a[$ww][$objs[0][0]][0]['h']."%|%%|%".$a[$ww][$objs[0][0]][0]['e']."%|%".$this->data[9].$hord."*|*".$this->regiond['phone_code'].(($this->auth->demo==1) ? $this->regiond['demo_phone'] : $this->auth->phone)."*|*".$nord."*|*".$this->data[7]."*|*".$this->regiond['phone_code'].(($this->auth->demo==1) ? $this->regiond['demo_phone'] : $this->data[6])."*|*".$this->data[5]/*(($this->data[5] == '2' && $this->regiond['lux'] == '1') ? "deluxe" : "")*/."*|*".$this->java."*|*".$this->data[13];Картина Репина. PHP притворяется регэкспом.
blessed,
23 Августа 2012
−99
// WTF is 8.5? Oo I will never, ever hardcode some random values.
linkStatusImage.frame = CGRectMake (5, height / 2 - 8.5, 17, 17);
descriptionLabel.frame = CGRectMake (27, 5, width - 32 - rightMargin, 20);
authorLabel.frame = CGRectMake (27, 30, width - 32 - rightMargin, 20);
addressLabel.frame = CGRectMake (27, 55, width - 32 - rightMargin, height - 60);
separatorImage.frame = CGRectMake (0, height - 2, separatorImage.image.size.width, 2);
favButton.frame = CGRectMake (width - 22, height / 2 - 8.5, 17, 16);
byss,
23 Августа 2012
+115
-- Настало время запостить самое главное гавно Хаскеля:
-- http://www.johndcook.com/blog/2010/05/18/pure-functions-have-side-effects/
-- У чистых функций всегда есть side-effects, которые выражаются в пожирании памяти и CPU.
-- Очевидно конечно, но почему об этом не орут на первой странице каждой книги по функциональному программированию?
Я проверил, код компилируется:
http://ideone.com/sozuV
HaskellGovno,
23 Августа 2012
+48
//Функция проверки закачиваемого файла
function fileNameCheck($file) {
if(preg_match("/[^a-z\d\-\._]/i", $file)) {
return true;
}
return false;
}Приятно удивляет соответствие названия функции с её возвращаемым значением.
Edward,
22 Августа 2012
+53
class MYSQL_ACTIONS
{
public $arguments = array();
public $values;
public $rows;
public $check = true;
public $list_array = array();
function __construct ()
{
$this->arguments = func_get_args();
$z = '';
foreach ($this->arguments as $value)
{
$y ="$value,";
$z .= $y;
}
$this->rows = substr("$z",0,-1);
}
function check_isset()
{
$argument = func_get_args();
for ($i = 0; $i < count($argument); $i++)
{
foreach ($argument as $value)
{
${$value} = $this->list_array[$i++];
}
}
for($i = 0; $i < count($argument); $i++)
{
$x = ${$argument[$i]};
if (empty($x))
{
$this->check = false;
break;
}
}
}
function mysql_action($table)
{
$processing = new GET_(processing);
$date = date("Y-m-d H:i:s");
for ($i = 0; $i < count($this->arguments); $i++)
{
foreach ($this->arguments as $value)
{
${$value} = $this->list_array[$i++];
}
}
$x ='';
foreach ($this->arguments as $value)
{
$y =" '${$value}',";
$x .= $y;
}
$this->values = substr("$x",0,-1);
if ($processing->variable == "add")
{
if ($this->check == true)
{
$result = mysql_query("INSERT INTO {$table} ({$this->rows}) VALUES ({$this->values})");
if ($result == true)
{
echo "";
}
else
{
echo "";
}
}
else
{
echo "";
}
}
}
}Очередное говно с просторов интернета
BioMan,
22 Августа 2012
+116
delegate β ƒ<α, β>(α x);
delegate α γ<α>(γ<α> f);
static ƒ<α, β> Y<α, β>(ƒ<ƒ<α, β>, ƒ<α, β>> f) {
return new γ<ƒ<α, β>>(h => F => f(h(h))(F))(h => F => f(h(h))(F));
}
static ƒ<int, int> Fact(ƒ<int, int> fact) {
return n => (n == 0) ? 1 : n * fact(n - 1);
}
...
var fact = Y<int, int>(Fact);
Console.WriteLine("fact(6) = {0}", fact(6));
HaskellGovno,
22 Августа 2012
+141
<select>
<option class="a2" value="0" selected="selected">любой возраст</option>
<option class="a2" value="1">0 мес - 6 мес</option>
<option class="a2" value="2">0 мес - 12 мес</option>
</select>
selected="selected" для элемента, выбираемого по дефолту - зачем?
ps. Код - кусок статичного html.
domaster,
22 Августа 2012
+106
function ReplaceUrl(txt: WideString): WideString;
var
i, j: integer;
tmp, Url: WideString;
begin
Result := '';
I := 1;
while I <= Length(txt) do
begin
tmp := '';
if WideSameText(tmp + txt[i]+txt[i+1]+txt[i+2]+txt[i+3]+txt[i+4]+txt[i+5]+txt[i+6], 'http://') or
WideSameText(tmp + txt[i]+txt[i+1]+txt[i+2]+txt[i+3]+txt[i+4]+txt[i+5]+txt[i+6], 'ed2k://') or
WideSameText(tmp + txt[i]+txt[i+1]+txt[i+2]+txt[i+3]+txt[i+4]+txt[i+5], 'ftp://') or
WideSameText(tmp + txt[i]+txt[i+1]+txt[i+2]+txt[i+3], 'www.') or
WideSameText(tmp + txt[i]+txt[i+1]+txt[i+2]+txt[i+3]+txt[i+4]+txt[i+5]+txt[i+6]+txt[i+7], 'https://') then
begin
Url := '';
for j := I to Length(txt) do
begin
if (txt[j] <> ' ') and (ord(txt[j]) < 255) then
Url := Url + txt[J]
else
Break;
end;
Result := Result + Format(C_HTML_URL, [Url, Url]);
I := J;
end else
begin
Result := Result + txt[I];
Inc(I);
end;
end;
end;http://www.bvbcode.com/code/vhk2e8rb-1638045
63F45EF45RB65R6VR,
21 Августа 2012
+56
$data = $this->db->qp($q=(($type == 1 && $this->auth->demo == 0) ? '(SELECT Favorite_Name as s, CONCAT(oname,\'|\',House,\'|\',Enter) as s2, Id as id, \'1\' as t, null as m, IF(LEFT(LOWER(TRIM(Favorite_Name)), '.$c.')=\''.$sword.'\', 0, IF(LEFT(LOWER(TRIM(oname)), '.$c.')=\''.$sword.'\', 1, 2)) as od, \'1\' as t2 FROM :Cabinet_Favorite_Objects: WHERE Client_Phone=\'7'.$this->auth->phone.'\' && (lower(Favorite_Name) LIKE \'%'.$sword.'%\' || lower(oname) LIKE \'%'.$sword.'%\') ORDER BY od ASC, Favorite_Name'.$lim.')
UNION ALL
(SELECT addr as s, \'1\' as s2, id as id, \'2\' as t, null as m, IF(LEFT(LOWER(TRIM(addr)), '.$c.')=\''.$sword.'\', 0, 1) as od, \'2\' as t2 FROM :cabinet_history_objects: WHERE cid=\''.$this->auth->adata['IDClient'].'\' && lower(addr) LIKE \'%'.$sword.'%\' ORDER BY od ASC, num, addr DESC'.$lim.')
' : '').(($type == 1 && $this->auth->demo == 0 && $c > 0) ? ' UNION ALL ' : '').(($c > 0) ? '(SELECT objectName as s, objectMetaType as s2, objectID as id, \'3\' as t, objectAddress as m, IF(LEFT(LOWER(TRIM(SearchField)), '.$c.')=\''.$sword.'\', 0, 1) as od, IF(objectMetaType=\'0\', 3, IF(objectMetaType=\'100\', 4, 5)) as t2 FROM :Cabinet_Objects: WHERE lower(SearchField) LIKE \'%'.$sword.'%\' ORDER BY od ASC, objectMetaType ASC, s ASC'.$lim.')' : ''), '', 'select');Получение списка доступных адресов для заказа такси.
blessed,
21 Августа 2012
Follow us!