sequences.extras: adding change-nths word.

db4
John Benediktsson 2012-04-15 10:34:23 -07:00
parent 33ae12ed1e
commit cdd4de2cb3
2 changed files with 7 additions and 1 deletions

View File

@ -1,4 +1,4 @@
USING: make sequences sequences.extras tools.test ; USING: kernel make math sequences sequences.extras tools.test ;
IN: sequences.extras.tests IN: sequences.extras.tests
@ -28,3 +28,6 @@ IN: sequences.extras.tests
[ "abc" " " ] [ "abc" "" CHAR: \s pad-longest ] unit-test [ "abc" " " ] [ "abc" "" CHAR: \s pad-longest ] unit-test
[ "abc..." "foobar" ] [ "abc" "foobar" CHAR: . pad-longest ] unit-test [ "abc..." "foobar" ] [ "abc" "foobar" CHAR: . pad-longest ] unit-test
[ { 0 1 0 1 } ] [
{ 0 0 0 0 } { 1 3 } over [ 1 + ] change-nths
] unit-test

View File

@ -68,3 +68,6 @@ IN: sequences.extras
: pad-longest ( seq1 seq2 elt -- seq1 seq2 ) : pad-longest ( seq1 seq2 elt -- seq1 seq2 )
[ 2dup max-length ] dip [ pad-tail ] 2curry bi@ ; [ 2dup max-length ] dip [ pad-tail ] 2curry bi@ ;
: change-nths ( ... indices seq quot: ( ... elt -- ... elt' ) -- ... )
[ change-nth ] 2curry each ; inline