From c8245b83c88dfb551556d2029d435bf5eb00d71b Mon Sep 17 00:00:00 2001
From: Marvin Borner
Date: Wed, 24 Apr 2024 01:13:49 +0200
Subject: More tests

---
 std/Math/Complex.bruijn | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'std/Math/Complex.bruijn')

diff --git a/std/Math/Complex.bruijn b/std/Math/Complex.bruijn
index ec83462..a20717f 100644
--- a/std/Math/Complex.bruijn
+++ b/std/Math/Complex.bruijn
@@ -7,6 +7,12 @@
 
 ι (+0.0r) : (+1.0r)
 
+# returns true of two complex numbers are equal approximately
+approx-eq? [[[R.approx-eq? 2 (1 2) (0 2)]]] ⧗ Number → Complex → Complex → Boolean
+
+# TODO: bigger value (higher performance first!)
+…≈?… approx-eq? (+1000)
+
 # adds two complex numbers
 add &[[&[[(R.add 3 1) : (R.add 2 0)]]]] ⧗ Complex → Complex → Complex
 
-- 
cgit v1.2.3