carp-lang/Carp
1
1
Fork 0
mirror of https://github.com/carp-lang/Carp.git synced 2024-09-11 05:25:28 +03:00
Code Issues Projects Releases Wiki Activity

core: add Long.MAX, Long.MIN, and Long.zero

Browse Source
This commit is contained in:
hellerve 2020-02-13 16:00:53 +01:00
parent ae22172338
commit ae3f9c49b8
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
core/Long.carp
View File

@ -1,6 +1,8 @@
(system-include "carp_long.h")
(defmodule Long
(register MAX Long "LONG_MAX")
(register MIN Long "LONG_MIN")
(register + (λ [Long Long] Long))
(register - (λ [Long Long] Long))
(register * (λ [Long Long] Long))
@ -33,6 +35,8 @@ to non-refs.")
(defn even? [a] (= (mod a 2l) 0l))
(defn odd? [a] (not (even? a)))
(defn zero [] 0l)
)
(defmodule LongRef