grouping: make the $example, not $unchecked-example.

db4
John Benediktsson 2015-08-14 21:30:57 -07:00
parent 04ec78831d
commit 43aa46384c
2 changed files with 26 additions and 15 deletions

View File

@ -17,37 +17,48 @@ ARTICLE: "grouping" "Groups and clumps"
"The difference can be summarized as the following:"
{ $list
{ "With groups, the subsequences form the original sequence when concatenated:"
{ $unchecked-example
{ $example
"USING: grouping ;"
"{ 1 2 3 4 } 2 group ." "{ { 1 2 } { 3 4 } }"
"{ 1 2 3 4 } 2 group ."
"{ { 1 2 } { 3 4 } }"
}
{ $unchecked-example
{ $example
"USING: grouping ;"
"{ 1 2 3 4 } dup" "2 <groups> concat sequence= ." "t"
"{ 1 2 3 4 } dup"
"2 <groups> concat sequence= ."
"t"
}
}
{ "With clumps, collecting the first element of each subsequence but the last one, together with the last subsequence, yields the original sequence:"
{ $unchecked-example
{ $example
"USING: grouping ;"
"{ 1 2 3 4 } 2 clump ." "{ { 1 2 } { 2 3 } { 3 4 } }"
"{ 1 2 3 4 } 2 clump ."
"{ { 1 2 } { 2 3 } { 3 4 } }"
}
{ $unchecked-example
{ $example
"USING: grouping assocs sequences ;"
"{ 1 2 3 4 } dup" "2 <clumps> unclip-last [ keys ] dip append sequence= ." "t"
"{ 1 2 3 4 } dup"
"2 <clumps> unclip-last [ keys ] dip append sequence= ."
"t"
}
}
{ "With circular clumps, collecting the first element of each subsequence yields the original sequence. Collecting the " { $snippet "n" } "th element of each subsequence would rotate the original sequence " { $snippet "n" } " elements rightward:"
{ $unchecked-example
{ $example
"USING: grouping ;"
"{ 1 2 3 4 } 2 circular-clump ." "{ { 1 2 } { 2 3 } { 3 4 } { 4 1 } }"
"{ 1 2 3 4 } 2 circular-clump ."
"{ { 1 2 } { 2 3 } { 3 4 } { 4 1 } }"
}
{ $unchecked-example
{ $example
"USING: grouping assocs sequences ;"
"{ 1 2 3 4 } dup" "2 <circular-clumps> keys sequence= ." "t"
"{ 1 2 3 4 } dup"
"2 <circular-clumps> keys sequence= ."
"t"
}
{ $unchecked-example
{ $example
"USING: grouping ;"
"{ 1 2 3 4 } dup" "2 <circular-clumps> [ second ] { } map-as ." "{ 2 3 4 1 }"
"{ 1 2 3 4 }"
"2 <circular-clumps> [ second ] { } map-as ."
"{ 2 3 4 1 }"
}
}
}

View File

@ -4,7 +4,7 @@ USING: accessors combinators fry kernel math math.order
sequences sequences.private ;
IN: grouping
ERROR: groups-error seq group-size ;
ERROR: groups-error seq n ;
<PRIVATE