Carp/core/Double.carp

(defmodule Double
  (def π 3.1415926536)
  (register = (Fn [Double Double] Bool))
  (register < (Fn [Double Double] Bool))
  (register > (Fn [Double Double] Bool))
  (register + (Fn [Double Double] Double))
  (register - (Fn [Double Double] Double))
  (register * (Fn [Double Double] Double))
  (register / (Fn [Double Double] Double))
  (register to-int (Fn [Double] Int))
  (register from-int (Fn [Int] Double))
  (register sin (Fn [Double] Double))
  (register cos (Fn [Double] Double))
  (register acos (Fn [Double] Double))
  (register atan2 (Fn [Double Double] Double))
  (register sqrt (Fn [Double] Double))
  (register str (Fn [Double] String))
  (register floor (Fn [Double] Double))
  (register copy (Fn [(Ref Double)] Double))
  (register abs (Fn [Double] Double))

  (defn clamp [min, max, val]
    (if (> val max)
      max
      (if (< val min)
        min
        val)))

  (defn approx [x y]
    (if (> x y)
      (< (- x y) 0.00001)
      (< (- y x) 0.00001)))

  (defn /= [x y]
    (not (= x y)))
)