mirror of
https://github.com/carp-lang/Carp.git
synced 2024-09-11 05:25:28 +03:00
12 lines
384 B
Plaintext
12 lines
384 B
Plaintext
(defmodule Double
|
|
(register + (Fn [Double Double] Double))
|
|
(register - (Fn [Double Double] Double))
|
|
(register * (Fn [Double Double] Double))
|
|
(register / (Fn [Double Double] Double))
|
|
(register toInt (Fn [Double] Int))
|
|
(register fromInt (Fn [Int] Double))
|
|
(register sin (Fn [Double] Double))
|
|
(register cos (Fn [Double] Double))
|
|
(register str (Fn [Double] String))
|
|
)
|