2006-07-11から1日間の記事一覧

キミならどう書く 2.0 - ROUND 2 - — Lightweight Language Ring

素直に.あってるか不安かも. open ExtLib let g n = let rec g' a n = let g'' = g' (a+1) in match n with 1 -> a | n when n mod 2 = 0 -> g'' (n/2) | n -> g'' (3*n + 1) in g' 1 n let swap xs = let (a,b) = List.split xs in List.combine b a let …