DouKaku?beta

Comment detail

与えられた数字のケタ数 (Nested Flatten) 
ぜんぜん考えてません。0のときこうなりました。
(digits 0)
=>0
=>1/10

1
2
3
4
5
6
(define (digits n)
  (define (f n)
    (if (zero? n) 0
        (+ 1 (f (quotient n 10)))))
  (let1 digit (f n)
    (values digit (expt 10 (- digit 1)))))

Index

Feed

Other

Link

Pathtraq

loading...
Creative Commons License このサイトの内容は、 クリエイティブ・コモンズ・ライセンスの下でライセンスされています。 [詳細]