Dan Bron wrote:
> Can you implement Gnome Sort in a cute or elegant fashion?
>
>         http://www.cs.vu.nl/~dick/gnomesort.html
>
> -Dan
> ----------------------------------------------------------------------
>
>   


Easy and elegant in Basic:

FOR i = 1 TO UBOUND(x[])
  IF x[i-1] > x[i] THEN SWAP x[i-1],x[i] : i = i + (i>1)<<1
NEXT i


Vic

----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm

Reply via email to