2008-09-28から1日間の記事一覧
思いつきで書いているので、全く当てになりません。あしからず。 type 'a t = { dat : 'a; children : 'a t list; } let bff f x t = let q = Queue.create () in Queue.add t q; let rec loop r = try let t = Queue.pop q in List.iter (fun c -> Queue.pu…
思いつきで書いているので、全く当てになりません。あしからず。 type 'a t = { dat : 'a; children : 'a t list; } let bff f x t = let q = Queue.create () in Queue.add t q; let rec loop r = try let t = Queue.pop q in List.iter (fun c -> Queue.pu…