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

Merge pull request #679 from hellerve/veit/long-laws

Browse Source 
Add Long.MAX, Long.MIN, and Long.zero
This commit is contained in:
Erik Svedäng 2020-02-14 10:43:07 +01:00 committed by GitHub
commit 0223f6d381
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
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