From 2d4c48368bd6d2ccca7302e5eb0b0ba3f3cd6581 Mon Sep 17 00:00:00 2001
From: Marvin Borner
Date: Sun, 26 Feb 2023 15:24:50 +0100
Subject: More std functions

---
 std/Float.bruijn | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 std/Float.bruijn

(limited to 'std/Float.bruijn')

diff --git a/std/Float.bruijn b/std/Float.bruijn
new file mode 100644
index 0000000..d3fce4e
--- /dev/null
+++ b/std/Float.bruijn
@@ -0,0 +1,16 @@
+# MIT License, Copyright (c) 2022 Marvin Borner
+# Arbitrary-precision floating-point arithmetic implementation using
+#   (+3.14) = pair (+3) (+14)
+
+:import std/Combinator .
+:import std/Number .
+:import std/List .
+:import std/Pair P
+
+# generates a float from a normal balanced ternary number
+float! \(P.:) (+0)
+
+# adds two floating numbers
+# TODO: Carry support
+# - needed: mod, div (?) -> ternary carry != decimal carry
+add P.zip-with (+)
-- 
cgit v1.2.3