language: Scheme (guile) (guile 1.8.5)
date: 114 days 5 hours ago
link:
visibility: public 
1
2
3
4
5
6
7
8
9
10
11

(define square
(lambda (x)
(* x x)))
 
(define exp
(lambda (a b)
(cond ((= 0 b) 1)
((even? b) (square (exp a (/ b 2))))
(else (* a (exp a (- b 1)))))))
 
(write (exp (/ (+ 1 (sqrt 5)) 2) 1475))