> (((twice twice) square) 2)
65536
> ((twice (twice square)) 2)
65536
> ((repeated (n+ 2) 10) 5)
25
> ((repeated (n+ 2) 10) 5)
25
> ((repeated (n+ 2) 10) 5)
[image] [image] application: not a procedure;
 expected a procedure that can be applied to arguments
  given: 12
> ((repeated (n+ 2) 10) 5)
25
> ((derive-n (lambda (x) (* x x x)) 2) 3)
[image] [image] derive-n: arity mismatch;
 the expected number of arguments does not match the given number
  expected: 3
  given: 2
> ((derive-n (lambda (x) (* x x x)) 2 0.0001) 3)
18.000599766310188
> ((derive-n (lambda (x) (* x x x)) 3 0.0001) 324982343)
-8.589934592e+21
> ((derive-n (lambda (x) (* x x x)) 3 0.0001) 324982343)
-8.589934592e+21
> ((derive-n (lambda (x) (* x x x)) 3 0.0001) 5)
6.02540239924565
> ((derive-n (lambda (x) (* x x x)) 3 0.0000001) 5)
-14210854.715202004
> ((derive-n (lambda (x) (* x x x)) 3 0.000001) 5)
28421.709430404007
> ((derive-n (lambda (x) (* x x x)) 3 0.00001) 5)
-42.63256414560601
> ((derive-n (lambda (x) (* x x x)) 3 0.0001) 5)
6.02540239924565
> ((derive-n sin 3 0.0001) 0)
-1.0000000050247593
> ((derive-n sin 4 0.0001) 0)
0.0002220446049250313
> ((derive-n sin 5 0.0001) 0)
6.661338147750939
> ((derive-n sin 5 0.00001) 0)
122124.53269877518
> ((derive-n sin 5 0.001) 0)
1.000310945187266
> ((derive-n sin 3 0.0001) 0)
[image] [image] derive: arity mismatch;
 the expected number of arguments does not match the given number
  expected: 2
  given: 1
> ((derive-n sin 3 0.0001) 0)
#<procedure:...cheme/highorder.scm:20:2>
> ((derive-n sin 3 0.0001) 0)
-1.0000000050247593
>