Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+122
case m of
1: yy=x[0]+x[1]*i;
2: yy=x[0]+x[1]*i+x[2]*i*i;
3: yy=x[0]+x[1]*i+x[2]*i*i+x[3]*i*i*i;
4: yy=x[0]+x[1]*i+x[2]*i*i+x[3]*i*i*i+x[4]*i*i*i*i;
5: yy=x[0]+x[1]*i+x[2]*i*i+x[3]*i*i*i+x[4]*i*i*i*i+x[5]*i*i*i*i*i;
6: yy=x[0]+x[1]*i+x[2]*i*i+x[3]*i*i*i+x[4]*i*i*i*i+x[5]*i*i*i*i*i+x[6]*i*i*i*i*i*i
end;Увидел у одногруппницы в лабе по численным методам (3й курс) вот такое... Интересный подход к степени)))
darktemplar257,
10 Октября 2011
+89
unit uIsPalindrome;
interface
function IsPalindrome(const aString: string): Boolean;
implementation
uses
Spring.Collections
, {$IF CompilerVersion >= 230}System.{$IFEND}SysUtils
;
function CleanString(const aString: string): string;
var
C: char;
begin
// Remove all non-alpha chars and make all lower case
// Spaces don't matter, so let's count only letters
Result := '';
for C in LowerCase(aString) do
begin
if CharInSet(C, ['a'..'z', 'A'..'Z']) then
begin
Result := Result + C;
end;
end;
end;
function IsPalindrome(const aString: string): Boolean;
var
Stack: IStack<Char>;
C: Char;
NoSpaces: string;
Temp: string;
begin
NoSpaces := CleanString(aString);
Stack := TCollections.CreateStack<Char>;
for C in NoSpaces do
begin
Stack.Push(C);
end;
Temp := '';
repeat
Temp := Temp + Stack.Pop;
until Stack.Count = 0;
Result := Temp = NoSpaces;
end;
end.true java style...
d_dev,
10 Октября 2011
+102
const n = 50;
type vec = array [1..n*4] of system.word;
function vprod(const a, b: vec): Cardinal;
var i: longInt;
begin
result := 0;
for i := 1 to high(vec) do inc(result, a[i] * b[i]);
end;
function vprod_asm1(const a, b: vec): Cardinal; assembler;
asm
push ebx
push ecx
push edx
push esi
push edi
xor ebx, ebx
mov ecx, n*4
mov esi, a
mov edi, b
xor eax, eax
cld
@@l:
mov ax, word ptr [esi]
lea esi, [esi+2]
mul word ptr [edi]
lea edi, [edi+2]
shl edx, 16
mov dx, ax
add ebx, edx
dec ecx
jne @@l
mov eax, ebx
pop edi
pop esi
pop edx
pop ecx
pop ebx
end;
function vprod_asm2(const a, b: vec): Cardinal; assembler;
asm
push ebx
push ecx
push edx
push esi
push edi
xor ebx, ebx
mov ecx, n*4
mov esi, a
mov edi, b
xor eax, eax
cld
@@l:
lodsw
movzx edx, WORD PTR [edi]
imul edx
lea edi, [edi+2]
add ebx, eax
loop @@l
mov eax, ebx
pop edi
pop esi
pop edx
pop ecx
pop ebx
end;
function vprod_mmx (const a, b: vec): Cardinal; assembler;
var muls: record l, h: Cardinal end;
asm
push ebx
push ecx
push esi
push edi
mov ecx, n
mov esi, a
mov edi, b
xor eax, eax
lea ebx, muls
@@l:
db $0F,$6F,$06 // movq mm0, [esi]
db $0F,$F5,$07 // pmaddwd mm0, [edi]
lea esi, [esi+8]
db $0F,$7F,$03 // movq [ebx], mm0
lea edi, [edi+8]
add eax, [ebx]
add eax, [ebx+4]
loop @@l
db $0F,$77 // emms
pop edi
pop esi
pop ecx
pop ebx
end;
По просьбам трудящихся публикую модифицированную версию примера MMXTEST.PAS из комплекта компилятора TMT Pascal. Программа находит скалярное произведение двух векторов. Далее должен быть основной блок с фрагментами типа for i := 1 to 100000 do vprod(a, b); , которые я не стал публиковать ввиду ограничений. Функция vprod_asm1 — почти оригинальный код TMT, функция vprod_asm2 — мой оптимизированный вариант. Результаты запуска на двух машинах (таймер получал по RDTSC):
AMD K6-2-333 МГц, FSB 66 МГц.
Delphi7:
Pascal = 0.550 sec.
Asm x86 (original) = 1.034 sec.
Asm x86 (optimized) = 0.490 sec.
Asm MMX = 0.130 sec.
С директивой $O- первый результат 0.853 sec.
Замена loop на dec ecx + jne увеличивает результаты на 0,015 c.
FPC:
Pascal = 1.387 sec.
Asm x86 (original) = 1.199 sec.
Asm x86 (optimized) = 0.510 sec.
Asm MMX = 0.124 sec.
TMT:
Pascal = 0.914 sec.
Asm x86 (original) = 1.037 sec.
Asm x86 (optimized) = 0.494 sec.
Asm MMX = 0.126 sec.
VP:
Pascal = 0.520 sec.
Asm x86 (original) = 1.033 sec.
Asm x86 (optimized) = 0.493 sec.
Asm MMX = 0.146 sec.
С директивами $Q+,R+ первый результат 1.032 sec.
С директивой $Speed- первый результат 0.731 sec.
------------------------------
Celeron 1,86 ГГц, FSB 533 МГц.
Delphi7:
Pascal = 0.025 sec.
Asm x86 (original) = 0.091 sec.
Asm x86 (optimized) = 0.082 sec.
Asm MMX = 0.044 sec.
TMT:
Pascal = 0.109 sec.
Asm x86 (original) = 0.087 sec.
Asm x86 (optimized) = 0.079 sec.
Asm MMX = 0.042 sec.
inkanus-gray,
25 Сентября 2011
+101
procedure TForm1.ShowPaletteButtonClick(Sender: TObject);
begin
if Form2.Visible = False then Form2.Visible := True;
Form2.BringToFront;
end;
кстати о документации
подлинное говно от багланд интернейшнл
пруф - http://docwiki.embarcadero.com/CodeExamples/en/BringToFront_(Delphi)
bugmenot,
24 Сентября 2011
+107
for i:=1 to 8 do
begin
case i of
1 : begin
xx := 0;
yy := -LUCH_LEN;
end;
2 : begin
xx := round(LUCH_LEN/sqrt(2));;
yy := -round(LUCH_LEN/sqrt(2));;
end;
3 : begin
xx := LUCH_LEN;
yy := 0;
end;
4 : begin
xx := round(LUCH_LEN/sqrt(2));;
yy := round(LUCH_LEN/sqrt(2));;
end;
5 : begin
xx := 0;
yy := LUCH_LEN;
end;
6 : begin
xx := -round(LUCH_LEN/sqrt(2));;
yy := round(LUCH_LEN/sqrt(2));;
end;
7 : begin
xx := -LUCH_LEN;
yy := 0;
end;
8 : begin
xx := -round(LUCH_LEN/sqrt(2));
yy := -round(LUCH_LEN/sqrt(2));
end;
end;вот такое странное сочетание...
dvdking,
23 Сентября 2011
+103
...
var count: integer;
summ: integer;
begin
try
case count of
1: summ:=StrToInt(EditBox1.Text);
2: summ:=StrToInt(EditBox1.Text)+StrToInt(EditBox2.Text);
3: summ:=StrToInt(EditBox1.Text)+StrToInt(EditBox2.Text)+StrToInt(EditBox3.Text);
4: summ:=StrToInt(EditBox1.Text)+StrToInt(EditBox2.Text)+StrToInt(EditBox3.Text)+StrToInt(EditBox4.Text);
5: summ:=StrToInt(EditBox1.Text)+StrToInt(EditBox2.Text)+StrToInt(EditBox3.Text)+StrToInt(EditBox4.Text)+StrToInt(EditBox5.Text);
6: summ:=StrToInt(EditBox1.Text)+StrToInt(EditBox2.Text)+StrToInt(EditBox3.Text)+StrToInt(EditBox4.Text)+StrToInt(EditBox5.Text)+StrToInt(EditBox6.Text);
7: summ:=StrToInt(EditBox1.Text)+StrToInt(EditBox2.Text)+StrToInt(EditBox3.Text)+StrToInt(EditBox4.Text)+StrToInt(EditBox5.Text)+StrToInt(EditBox6.Text)++StrToInt(EditBox7.Text);
8: summ:=StrToInt(EditBox1.Text)+StrToInt(EditBox2.Text)+StrToInt(EditBox3.Text)+StrToInt(EditBox4.Text)+StrToInt(EditBox5.Text)+StrToInt(EditBox6.Text)++StrToInt(EditBox7.Text)++StrToInt(EditBox8.Text);
9: summ:=StrToInt(EditBox1.Text)+StrToInt(EditBox2.Text)+StrToInt(EditBox3.Text)+StrToInt(EditBox4.Text)+StrToInt(EditBox5.Text)+StrToInt(EditBox6.Text)++StrToInt(EditBox7.Text)++StrToInt(EditBox8.Text)+StrToInt(EditBox9.Text);
10: summ:=StrToInt(EditBox1.Text)+StrToInt(EditBox2.Text)+StrToInt(EditBox3.Text)+StrToInt(EditBox4.Text)+StrToInt(EditBox5.Text)+StrToInt(EditBox6.Text)++StrToInt(EditBox7.Text)++StrToInt(EditBox8.Text)+StrToInt(EditBox9.Text)+StrToInt(EditBox9.Text);
0: summ:= 0;
end;
except
ShowMessage('Error');
end;
end;
Сегодня увидал у однокурсника в универе.
Самый оптимальные метод подсчета суммы элементов EditBox, не правдали???
alexprey,
20 Сентября 2011
+112
ТАЩИТЕ ЛЕСТНИЦУ!
alexoy,
19 Сентября 2011
+146
var
WS1, WS2, WS3: TWSocket;
...
begin
...
WS1 := TWSocket.Create(Self);
WS2 := TWSocket.Create(Self);
WS3 := TWSocket.Create(Self);
...
end;и это гавно код
Xxx_Guf_xxX,
14 Сентября 2011
+146
var
WS: array[1..3] of TWSocket;
...
var
I: Integer;
begin
...
for I := 1 to 3 do
WS := TWSocket.Create(Self);
...
end;Гавно код так считают
Xxx_Guf_xxX,
14 Сентября 2011
+98
for j:=k+1 to n+1 do
begin
r:=a[j,k]/a[k,k];
for i:=k to n do
begin
a[j,i]:=power(((a[j,i]-r*a[k,i]):a[i,j]),a[j,i]);
end;
К сожалению, я уже забыл, какой идентификатор что значит :(
Придется переписывать.
Lioncure,
12 Сентября 2011
Follow us!