6 lines
214 B
Factor
6 lines
214 B
Factor
|
USING: sequences.next tools.test arrays kernel math sequences ;
|
||
|
|
|
||
|
|
[ { { 1 0 } { 2 1 } { f 2 } } ] [ 3 [ 2array ] map-next ] unit-test
|
||
|
|
|
||
|
|
[ 8 ] [ 3 [ 1+ ] map 0 swap [ swap [ + + ] [ drop ] if* ] each-next ] unit-test
|