Кусок кода на Перле, который очень напоминает музыку из мультика "Розовая Пантера"
my @param = $r->param();
my %param;
foreach my $param (@param)
{ $param{$param} = $r->param($param);
}
"Шедевры" программерской мысли
Модератор: Duncon
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Bool IsNumber (string str) {
return (str.Replace ("0", "").Replace ("1", "").Replace ("2", "").Replace ("3", "").Replace ("4", "").Replace ("5", "").Replace ("6", "").Replace ("7", "").Replace ("8", "").Replace ("9", "").Length == 0);
}
return (str.Replace ("0", "").Replace ("1", "").Replace ("2", "").Replace ("3", "").Replace ("4", "").Replace ("5", "").Replace ("6", "").Replace ("7", "").Replace ("8", "").Replace ("9", "").Length == 0);
}
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Будете смеятся (а, может, не будете), но на PL/SQL именно так и проверяется.Хыиуду писал(а):Bool IsNumber (string str) {
return (str.Replace ("0", "").Replace ("1", "").Replace ("2", "").Replace ("3", "").Replace ("4", "").Replace ("5", "").Replace ("6", "").Replace ("7", "").Replace ("8", "").Replace ("9", "").Length == 0);
}
Код: Выделить всё
function IsInteger (pValue in varchar2) return boolean
is
begin
return (translate (pValue,'$1234567890','$') is null);
end; -- IsIntegerhttp://www.sql.ru/forum/actualthread.aspx?tid=385100
Локальную версию http://thedailywtf.com/ делаете?))))
ака хинт: коментируйте код, самим же легче будет разобраться 
Как это расценить? Флуд? Ркеклама?
Что сделать? - заблочить юзера..
Что сделать? - заблочить юзера..
Как флейм в разделе флейма
да и не реклама это просто все эти "шедевры" я уже видел
поэтому и написал где
банить изза одного сообщения - жестко однако
да и не реклама это просто все эти "шедевры" я уже видел
поэтому и написал где
банить изза одного сообщения - жестко однако
ака хинт: коментируйте код, самим же легче будет разобраться
-
Игорь Акопян
- Сообщения: 1440
- Зарегистрирован: 13 окт 2004, 17:11
- Откуда: СПБ
- Контактная информация:
ну я бы к примеру не стал открывать ссылку с очень неоднозначным названием.... предлагаю просто удалить сообщения 14-17 как офтопик 
Это вместо двух NOPов наверное. А как вам такая DOS оболочка:" писал(а):PUSH AX
POP AX
Код: Выделить всё
1 cls
2 open #3, "progs.#": input #3,n: pn$(n): for i=1 to n step 1:
3 input #3,pn(i): print pn(i), :next i
4 input n: merge pn(n)+".b":goto 20
Особенно обратите внимание на конец 2-ой строки. Для чего по вашему там двоеточие?
И нафига вводить числовой номер программы, если список программ уже валяется на экране? И ко всему прочему надо было отдельно вручную сформировать файл с именами программ и сохранить его на диске.
Вопрос: "Почему вы все сионисты? Нельзя ли писать на чём то другом?".
Ответ: "Писать можно на чём угодно. Но зачем же так себя ограничивать? Пиши на С!".
Ответ: "Писать можно на чём угодно. Но зачем же так себя ограничивать? Пиши на С!".
Шедевр от Microsoft. Что может подумать нормальный человек о функции, представленной таким прототипом?
Правильно. Функция возвращает длину строки, номер которой передаётся как параметр. Но, не тут то было. Как оказалось, под именем nLine кроется индекс символа в тексте. Что обидно, за пару дней до использования оной, почитал MSDN и отметил для себя несоответствие, но... вылетело из головы. За что и поплатился - мучил дебаггер, пока не въехал в чём дело.
Код: Выделить всё
int CRichEditCtrl::LineLength(int nLine = -1) const;