"Шедевры" программерской мысли

[Хыиуду]

Кусок кода на Перле, который очень напоминает музыку из мультика "Розовая Пантера"
my @param = $r->param();
my %param;
foreach my $param (@param)
{ $param{$param} = $r->param($param);
}

[Хыиуду]

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);
}

[BBB]

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);
}

Будете смеятся (а, может, не будете), но на PL/SQL именно так и проверяется.

Код: Выделить всё

function IsInteger (pValue in varchar2) return boolean
is
begin
  return (translate (pValue,'$1234567890','$') is null);
end;   -- IsInteger

Вот, я даже одну из ссылок, где нашел "первоисточник", сохранил:
http://www.sql.ru/forum/actualthread.aspx?tid=385100

[demon416]

Локальную версию http://thedailywtf.com/ делаете?))))

[Duncon]

Как это расценить? Флуд? Ркеклама?
Что сделать? - заблочить юзера..

[demon416]

Как флейм в разделе флейма
да и не реклама это просто все эти "шедевры" я уже видел
поэтому и написал где
банить изза одного сообщения - жестко однако

[Игорь Акопян]

ну я бы к примеру не стал открывать ссылку с очень неоднозначным названием.... предлагаю просто удалить сообщения 14-17 как офтопик

[atavin-ta]

PUSH AX
POP AX

Это вместо двух NOPов наверное. А как вам такая DOS оболочка:

Код: Выделить всё

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-ой строки. Для чего по вашему там двоеточие?
И нафига вводить числовой номер программы, если список программ уже валяется на экране? И ко всему прочему надо было отдельно вручную сформировать файл с именами программ и сохранить его на диске.

[Albor]

Шедевр от Microsoft. Что может подумать нормальный человек о функции, представленной таким прототипом?

Код: Выделить всё

int CRichEditCtrl::LineLength(int nLine = -1) const;

Правильно. Функция возвращает длину строки, номер которой передаётся как параметр. Но, не тут то было. Как оказалось, под именем nLine кроется индекс символа в тексте. Что обидно, за пару дней до использования оной, почитал MSDN и отметил для себя несоответствие, но... вылетело из головы. За что и поплатился - мучил дебаггер, пока не въехал в чём дело.