Comment detail

与えられた数字のケタ数 (Nested Flatten)
はじめてuntilをつかいました。
1
f x = until (\(_,m) -> x`div`m<10) (\(n,m) -> (n+1,m*10)) (1,1)

Index

Feed

Other

Link

Pathtraq

loading...