mirror of
https://github.com/carp-lang/Carp.git
synced 2024-09-19 09:28:10 +03:00
12 lines
376 B
Plaintext
12 lines
376 B
Plaintext
(defmodule Float
|
|
(def π 3.1415926536f)
|
|
(register + (Fn [Float Float] Float))
|
|
(register - (Fn [Float Float] Float))
|
|
(register * (Fn [Float Float] Float))
|
|
(register / (Fn [Float Float] Float))
|
|
(register to-int (Fn [Float] Int))
|
|
(register random-between (λ [Float Float] Float))
|
|
(register str (Fn [Float] String))
|
|
(register copy (Fn [(Ref Float)] Float))
|
|
)
|