src/sicp/ex2_48.clj

   1 (ns sicp.ex2_48
   2   (:use [clojure.test]
   3         [sicp.ex2_46]
   4         [sicp.ch2_2 :only (segments->painter)]))
   5
   6 ;; we define a segment as a list of 2 vectors
   7 (defn make-segment [v1 v2]
   8   (list v1 v2))
   9
  10 (defn start-segment [segment]
  11   (first segment))
  12
  13 (defn end-segment [segment]
  14   (second segment))