Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
−79
t = 40000 -- количество итераций, чтобы выполнялось примерно 1 миллисекунду
-- экспериментальным путем определено, что для ideone'вских машин это значение ~40000
sleep x = (apply (t*x) id x) `seq`
("I've waited ~" ++ show x ++ " milliseconds to tell this: 'pipisiunchik'.")
-- apply применяет ф-цию f к x n раз
apply 0 _ !x = x
apply !n !f !x = apply (n - 1) f (f x)
main = putStrLn $ sleep 1000
Спешу представить вам плод моего безделья: чистая ф-ция sleep на Haskell!
Тесты:
1sec - http://ideone.com/sLxRx
3.5sec - http://ideone.com/vn4Fd
10sec - http://ideone.com/U8s36
zim,
31 Июля 2012
+120
private void button4_Click(object sender, RoutedEventArgs e)
{
if (!rand)
{
rand = true;
}
if (rand)
{
rand = false;
}
} // Кнопка переключения воспроизведения в случайный режим и оборатно
psina-from-ua,
30 Июня 2012
+72
public function isAdmin() {
$admins = Model::factory('User')->where('access_level_id', 1)->find_many();
$ids = array();
foreach($admins as $admin) {
$ids[]= $admin->id;
}
return in_array($this->id, $ids) ? true : false;
}Метод проверки на админе из модели пользователей. Не, ну а чо.
mr.The,
26 Июня 2012
−116
ВЫБОР
КОГДА ПолФизическихЛиц.Ссылка = "Женский"
ТОГДА "М"
ИНАЧЕ "Ж"
КОНЕЦВот такой вот забавный запрос
glavdir,
25 Июня 2012
−47
void init_by_array64(unsigned long long init_key[],
unsigned long long key_length)
{
unsigned long long i, j, k;
init_genrand64(19650218ULL);
i=1; j=0;
k = (NN>key_length ? NN : key_length);
for (; k; k--) {
mt[i] = (mt[i] ^ ((mt[i-1] ^ (mt[i-1] >> 62)) * 3935559000370003845ULL))
+ init_key[j] + j; /* non linear */
i++; j++;
if (i>=NN) { mt[0] = mt[NN-1]; i=1; }
if (j>=key_length) j=0;
}
for (k=NN-1; k; k--) {
mt[i] = (mt[i] ^ ((mt[i-1] ^ (mt[i-1] >> 62)) * 2862933555777941757ULL))
- i; /* non linear */
i++;
if (i>=NN) { mt[0] = mt[NN-1]; i=1; }
}
mt[0] = 1ULL << 63; /* MSB is 1; assuring non-zero initial array */
}"Чистый и ясный код" (с)
Fai,
24 Июня 2012
+69
String sXLTName = template;
String[] fileNames = new File(templatePath).list();
try {
if (fileNames != null) {
for (String fileName : fileNames) {
if (fileName.equalsIgnoreCase(template)) {
sXLTName = fileName;
break;
}
}
}
} finally {
tmpBook = POIHelper.openRepBook(templatePath + sXLTName);
}Вместо tmpBook = POIHelper.openRepBook(templatePath + template);
glprizes,
15 Июня 2012
+61
$translitReplace=array(array('.', ',', ' ', 'а', 'б', 'в', 'г', 'д', 'е', 'ё', 'ж', 'з', 'и', 'й', 'к', 'л', 'м', 'н', 'о', 'п', 'р', 'с', 'т', 'у', 'ф', 'х', 'ц', 'ч', 'ш', 'щ', 'ъ', 'ы', 'ь', 'э', 'ю', 'я'),
array('', '', '-', 'A', 'B', 'V', 'G', 'D', 'E', 'JO', 'ZH', 'Z', 'I', '', 'K', 'L', 'M', 'N', 'O', 'P', 'R', 'S', 'T', 'U', 'F', 'KH', 'C', 'CH', 'SH', 'SHH', '', 'Y', '', 'E', 'JU', 'JA'));
if(!$_POST['uriNews']) $_POST['uriNews']=strtolower(str_replace($translitReplace[0], $translitReplace[1], mb_strtolower($_POST['titleNews'], 'utf-8')));
Личное творчество. :)
Это когда начальник грозно дышит в ухо "гдебля", ты отвечаешь "щабля", ударяешься оземь и оборачиваешься птицей с радостным "вобля", а потом смотришь собственный код и думаешь "нубля".
skryisli,
15 Июня 2012
+65
$new_array = explode('.sep.', implode('.sep', $old_array));Полезная функция с http://www.dzone.com/snippets/re-create-array-index
Anon8yXubeVu,
08 Июня 2012
−96
import sys, os
# include project path like an EVIL
sys.path.append('/'+os.path.join(*os.getcwd().split(os.path.sep)[1:-1]))Включении в поиск родительской директории
mindinpanic,
31 Мая 2012
+74
# Определение IP адреса
static public function ip() {
# Список возможных заголовков для получения ip адреса
$Sip = array();
$Sip['REMOTE_ADDR'] = getenv('REMOTE_ADDR');
$Sip['HTTP_FORWARDED_FOR'] = getenv('HTTP_FORWARDED_FOR');
$Sip['HTTP_X_FORWARDED_FOR'] = getenv('HTTP_X_FORWARDED_FOR');
$Sip['HTTP_X_COMING_FROM'] = getenv('HTTP_X_COMING_FROM');
$Sip['HTTP_VIA'] = getenv('HTTP_VIA');
$Sip['HTTP_XROXY_CONNECTION'] = getenv('HTTP_XROXY_CONNECTION');
$Sip['HTTP_CLIENT_IP'] = getenv('HTTP_CLIENT_IP');
$Sip['Unknow'] = '0.0.0.0';
# Выбор найденного ip адреса
if(isset($Sip['REMOTE_ADDR'])) {
$Rip = $Sip['REMOTE_ADDR'];
} else if(isset($Sip['HTTP_FORWARDED_FOR'])) {
$Rip = $Sip['HTTP_FORWARDED_FOR'];
} else if(isset($Sip['HTTP_X_FORWARDED_FOR'])) {
$Rip = $Sip['HTTP_X_FORWARDED_FOR'];
} else if(isset($Sip['HTTP_X_COMING_FROM'])) {
$Rip = $Sip['HTTP_X_COMING_FROM'];
} else if(isset($Sip['HTTP_VIA'])) {
$Rip = $Sip['HTTP_VIA'];
} else if(isset($Sip['HTTP_XROXY_CONNECTION'])) {
$Rip = $Sip['HTTP_XROXY_CONNECTION'];
} else if(isset($Sip['HTTP_CLIENT_IP'])) {
$Rip = $Sip['HTTP_CLIENT_IP'];
} else {
$Rip = '0.0.0.0';
}
# Валидация ip адреса
# Получение из секций массив
$ARip = explode( '.', $Rip );
# Пересборка ip адреса
$RARip = array(0 => NULL, 1 => NULL, 2 => NULL, 3 => NULL);
for($n = 0; $n < 10; $n++) {
$RARip[0] .= isset( $ARip[0]{$n} ) ? $ARip[0]{$n} : NULL;
$RARip[1] .= isset( $ARip[1]{$n} ) ? $ARip[1]{$n} : NULL;
$RARip[2] .= isset( $ARip[2]{$n} ) ? $ARip[2]{$n} : NULL;
$RARip[3] .= isset( $ARip[3]{$n} ) ? $ARip[3]{$n} : NULL;
}
$BRip = substr( (int) $RARip[0], 0, 3 ) . '.' . substr( (int) $RARip[1], 0, 3 ) . '.' . substr( (int) $RARip[2], 0, 3 ) . '.' . substr( (int) $RARip[3], 0, 3 );
# Возвращение пересобранного ip адреса
return $BRip;
}
Не столько — «Г», сколько — «Извращение»...
Улыбнуло имя переменной — $Rip;
А раньше этот код был суровее — exit( $string ); в случаи не соответствия...
nethak,
22 Мая 2012
Follow us!