Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (defn r-squared [x y]
- (+ (* (- 0.5 x) (- 0.5 x))
- (* (- 0.5 y) (- 0.5 y))))
- (loop [hits 0]
- (let [x (rand)
- y (rand)]
- (r-squared x y))
- ;end-of-let
- )
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement