74 lines
3.2 KiB
Factor
74 lines
3.2 KiB
Factor
! (c)2009 Joe Groff bsd license
|
|
USING: assocs help.markup help.syntax quotations sequences ;
|
|
IN: sequences.product
|
|
|
|
HELP: product-sequence
|
|
{ $class-description "A class of virtual sequences that present the cartesian product of their underlying set of sequences. Product sequences are constructed with the " { $link <product-sequence> } " word." }
|
|
{ $examples
|
|
{ $example "USING: arrays prettyprint sequences.product ;
|
|
{ { 1 2 3 } { \"a\" \"b\" \"c\" } } <product-sequence> >array .
|
|
" "{
|
|
{ 1 \"a\" }
|
|
{ 2 \"a\" }
|
|
{ 3 \"a\" }
|
|
{ 1 \"b\" }
|
|
{ 2 \"b\" }
|
|
{ 3 \"b\" }
|
|
{ 1 \"c\" }
|
|
{ 2 \"c\" }
|
|
{ 3 \"c\" }
|
|
}" } } ;
|
|
|
|
HELP: <product-sequence>
|
|
{ $values { "sequences" sequence } { "product-sequence" product-sequence } }
|
|
{ $description "Constructs a " { $link product-sequence } " over " { $snippet "sequences" } "." }
|
|
{ $examples
|
|
{ $example "USING: arrays prettyprint sequences.product ;
|
|
{ { 1 2 3 } { \"a\" \"b\" \"c\" } } <product-sequence> >array ."
|
|
"{
|
|
{ 1 \"a\" }
|
|
{ 2 \"a\" }
|
|
{ 3 \"a\" }
|
|
{ 1 \"b\" }
|
|
{ 2 \"b\" }
|
|
{ 3 \"b\" }
|
|
{ 1 \"c\" }
|
|
{ 2 \"c\" }
|
|
{ 3 \"c\" }
|
|
}" } } ;
|
|
|
|
{ product-sequence <product-sequence> } related-words
|
|
|
|
HELP: product-map
|
|
{ $values { "sequences" sequence } { "quot" { $quotation ( ... seq -- ... value ) } } { "sequence" sequence } }
|
|
{ $description "Calls " { $snippet "quot" } " for every element of the cartesian product of " { $snippet "sequences" } " and collects the results from " { $snippet "quot" } " into an output sequence." }
|
|
{ $notes { $snippet "[ ... ] product-map" } " is equivalent to, but more efficient than, " { $snippet "<product-sequence> [ ... ] map" } "." } ;
|
|
|
|
HELP: product-map-as
|
|
{ $values { "sequences" sequence } { "quot" { $quotation ( ... seq -- ... value ) } } { "exemplar" sequence } { "sequence" sequence } }
|
|
{ $description "Calls " { $snippet "quot" } " for every element of the cartesian product of " { $snippet "sequences" } " and collects the results from " { $snippet "quot" } " into an output sequence the same type as the " { $snippet "exemplar" } " sequence." } ;
|
|
|
|
HELP: product-map>assoc
|
|
{ $values { "sequences" sequence } { "quot" { $quotation ( ... seq -- ... key value ) } } { "exemplar" assoc } { "assoc" assoc } }
|
|
{ $description "Calls " { $snippet "quot" } " for every element of the cartesian product of " { $snippet "sequences" } " and collects the results from " { $snippet "quot" } " into an output assoc." } ;
|
|
|
|
HELP: product-each
|
|
{ $values { "sequences" sequence } { "quot" { $quotation ( ... seq -- ... ) } } }
|
|
{ $description "Calls " { $snippet "quot" } " for every element of the cartesian product of " { $snippet "sequences" } "." }
|
|
{ $notes { $snippet "[ ... ] product-each" } " is equivalent to, but more efficient than, " { $snippet "<product-sequence> [ ... ] each" } "." } ;
|
|
|
|
{ product-map product-each } related-words
|
|
|
|
ARTICLE: "sequences.product" "Product sequences"
|
|
"The " { $vocab-link "sequences.product" } " vocabulary provides a virtual sequence and combinators for manipulating the cartesian product of a set of sequences."
|
|
{ $subsections
|
|
product-sequence
|
|
<product-sequence>
|
|
product-map
|
|
product-map-as
|
|
product-map>assoc
|
|
product-each
|
|
} ;
|
|
|
|
ABOUT: "sequences.product"
|