- 1
http://pastebin.com/Wz1AHMh8
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+124
http://pastebin.com/Wz1AHMh8
Поскольку на уютненьком снова завелся унылый флудер, выкладываю доработанную версию автоскрывателя коментариев.
Теперь банановый с поддержкой аякс-подгрузки!
+59
function get_datefrom ($eventid, $eventtype)
{
global $filter_date_kudy;
$today = date("Ymd");
if ($filter_date_kudy) $today = $filter_date_kudy;
$todayweekday = date("w");
$quGroup = mysql_query("SELECT datefrom, dateto, permanent, weekday1, weekday2, weekday3, weekday4, weekday5, weekday6, weekday7 from eventtime where eventid='$eventid' and eventtype='$eventtype' order by datefrom ASC");
while ($flGroup = mysql_fetch_row($quGroup)) {
$datefrom = ($flGroup[0]);
$dateto = ($flGroup[1]);
$permanent = ($flGroup[2]);
$weekday1 = ($flGroup[3]);
$weekday2 = ($flGroup[4]);
$weekday3 = ($flGroup[5]);
$weekday4 = ($flGroup[6]);
$weekday5 = ($flGroup[7]);
$weekday6 = ($flGroup[8]);
$weekday7 = ($flGroup[9]);
if ($datefrom && !$dateto && !$permanent && $datefrom >= $today) $date = $datefrom;
if (!$datefrom && !$dateto && $permanent && !$weekday1 && !$weekday2 && !$weekday3 && !$weekday4 && !$weekday5 && !$weekday6 && !$weekday7) $date = $today;
if ($datefrom && $dateto && $today >= $datefrom && $today <= $dateto) $date = $today;
if (!$datefrom && !$dateto && $permanent && ($weekday1 || $weekday2 || $weekday3 || $weekday4 || $weekday5 || $weekday6 || $weekday7)) {
$dt = "";
if ($todayweekday == 0 && $weekday7) $dt = $today;
if ($todayweekday == 1 && $weekday1) $dt = $today;
if ($todayweekday == 2 && $weekday2) $dt = $today;
if ($todayweekday == 3 && $weekday3) $dt = $today;
if ($todayweekday == 4 && $weekday4) $dt = $today;
if ($todayweekday == 5 && $weekday5) $dt = $today;
if ($todayweekday == 6 && $weekday6) $dt = $today;
$j = 0;
while (!$dt && $j < 100) {
$j++;
$todayweekday2 = date("w", mktime(0, 0, 0, date("m"), date("d") + $j, date("Y")));
$today2 = date("Ymd", mktime(0, 0, 0, date("m"), date("d") + $j, date("Y")));
if ($todayweekday2 == 0 && $weekday7) $dt = $today2;
if ($todayweekday2 == 1 && $weekday1) $dt = $today2;
if ($todayweekday2 == 2 && $weekday2) $dt = $today2;
if ($todayweekday2 == 3 && $weekday3) $dt = $today2;
if ($todayweekday2 == 4 && $weekday4) $dt = $today2;
if ($todayweekday2 == 5 && $weekday5) $dt = $today2;
if ($todayweekday2 == 6 && $weekday6) $dt = $today2;
}
$date = $dt;
}
if ($date) break;
}
return $date;
}
нет слов
+97
SetLength(s,N);
SetLength(Y,N);
SetLength(U,N);
SetLength(Z,N);
SetLength(E,N);
for i:=0 to N do //какбэ на выход за границы даже не смотрим, не в этом суть
begin
SetLength(S[i],M);
SetLength(Y[i],M);
SetLength(U[i],M);
SetLength(Z[i],M);
SetLength(E[i],M);
end;
Переделывал чужой консольный проект под форму, не сразу понял, что происходит.
Так вот, Вы, наверное, думаете, что знаете, как задавать размер динамического массива? Нет, нихрена вы не знаете.
+125
(defun question-2 ()
(let ((b '(1 2 3))
(a '(1 2 3 4))
(com (make-hash-table :test #'equal)))
(labels ((put-sorted (x)
(let ((key
(sort
(flatten
(copy-tree x)) #'<)))
(if (gethash key com)
(incf (gethash key com))
(setf (gethash key com) 1)))))
(values (remove-if
#'(lambda (x)
(prog ((results
(do ((x x (cdr x)) (r))
(nil)
(setf r (append (cadar x) r))
(when (null (cdr x))
(return r)))))
(dolist (y a)
(when (not (member y results))
(go remove-it)))
(put-sorted results)
(go keep-it)
remove-it (return t)
keep-it nil))
(all-functions b (cartesian-product a))) com))))
Ну, чем бы еще порадовать. Вот, родилось во время проверки домашних заданий :)
−136
СОСИТЕ МОЙ ХУЙ, УБЛЮДКИ!!!
+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;
}
Заголовки у письма отфильтрованы... Всё «путём» катимся дальше...
+67
preg_match('/(\d+)-(\d+)-(\d+)/i', date('d-m-Y'), $match);
ob_start();
echo (($match[1] == 30 || $match[1] == 31)?'01':(($match[2] <= 10)?'0':'').''.(++$match[1])).'.';
echo ((!$match[2][1])?'0':'');
echo (($match[1] == 30 || $match[1] == 31)?++$match[2]:$match[2]);
echo '.'.$match[3];
$rdate = ob_get_contents();
ob_end_clean();
Досталось в наследство...
По алгоритму $rdate должна содержать текущее число следующего месяца в формате date('d.m.Y'). Мало того, что способ означивания переменной чрезвычайно необычен, код оформлен безобразно, так оно еще и не работает!
На 29.05.2012 выдает "030.6.2012"
−83
+ (void) playMovieWithResourceFile: (NSString *) file
{
const char *source = [ file cStringUsingEncoding: [NSString defaultCStringEncoding] ];
size_t length = strlen( source );
char *str = malloc( sizeof( char) * (length + 1) );
memcpy( str, source, sizeof (char) * (length + 1) );
char *type = strstr( str, ".");
*type = 0;
type++; //< now we have extension in type, and name in str cStrings
NSAutoreleasePool *pool = [NSAutoreleasePool new];
NSString *sName, *sType;
sName = [ NSString stringWithUTF8String: str ];
sType = [ NSString stringWithUTF8String: type];
[self playMovieWithName: sName Type: sType];
// free str, but do not free type - it is a part of str
free( str );
[pool release];
}
Вроде бы серьезный проект cocos2d-extensions https://github.com/cocos2d/cocos2d-iphone-extensions
Отрезаем расширение у файла :)
Или я что-то не понимаю…
+75
if (ereg("^/products/([0-9]+)/$",$dn,$m)){
$block_id = $m[1];
$dn_page = "/products/";
}
if (ereg("^/products/([-a-z0-9_\.]+)/$",$dn,$m)){
$block_alias = $m[1];
$dn_page = "/products/";
}
if (ereg("^/articles/([0-9]+)/$",$dn,$m)){
$block_id = $m[1];
$dn_page = "/articles/";
}
if (ereg("^/news/([0-9]+)/$",$dn,$m)){
$block_id = $m[1];
$dn_page = "/news/";
}
if (ereg("^/products/([0-9]+)/([0-9]+)/$",$dn,$m)){
$block_id = $m[1];
$product_id = $m[2];
$dn_page = "/products_detail/";
}
if (ereg("^/products/([-a-z0-9_\.]+)/([-a-z0-9_\.]+)/$",$dn,$m)){
$block_alias = $m[1];
$product_alias = $m[2];
$dn_page = "/products_detail/";
}
// дальше начинается ад, не для слабонервных
Я не буду показывать остальной код и рассказывать, что html в php пихать не красиво, ведь все мы индивидуальны и пишем как хотим. =)
Кроме всего прочего, человек видимо очень стар и использует давно устаревшую функцию ereg, которая в версии 5.3.0 не имеет силы.
На эту тему можно пофилософствовать и развести холивар, но мы же разумные люди и те кто пишет комментарии высшие программисты,
ибо их слово это закон. По крайней мере вы так думаете)
−40
/*
* This GtkIMHtml has the maximum number of smileys allowed, so don't
* add any more. We do this for performance reasons, because smileys
* are apparently pretty inefficient. Hopefully we can remove this
* restriction when we're using a better HTML widget.
*/
unescaped = purple_unescape_html(smiley);
numsmileys_thismsg = GPOINTER_TO_INT(g_object_get_data(G_OBJECT(imhtml), "gtkimhtml_numsmileys_thismsg"));
if (numsmileys_thismsg >= 30) {
gtk_text_buffer_insert(imhtml->text_buffer, iter, unescaped, -1);
g_free(unescaped);
return;
}
numsmileys_total = GPOINTER_TO_INT(g_object_get_data(G_OBJECT(imhtml), "gtkimhtml_numsmileys_total"));
if (numsmileys_total >= 300) {
gtk_text_buffer_insert(imhtml->text_buffer, iter, unescaped, -1);
g_free(unescaped);
return;
}
Вот такой прикол от Pidgin. Больше 30 смайлов в сообщении и 300 в диалоге - низя. Захардкодили, ибо стыдно, что тормозит. А оно действительно тормозит.