steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

sequences: extra doc and test for 2all?

db4
Björn Lindqvist 2015-09-21 12:29:29 +02:00
parent 4db173cadb
commit db0739ff36
2 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
core/sequences/sequences-docs.factor
View File

@ -443,7 +443,13 @@ HELP: 3map-as
HELP: 2all? HELP: 2all?
{ $values { "seq1" sequence } { "seq2" sequence } { "quot" { $quotation ( ... elt1 elt2 -- ... ? ) } } { "?" boolean } } { $values { "seq1" sequence } { "seq2" sequence } { "quot" { $quotation ( ... elt1 elt2 -- ... ? ) } } { "?" boolean } }
{ $description "Tests the predicate pairwise against elements of " { $snippet "seq1" } " and " { $snippet "seq2" } "." } ; { $description "Tests the predicate pairwise against elements of " { $snippet "seq1" } " and " { $snippet "seq2" } ". If the sequences have different lengths, then only the smallest sequences items are compared with the other." }
{ $examples
{ $example "USING: prettyprint sequences ;"
"{ 1 2 3 4 } { 2 4 6 8 } [ <= ] 2all? ."
"t"
}
} ;
HELP: find HELP: find
{ $values { "seq" sequence } { $values { "seq" sequence }

2
core/sequences/sequences-tests.factor
View File

@ -406,3 +406,5 @@ USE: make
{ {
BV{ 11 23 35 } BV{ 11 23 35 }
} [ { 11 22 33 } [ + ] BV{ } map-index-as ] unit-test } [ { 11 22 33 } [ + ] BV{ } map-index-as ] unit-test
{ t } [ { } { 99 88 } [ <= ] 2all? ] unit-test