SHARE
TWEET

Untitled

a guest Oct 21st, 2019 76 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. (define (sprod p)
  2.   (lambda (x) (accumulate * 1 1 p
  3.               (lambda (currA) (accumulate + 0 0 currA
  4.                           (lambda (k) (/ (* (pow-it (- 1) x) (pow-it x (+ (* 2 x ) 1) ) ) (fact (+ (* 2 x) 1) ) ) )
  5.                           (lambda (k) (+ (* 2 x) 1 ) ) ))
  6.               (lambda (k) (+ 1 k) ) )))
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top