1 files changed, 10 insertions, 0 deletions
diff --git a/coding-exercises/2/34.rkt b/coding-exercises/2/34.rkt
new file mode 100644
index 0000000..5850049
--- /dev/null
+++ b/coding-exercises/2/34.rkt
@@ -0,0 +1,10 @@
+#lang racket
+(require "../../shared/lists.rkt")
+
+(define (horner-eval x coefficient-sequence)
+  (accumulate (lambda (this-coeff higher-terms)
+                (+ this-coeff (* x higher-terms)))
+              0
+              coefficient-sequence))
+((lambda ()
+   (horner-eval 2 (list 1 3 0 5 0 1))))