more stuff

jwilliamson1 · Jun 26, 2017 · f142f5c · f142f5c
1 parent 7991be6
commit f142f5c
Show file tree

Hide file tree

Showing 5 changed files with 7,958 additions and 1,473 deletions.
diff --git a/1.13.rkt b/1.13.rkt
@@ -0,0 +1,15 @@
+#lang racket
+(define phi
+  (/ (+ 1 (sqrt 5))2))
+
+(define (^ base exponent)
+  (define (*^ exponent acc)
+    (if (= exponent 0)
+        acc
+        (*^ (- exponent 1)(* acc base))))
+  (*^ exponent 1))
+
+(define (f n)
+   (/ (^ phi n) (sqrt 5)))
+
+