| Прокодка раунд 3 |
| 1 | SomeFunc proc ArrayAddr:DWORD, ArraySize:DWORD push eax push edx push ecx push esi mov eax, 1 sort_outer: cmp eax, 1 jnz sort_end mov eax, 0 mov ecx, ArraySize dec ecx mov esi, OFFSET array</font> sort_inner: mov ebx, DWORD PTR [esi] mov edx, DWORD PTR [esi+4] cmp ebx, edx jng nochange mov DWORD PTR [esi+4], ebx mov DWORD PTR [esi], edx mov eax, 1 nochange: add esi, 4 loop sort_inner jmp sort_outer sort_end: pop esi pop ecx pop edx pop eax ret SomeFunc endp |
| 2 | (defun some-func (w) (do ((i (1- (length w)) (1- i))) ((zerop i)) (do ((j 0 (1+ j))) ((= j i)) (when (< (nth i w) (nth j w)) (rotatef (nth i w) (nth j w))))) w) |
| 3 | ++++++++++[>+++++++>++++++++++>+++<<<-]>++.>+.+++++++..+++.>++.<<+++++++++++++++.>.+++.------.--------.>+. |
| 4 |
Комментарии