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

sorting.slots: help lint

db4
Slava Pestov 2009-04-18 19:52:12 -05:00
parent bb06e98dfb
commit 2979360d48
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/sorting/slots/slots-docs.factor
View File

@ -6,8 +6,10 @@ IN: sorting.slots
HELP: compare-slots HELP: compare-slots
{ $values { $values
{ "sort-specs" "a sequence of accessors ending with a comparator" } { "obj1" object }
{ "<=>" { $link +lt+ } " " { $link +eq+ } " or " { $link +gt+ } } { "obj2" object }
{ "sort-specs" "a sequence of accessors ending with a comparator" }
{ "<=>" { $link +lt+ } " " { $link +eq+ } " or " { $link +gt+ } }
} }
{ $description "Compares two objects using a chain of intrinsic linear orders such that if two objects are " { $link +eq+ } ", then the next comparator is tried. The comparators are slot-name/comparator pairs." } ; { $description "Compares two objects using a chain of intrinsic linear orders such that if two objects are " { $link +eq+ } ", then the next comparator is tried. The comparators are slot-name/comparator pairs." } ;
@ -27,7 +29,7 @@ HELP: sort-by
" T{ sort-me f 2 3 } T{ sort-me f 3 2 }" " T{ sort-me f 2 3 } T{ sort-me f 3 2 }"
" T{ sort-me f 4 3 } T{ sort-me f 2 1 }" " T{ sort-me f 4 3 } T{ sort-me f 2 1 }"
"}" "}"
"{ { a>> <=> } { b>> >=< } } sort-by-slots ." "{ { a>> <=> } { b>> >=< } } sort-by ."
"{\n T{ sort-me { a 2 } { b 3 } }\n T{ sort-me { a 2 } { b 1 } }\n T{ sort-me { a 3 } { b 2 } }\n T{ sort-me { a 4 } { b 3 } }\n}" "{\n T{ sort-me { a 2 } { b 3 } }\n T{ sort-me { a 2 } { b 1 } }\n T{ sort-me { a 3 } { b 2 } }\n T{ sort-me { a 4 } { b 3 } }\n}"
} }
} ; } ;