language: Scheme (guile) (guile 1.8.5)
date: 114 days 19 hours ago
link:
visibility: public 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

(define exp
(lambda (a b)
(if (= b 1) a (* a (exp a (- b 1))))))
 
(define fib
(lambda (n)
(let ((fibn (floor (/ (exp (/ (+ 1 (sqrt 5)) 2) n) (sqrt 5)))))
(if (= 1 (modulo n 2)) (+ 1 fibn) fibn))))
 
(define nbdigits
(lambda (a)
(if (= 0 a) 0 (+ 1 (nbdigits (quotient a 10))))))
 
 
(define atleastdigits
(lambda (n a)
(if (< (nbdigits n) a) (atleastdigits (+ n 1) a) n)))
 
(write (atleastdigits 1 10))