2007-11-02から1日間の記事一覧

ledit*1べんりだなあ

% ledit >hoge.pl while(<>){ printf "%5d $_", ++$i; } %エディタとしてもわりと使える。

末尾再帰は?

PHP

% cat tail.php % php tail.php loop 1 loop 2 ... loop 6155 loop zsh: segmentation fault php tail.phpですよねー。 % cat tail.pl our $count = 0; sub loop{ print ++$count, "\n"; loop(); } loop(); % pe…

割線法の実装

先週同様、数値計算な講義中にOCamlでの実装を書いた。 # let secant f x1 x2 stop = let delta xn1 xn2 = (f xn2) *. (xn2 -. xn1) /. ((f xn2) -. (f xn1)) in let stopcond = stop f delta in let rec iter xn1 xn2 = if (stopcond xn1 xn2) then xn2 els…

test