blob: d3fce4e8e5f2864b8bf9d160630895d9291271e6 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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 (+)
|
