fork download
copy 
  1. (define dx .0001)
  2.     (define (deriv f)
  3.        (define (f-prime x)
  4.          (/ (- (f (+ x dx)) (f x))
  5.             dx))
  6.        f-prime)
  7.  
  8. (define (square x) (* x x))
  9.  
  10. (define square-deriv (deriv square)) ;; x -> 2*x
  11.  
  12. (display (square-deriv 7))
  13.  
Success #stdin #stdout 0.03s 4176KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
14.0000999999756
https://ideone.com/U93OT
language:
Scheme (guile 2.2.4)
created:
14 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!