システム思考の本を読んでたら、微積分が出てきた。 (defn area[fun a b] (let [dx (/ (- b a) 1000000.0)] (reduce + (map #(* (fun %) dx) (range a b dx))) )) (defn f-x [x] (* x x)) (map #(list % (area f-x 0 %)) (range 10)) ((0 0) (1 0.3333328333…