package itpl.util; import itpl.util.Util; class Observer<A> { var listener : Array<A -> Void> ; public function new() { listener = new Array(); } public function listen( l : A -> Void ) : Void { listener.push( l ); } public function clear_listener</a></a>…

今度はconcurrent cellを使ってみる。 (* to compile, ocamlfind ocamlc -thread -package ccell -linkpkg sf.ml *) let (@@) f g = f g let (+>) g f = f g let tee f x = ignore (f x); x open Ccell open Event let num = let m = Mvar.init_make 0 in fu…

(* to compile, ocamlc -thread unix.cma threads.cma mts.ml *) let nums = let with_lock m f x = Mutex.lock m; let r = f x in Mutex.unlock m; r in let c = ref ~-1 in let m = Mutex.create () in fun () -> with_lock m (fun () -> incr c; !c) () l…

均一と考えられていた液体の水に不均一な微細構造を発見 | 理化学研究所 この手の研究をしていた研究室に所属していた事もあり興味深い。90°Cでも構造があるんだ。へー。でも1nmなら水分子4つ分くらい？そりゃ4つくらいならくっついてても不思議じゃない...…

今日は原爆の日。64年目。私は原爆は嫌いだ。好きな人なんていないと思うけど。今でも原爆が落ちてくるから逃げなきゃいけないと焦る夢を見ることがある。昔は結構頻繁に見てた。実は子供のころに観に行かされた原爆の劇と展示と「おこりじぞう」という絵本…

こないだからレイアウトは述語と合成がいいとチラチラ言っているので、今のところ考えている述語を晒す。 type point = int * int type size = int * int type rect = point * size type independent = (* 自らsizeが決まるもの *) [ `Fix of size | `Prefer…

仕事関係でちょっと思う所があるので、書いて考えをまとめてみる。 http://kusoshigoto.blog121.fc2.com/blog-entry-278.html このエントリの内容は、ちょっと言葉があれだけど、分かりやすい。私も反省すべき点が多い。素直に言うと「奴隷型顧客満足第一主…