factor/extra/sequences/n-based/n-based-docs.factor

67 lines
1.6 KiB
Factor
Raw Normal View History

2008-12-18 17:17:27 -05:00
! (c)2008 Joe Groff, see BSD license etc.
2009-09-20 23:42:40 -04:00
USING: help.markup help.syntax kernel math sequences ;
2008-12-18 17:17:27 -05:00
IN: sequences.n-based
HELP: <n-based-assoc>
{ $values { "seq" sequence } { "base" integer } { "n-based-assoc" n-based-assoc } }
{ $description "Wraps " { $snippet "seq" } " in an " { $link n-based-assoc } " wrapper." }
{ $examples
2009-09-20 23:42:40 -04:00
{ $example """
2008-12-18 17:17:27 -05:00
USING: assocs prettyprint kernel sequences.n-based ;
IN: scratchpad
: months ( -- assoc )
2008-12-18 17:17:27 -05:00
{
"January"
"February"
"March"
"April"
"May"
"June"
"July"
"August"
"September"
"October"
"November"
"December"
} 1 <n-based-assoc> ;
10 months at .
2009-09-20 23:42:40 -04:00
""" "\"October\"" } } ;
2008-12-18 17:17:27 -05:00
HELP: n-based-assoc
{ $class-description "An adaptor class that allows a sequence to be treated as an assoc with non-zero-based keys." }
{ $examples
2009-09-20 23:42:40 -04:00
{ $example """
2008-12-18 17:17:27 -05:00
USING: assocs prettyprint kernel sequences.n-based ;
IN: scratchpad
: months ( -- assoc )
2008-12-18 17:17:27 -05:00
{
"January"
"February"
"March"
"April"
"May"
"June"
"July"
"August"
"September"
"October"
"November"
"December"
} 1 <n-based-assoc> ;
10 months at .
2009-09-20 23:42:40 -04:00
""" "\"October\"" } } ;
2008-12-18 17:17:27 -05:00
{ n-based-assoc <n-based-assoc> } related-words
ARTICLE: "sequences.n-based" "N-based sequences"
2008-12-18 17:17:27 -05:00
"The " { $vocab-link "sequences.n-based" } " vocabulary provides a sequence adaptor that allows a sequence to be treated as an assoc with non-zero-based keys."
{ $subsection n-based-assoc }
{ $subsection <n-based-assoc> }
;
ABOUT: "sequences.n-based"