learning-sicp

My embarrassing half assed SICP run.
git clone https://kaka.farm/~git/learning-sicp
Log | Files | Refs

exercise-73.scm (514B)

      1 (define-library (sicp tests chapter-2 exercise-73)
      2   (import (scheme base)
      3           (scheme write)
      4           (srfi :64)
      5           (sicp solutions chapter-2 exercise-73))
      6 
      7   (begin
      8     (display (deriv '(+ x 1) 'x)) (newline)
      9     (display (deriv '(* (* x x) x) 'x)) (newline)
     10     (display (deriv '(** x 2) 'x)) (newline)
     11 
     12     ;; (put 'a 'b map)
     13 
     14     ;; (write ((get 'a 'b) 1+ '(1 2 3))) (newline)
     15 
     16     ;; (test-begin "chapter-2-exercise-73")
     17     ;; (test-equal 1 1)
     18     ;; (test-end "chapter-2-exercise-73")
     19     ))