/* modified from Robert Sedgewick's website */
typedef int itemType;
shellsort(itemType a[], int l, int r)
{ int i, j, h, k; itemType v;
 int incs[16] = { 1391376, 463792, 198768, 86961, 33936,
		 13776, 4592, 1968, 861, 336, 
		 112, 48, 21, 7, 3, 1 };
 for ( k = 0; k < 16; k++) for (h = incs[k], i = l+h; i <= r; i++) { v = a[i]; j = i; while (j> h && a[j-h]> v)
	 { a[j] = a[j-h]; j -= h; }
 a[j] = v; 
 } 
}
</div><div class="naked_ctrl">
<form action="/index.cgi/contrast" method="get" name="gate">
<p><a href="http://altstyle.alfasado.net">AltStyle</a> によって変換されたページ <a href="http://www.cs.cmu.edu/~dst/DeCSS/Baccash/shell-sort/shell-sort.c">(-&gt;オリジナル)</a>
/ <label>アドレス: <input type="text" name="naked_post_url" value="http://www.cs.cmu.edu/~dst/DeCSS/Baccash/shell-sort/shell-sort.c" size="22" /></label> <label>モード: <select name="naked_post_mode">
<option value="default">デフォルト</option>
<option value="speech">音声ブラウザ</option>
<option value="ruby">ルビ付き</option>
<option value="contrast" selected="selected">配色反転</option>
<option value="larger-text">文字拡大</option>
<option value="mobile">モバイル</option>
</select>
<input type="submit" value="表示" />
</p>
</form>
</div>