From 8f071917892ac919b91da12c2bf02d5d9b79f81a Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 31 Dec 2017 00:51:30 -0400
Subject: - Added bit-sets.

---
 stdlib/source/lux.lux | 13 +++++++++++++
 1 file changed, 13 insertions(+)

(limited to 'stdlib/source/lux.lux')

diff --git a/stdlib/source/lux.lux b/stdlib/source/lux.lux
index e4214a899..51e9af4dc 100644
--- a/stdlib/source/lux.lux
+++ b/stdlib/source/lux.lux
@@ -6054,3 +6054,16 @@
 
     _
     (fail "Wrong syntax for ^code")))
+
+(def: #export (n/mod param subject)
+  (-> Nat Nat Nat)
+  (let [exact (|> subject (n// param) (n/* param))]
+    (|> subject (n/- exact))))
+
+(def: #export (i/mod param subject)
+  (All [m] (-> Int Int Int))
+  (let [raw (i/% param subject)]
+    (if (i/< 0 raw)
+      (let [shift (if (i/< 0 param) i/- i/+)]
+        (|> raw (shift param)))
+      raw)))
-- 
cgit v1.2.3