Gerenciar uma infraestrutura que é imbatível!
Gostar da vida de DevOps; automatizar tudo.
(defn heart-coords [] | |
(for [t (range (-(Math/PI)) (Math/PI) 0.01)] ; the circumference | |
(let [x (* 16 (Math/pow (Math/sin t) 3)) ; x = 16 sin3 t | |
y (- (* 13 (Math/cos t)) ; y = 13 cos t - | |
(* 5 (Math/cos (* 2 t))) ; 5 cos(2 t) - | |
(* 2 (Math/cos (* 3 t))) ; 2 cos(3 t) - | |
(Math/cos (* 4 t))) ; cos(4 t) | |
z 0 | |
tp (/ (+ t 3) 6.1) | |
r (Math/sin (* tp Math/PI)) |
I hereby claim:
To claim this, I am signing this object: