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