Я от нефиг делать транспонировал 16 бит.

[Zenitchik]

Если представить себе 2 байта в виде матрицы 4х4 бита, то оная матрица транспонируется так:

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

Dim m As Integer, n As Ineger

n=(m AND -31711) OR (m AND 2114)*8 OR (m AND 132)*64 OR (m AND 8)*512 OR (m AND 16912)\8 OR (m AND 8448)\64 OR (m AND 4096)\512

Зачем я это сделал - сам не знаю. Может, кому-нибудь для чего-нибудь пригодится...

[Debugger]

Работоспособность кода проверял?

[Хакер]

Невооружённм глазом видно, что правильный. Правда нечитаемый (из-за использования магических констант).

Теперь, Зенитчик, поломай голову над тем, как ещё оптимизировать это выражение

[arthur2]

Лучше поломай голову об то, куда ж это использовать А вообще - прикольно

[Хакер]

Лучше поломай голову об то, куда ж это использовать

Куда используют rot13?

[iGrok]

Ммм.. Интересная штука. Пожалуй, я найду где это у себя применить.
Спасибо за идею.

[1Steps]

http://ru.wikipedia.org/wiki/%D0%A2%D1% ... 1%86%D0%B0

[Хакер]

http://ru.wikipedia.org/wiki/%D0%A2%D1%80%D0%B0%D0%BD%D1%81%D0%BF%D0%BE%D0%BD%D0%B8%D1%80%D0%BE%D0%B2%D0%B0%D0%BD%D0%BD%D0%B0%D1%8F_%D0%BC%D0%B0%D1%82%D1%80%D0%B8%D1%86%D0%B0

И?

[1Steps]

И?

Так, на всякий случай.