Better hints
parent
53df21c033
commit
d927ed5620
|
@ -22,17 +22,15 @@ IN: math.bitwise
|
|||
[ shift ] dip 2^ wrap ; inline
|
||||
|
||||
: bitroll ( x s w -- y )
|
||||
[ wrap ] keep
|
||||
[ shift-mod ]
|
||||
[ [ - ] keep shift-mod ] 3bi bitor ; inline
|
||||
[ shift-mod ] [ [ - ] keep shift-mod ] 3bi bitor ; inline
|
||||
|
||||
: bitroll-32 ( n s -- n' ) 32 bitroll ; inline
|
||||
|
||||
HINTS: bitroll-32 bignum fixnum ;
|
||||
HINTS: bitroll-32 { bignum fixnum } { fixnum fixnum } ;
|
||||
|
||||
: bitroll-64 ( n s -- n' ) 64 bitroll ; inline
|
||||
|
||||
HINTS: bitroll-64 bignum fixnum ;
|
||||
HINTS: bitroll-64 { bignum fixnum } { fixnum fixnum } ;
|
||||
|
||||
! 32-bit arithmetic
|
||||
: w+ ( int int -- int ) + 32 bits ; inline
|
||||
|
|
Loading…
Reference in New Issue