Not Haskell!

knaveofdiamonds · Mar 4, 2012 · 8ff5131 · 8ff5131
1 parent f4ca80a
commit 8ff5131
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/1.3.scm b/1.3.scm
@@ -11,8 +11,8 @@
   (define h (/ (- b a) n))
   (define (yk k) (f (+ a (* k h))))
   (* (/ h 3) (+ (yk 0) 
-                (* 4 (sum yk 1 (\lambda (i) (+ i 2)) (- n 1)))
-                (* 2 (sum yk 2 (\lambda (i) (+ i 2)) (- n 1)))
+                (* 4 (sum yk 1 (lambda (i) (+ i 2)) (- n 1)))
+                (* 2 (sum yk 2 (lambda (i) (+ i 2)) (- n 1)))
                 (yk n))))
 
 ; Gives 1/4 for both n = 100 and n = 1000