2008-12-03 07:16:17 -05:00
|
|
|
USING: nibble-arrays tools.test sequences kernel math ;
|
|
|
|
|
IN: nibble-arrays.tests
|
|
|
|
|
|
2011-08-27 19:44:59 -04:00
|
|
|
[ -1 <nibble-array> ] [ T{ bad-array-length f -1 } = ] must-fail-with
|
|
|
|
|
|
2015-07-02 20:28:17 -04:00
|
|
|
{ t } [ 16 iota 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
|
