2006-09-06から1日間の記事一覧
色々と忙しくなってきたから手抜きする。 retry :: Int -> Float -> Float retry 0 _ = 0 retry 1 x = sum $ map ((*) ((/) 1 x) . (/) 1) [1..x-1] play :: Int -> Float -> Float play x y = ((/) 1 y) + (retry x y)明日からは、Write Yourself a Scheme …
色々と忙しくなってきたから手抜きする。 retry :: Int -> Float -> Float retry 0 _ = 0 retry 1 x = sum $ map ((*) ((/) 1 x) . (/) 1) [1..x-1] play :: Int -> Float -> Float play x y = ((/) 1 y) + (retry x y)明日からは、Write Yourself a Scheme …
