]> gitweb.factorcode.org Git - factor.git/blob - extra/sequences/next/next-tests.factor
Merge branch 'master' of git://factorcode.org/git/factor
[factor.git] / extra / sequences / next / next-tests.factor
1 USING: sequences.next tools.test arrays kernel math sequences ;
2
3 [ { { 1 0 } { 2 1 } { f 2 } } ] [ 3 [ 2array ] map-next ] unit-test
4
5 [ 8 ] [ 3 [ 1+ ] map 0 swap [ swap [ + + ] [ drop ] if* ] each-next ] unit-test