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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
basis/grouping/grouping-docs.factor
View File

@ -17,37 +17,48 @@ ARTICLE: "grouping" "Groups and clumps"
"The difference can be summarized as the following:" "The difference can be summarized as the following:"
{ $list { $list
{ "With groups, the subsequences form the original sequence when concatenated:" { "With groups, the subsequences form the original sequence when concatenated:"
{ $unchecked-example { $example
"USING: grouping ;" "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 ;" "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:" { "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 ;" "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 ;" "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:" { "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 ;" "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 ;" "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 ;" "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 }"
} }
} }
} }

2
basis/grouping/grouping.factor
View File

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