Фортомания и Фортизмы
1 view
Skip to first unread message
Duke
Mar 11, 2008, 3:32:32 PM3/11/08
to Forth On TOP @ AMCP
Обещанный тред про "Фишки Форта" создан!
Он предназначен для коллекционирования самых ярких эпизодов, слов,
идей, возникающих при Forth-творчестве.
В этом треде предлагаю придерживаться негласного правила, чтобы
приводимый код был максимально полезен другим: Пояснить найденный и
приведённый код и сообщить, как вы добрались до такого решения, какую
задачу решали.
Он предназначен для коллекционирования самых ярких эпизодов, слов,
идей, возникающих при Forth-творчестве.
В этом треде предлагаю придерживаться негласного правила, чтобы
приводимый код был максимально полезен другим: Пояснить найденный и
приведённый код и сообщить, как вы добрались до такого решения, какую
задачу решали.
Michael Gasanenko
Mar 13, 2008, 9:46:12 PM3/13/08
to Forth On TOP @ AMCP
BASE @ OCTAL
: COUNTBITS ( uint32 -- numbits)
DUP 1 RSHIFT 33333333333 AND
DUP 1 RSHIFT 33333333333 AND + -
DUP 3 RSHIFT + 30707070707 AND
U>D 77 UM/MOD DROP ;
BASE !
;)
: COUNTBITS ( uint32 -- numbits)
DUP 1 RSHIFT 33333333333 AND
DUP 1 RSHIFT 33333333333 AND + -
DUP 3 RSHIFT + 30707070707 AND
U>D 77 UM/MOD DROP ;
BASE !
;)
Reply all
Reply to author
Forward
0 new messages