Sorting algorithms/Shell sort: Difference between revisions

Create the following script and load it to a J session.

<lang j>shellSort=: verb define

data=. y

for_xyz. y do.

temp=. xyz_index }. data

nvidx=. xyz_index + temp i. <./ temp

data=. ((xyz_index, nvidx) { data) (nvidx, xyz_index) } data

end.

data

)</lang>

[data=. 10 ? 100

51 18 81 46 11 54 74 63 56 76

shellSort data

11 18 46 51 54 56 63 74 76 81

</lang>