15 lines
595 B
Factor
15 lines
595 B
Factor
USING: help.markup help.syntax sequences splitting strings ;
|
|
|
|
IN: grouping.extras
|
|
|
|
HELP: group-by
|
|
{ $values { "seq" sequence } { "quot" { $quotation ( elt -- key ) } } { "groups" "a new assoc" } }
|
|
{ $description "Groups the elements by the key received by applying quot to each element in the sequence." }
|
|
{ $examples
|
|
{ $example
|
|
"USING: grouping.extras unicode.data prettyprint sequences strings ;"
|
|
"\"THis String Has CasE!\" [ category ] group-by [ last >string ] { } map-as ."
|
|
"{ \"TH\" \"is\" \" \" \"S\" \"tring\" \" \" \"H\" \"as\" \" \" \"C\" \"as\" \"E\" \"!\" }"
|
|
}
|
|
} ;
|