Developing.ru

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

Шедевр от Microsoft. Что может подумать нормальный человек о функции, представленной таким прототипом?
[code]int CRichEditCtrl::LineLength(int nLine = -1) const;[/code]Правильно. Функция возвращает длину строки, номер которой передаётся как параметр. Но, не тут то было. Как оказалось, под именем [b]nLine[/b] кроется индекс символа в тексте. Что обидно, за пару дней до использования оной, почитал MSDN и отметил для себя несоответствие, но... вылетело из головы. За что и поплатился - мучил дебаггер, пока не въехал в чём дело.

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

[quote="&quot"]PUSH AX
POP AX[/quote]
Это вместо двух NOPов наверное. А как вам такая DOS оболочка:
[code]
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
[/code]?
Особенно обратите внимание на конец 2-ой строки. Для чего по вашему там двоеточие?
И нафига вводить числовой номер программы, если список программ уже валяется на экране? И ко всему прочему надо было отдельно вручную сформировать файл с именами программ и сохранить его на диске.

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

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

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

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

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

[quote="Хыиуду"]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);
}[/quote] Будете смеятся (а, может, не будете), но на PL/SQL именно так и проверяется.
[code]function IsInteger (pValue in varchar2) return boolean
is
begin
return (translate (pValue,'$1234567890','$') is null);
end; -- IsInteger[/code]

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

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

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

Ага, ага, помню секс на Ассемблере:
PUSH AX
POP AX