open Array;
 val n = 10;
 val M = array(n,array(n,0.0));
 val i = ref 1;
 while !i<n do (
 update(M,!i,array(n,0.0));
 i := !i + 1
 );
 i := 0;
 val j = ref 0;
 (* initialize M to be a particular matrix *)
 while !i<n do (
 while !j<n do (
 update(sub(M,!i),!j,1.0/real(!i + !j + 1));
 j := !j + 1
 );
 j := 0;
 i := !i + 1
 );
 i := 0;
 while !i<n-1 do (
 j := !i+1;
 while !j<n do
 let
 val ratio = sub(sub(M,!j),!i)/sub(sub(M,!i),!i);
 val k = ref (!i+1)
 in
 update(sub(M,!j),!i,0.0);
 while !k<n do (
 update(sub(M,!j),!k,sub(sub(M,!j),!k) -
 ratio*sub(sub(M,!i),!k));
 k := !k + 1
 );
 j := !j + 1
 end;
 i := !i + 1
 );
</div><div class="naked_ctrl">
<form action="/index.cgi/larger-text" method="get" name="gate">
<p><a href="http://altstyle.alfasado.net">AltStyle</a> によって変換されたページ <a href="http://InfoLab.Stanford.EDU/~ullman/emlp/code/fig7.11">(-&gt;オリジナル)</a>
/ <label>アドレス: <input type="text" name="naked_post_url" value="http://InfoLab.Stanford.EDU/~ullman/emlp/code/fig7.11" size="22" /></label> <label>モード: <select name="naked_post_mode">
<option value="default">デフォルト</option>
<option value="speech">音声ブラウザ</option>
<option value="ruby">ルビ付き</option>
<option value="contrast">配色反転</option>
<option value="larger-text" selected="selected">文字拡大</option>
<option value="mobile">モバイル</option>
</select>
<input type="submit" value="表示" />
</p>
</form>
</div>