Optional parameters: Difference between revisions
Content added Content deleted
| Line 990: | Line 990: | ||
(sort :table 2) |
(sort :table 2) |
||
(sort :table 3 "less? "true)</lang> |
(sort :table 3 "less? "true)</lang> |
||
=={{header|Mathematica}}== |
|||
<lang Mathematica>Options[OptionalSort]={ordering->lexicographic,column->1,reverse-> False}; |
|||
OptionalSort[x_List,OptionsPattern[]]:=If[OptionValue[reverse]==True, |
|||
SortBy[x ,#[[OptionValue[column]]]&]//Reverse, |
|||
SortBy[x,#[[OptionValue[column]]]&] ] |
|||
OptionalSort[{{"a" ,"b", "c"}, {"", "q", "z"},{"zap" ,"zip", "Zot"}} ] |
|||
->{{,q,z},{a,b,c},{zap,zip,Zot}} |
|||
OptionalSort[{{"a" ,"b", "c"}, {"", "q", "z"},{"zap" ,"zip", "Zot"}},{ordering->lexicographic,column->2,reverse-> True} ] |
|||
->{{zap,zip,Zot},{,q,z},{a,b,c}}</lang> |
|||
=={{header|Nemerle}}== |
=={{header|Nemerle}}== |
||