gamma.janet

#!/usr/bin/env janet

(def c 299792458)

(defn gamma [v]
  (/ 1
     (math/sqrt (- 1
                   (math/pow (/ v c)
                             2)))))

(var factor 0.1)
(var v (* factor c))

(while (< v c)
  (print v (gamma v))
  (set factor (+ factor 0.1))
  (set v (* factor c)))