Merge branch 'master' of git://factorcode.org/git/factor
commit
c5c31b4300
|
@ -1 +0,0 @@
|
||||||
unportable
|
|
|
@ -1630,6 +1630,7 @@ ARTICLE: "sequences-destructive" "Destructive operations"
|
||||||
"Other destructive words:"
|
"Other destructive words:"
|
||||||
{ $subsections
|
{ $subsections
|
||||||
reverse!
|
reverse!
|
||||||
|
append!
|
||||||
push-all
|
push-all
|
||||||
move
|
move
|
||||||
exchange
|
exchange
|
||||||
|
|
|
@ -24,6 +24,12 @@ IN: sequences.tests
|
||||||
[ 5040 { 1 1 2 6 24 120 720 } ]
|
[ 5040 { 1 1 2 6 24 120 720 } ]
|
||||||
[ { 1 2 3 4 5 6 7 } 1 [ * ] accumulate ] unit-test
|
[ { 1 2 3 4 5 6 7 } 1 [ * ] accumulate ] unit-test
|
||||||
|
|
||||||
|
[ 5040 { 1 1 2 6 24 120 720 } ]
|
||||||
|
[ { 1 2 3 4 5 6 7 } 1 [ * ] accumulate! ] unit-test
|
||||||
|
|
||||||
|
[ t ]
|
||||||
|
[ { 1 2 3 4 5 6 7 } dup 1 [ * ] accumulate! nip eq? ] unit-test
|
||||||
|
|
||||||
[ f f ] [ [ ] [ ] find ] unit-test
|
[ f f ] [ [ ] [ ] find ] unit-test
|
||||||
[ 0 1 ] [ [ 1 ] [ ] find ] unit-test
|
[ 0 1 ] [ [ 1 ] [ ] find ] unit-test
|
||||||
[ 1 "world" ] [ [ "hello" "world" ] [ "world" = ] find ] unit-test
|
[ 1 "world" ] [ [ "hello" "world" ] [ "world" = ] find ] unit-test
|
||||||
|
|
Loading…
Reference in New Issue