Revision as of 20:31, 7 May 2015 (view source) Peak (talk \| contribs) m (→‎{{header\|jq}}: as defined in this section) ← Older edit		Revision as of 05:23, 23 June 2015 (view source) Rdm (talk \| contribs) m (J: simplify) Newer edit →
Line 219: <lang J> circle_sort =: post ~~([:~~ power_of_2_length @pre) NB. the main sorting verb power_of_2_length =: even_length_iteration^:_ NB. repeat while the answer changes even_length_iteration =: (<./ (,&$: \|.) >./)@(([-: ~~<./~~@# ({.~ _&,~~)) ,&$~~: ~~([: >~~\|.~~/ (~~@}.~~~ 0&,))~~) ~~(1r2 * #)~~])^:(1 < #) pre =: , ~~(([:~~ (-~ >.&.(2&^.)) @#) # >./) NB. extend data to next power of 2 length post =: ({.~ #)~ NB. remove the extra data </lang> Examples:

Sorting Algorithms/Circle Sort: Difference between revisions

Sorting Algorithms/Circle Sort (view source)