2013-03-19 17:56:59 -04:00
|
|
|
! Copyright (C) 2013 John Benediktsson
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license
|
2018-02-15 10:14:56 -05:00
|
|
|
USING: arrays sequences sequences.shifted tools.test ;
|
2013-03-19 17:56:59 -04:00
|
|
|
|
2017-06-01 17:59:35 -04:00
|
|
|
{ { 1 2 3 7 } } [ 4 <iota> -1 7 <shifted> >array ] unit-test
|
|
|
|
|
{ { 7 0 1 2 } } [ 4 <iota> 1 7 <shifted> >array ] unit-test
|
|
|
|
|
{ { 0 1 2 3 } } [ 4 <iota> 0 f <shifted> >array ] unit-test
|
|
|
|
|
{ { f f f f } } [ 4 <iota> 4 f <shifted> >array ] unit-test
|
|
|
|
|
{ { f f f f } } [ 4 <iota> -4 f <shifted> >array ] unit-test
|
