steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix compile error in nibble-arrays and add some unit tests

db4
Slava Pestov 2008-12-03 06:16:17 -06:00
parent 90409502e3
commit 1944fe54c0
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/nibble-arrays/nibble-arrays-tests.factor Normal file
View File

@ -0,0 +1,6 @@
USING: nibble-arrays tools.test sequences kernel math ;
IN: nibble-arrays.tests
[ t ] [ 16 dup >nibble-array sequence= ] unit-test
[ N{ 4 2 1 3 } ] [ N{ 3 1 2 4 } reverse ] unit-test
[ N{ 1 4 9 0 9 4 } ] [ N{ 1 2 3 4 5 6 } [ sq ] map ] unit-test

4
basis/nibble-arrays/nibble-arrays.factor
View File

@ -17,10 +17,10 @@ TUPLE: nibble-array
: byte/nibble ( n -- shift n' ) : byte/nibble ( n -- shift n' )
[ 1 bitand 2 shift ] [ -1 shift ] bi ; inline [ 1 bitand 2 shift ] [ -1 shift ] bi ; inline
: get-nibble ( shift n byte -- nibble ) : get-nibble ( n byte -- nibble )
swap neg shift nibble bitand ; inline swap neg shift nibble bitand ; inline
: set-nibble ( value shift n byte -- byte' ) : set-nibble ( value n byte -- byte' )
nibble pick shift bitnot bitand -rot shift bitor ; inline nibble pick shift bitnot bitand -rot shift bitor ; inline
: nibble@ ( n nibble-array -- shift n' byte-array ) : nibble@ ( n nibble-array -- shift n' byte-array )