2010-08-16から1日間の記事一覧
相変わらず迷走中。 # (fun f tl -> let rec foo (l,r) xs = match xs with [] -> (List.rev r, List.rev l) | (x::xs) -> if (f x) then foo (l,x::r) xs else foo (x::l, r) xs in foo ([],[]) tl) (fun i -> i < 3) [1;2;3;4;5;1;2;3;4;6] ;; - : int lis…