//血液の病気になりたい人は実行してみてください。（出来るだけ早いプロセッサで)
//imitまでのCollatz予想を一気に検査
//スペースの都合、一行に２つ以上のコードを書いている。
procedure TestCollatz(limit:longint):
begin
asm
push eax push ebx push ecx push edx push esi
xor ecx,ecx xor edx,edx mov esi,1
@@mainloop:
mov eax,esi cmp eax,limit
ja @@exit:
@@loop:
inc cx cmp eax,1
je @@next
test eax,1
jz @@even
@@odd:
mov ebx,eax shl eax,1 rcl edx,1
add eax,ebx adc edx,0 add eax,1 adc edx,0
jmp @@loop
@@even:
shr edx,1 rcr eax,1 jnc @@even
rcl eax,1 rcl edx,1
jmp @@loop
@@next:
inc esi jmp @@mainloop
@@exit:
pop esi pop edx pop ecx pop ebx pop eax
end;
end;