Sort disjoint sublist: Difference between revisions
m
→{{header|Factor}}: oops
m (→{{header|Factor}}: change word name and stack effect to indicate the word mutates) |
m (→{{header|Factor}}: oops) |
||
Line 857:
pick [ set-nth ] curry 2each ;</lang>
{{out}}
<lang factor>IN: scratchpad { 7 6 5 4 3 2 1 0 } { 6 1 7 } disjoint-sort! .
{ 7 0 5 4 3 2 1 6 }</lang>
| |||