From 98b810d9eeffdc705fb63a0427c6f47e1a4e1d43 Mon Sep 17 00:00:00 2001
From: Sergey Matveev <stargrave@stargrave.org>
Date: Mon, 28 Mar 2022 19:56:49 +0300
Subject: [PATCH] Full logarithm algorithm code

---
 dc/.dc | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/dc/.dc b/dc/.dc
index 1061117..d4893b3 100644
--- a/dc/.dc
+++ b/dc/.dc
@@ -1,6 +1,18 @@
 5k
 10o
 
+# [ 1-d2+/
+#   d2*Sk              # Initialize multiplier
+#   d*Sy               # Initialize multiplier factor
+#   0Ss                # Initialize accumulator
+#   10K^Sp             # Initialize 10^k power
+#   [ d1r/lk*ls+lsrdss   # Update accumulator
+#     -lp*d*1 [s_q]s_>_  # Check precision
+#     lkly*sk 2+         # Update multiplier and counter
+#     lfx
+#   ]Sf
+#   1lfxLs
+# LkLyLpLfs_s_s_s_] sL
 # natural logarithm: 1000lLx 10lLx /p
 [1-d2+/d2*Skd*Sy0Ss10K^Sp[d1r/lk*ls+lsrdss-lp*d*1[s_q]s_>_lkly*sk2+lfx]Sf1lfxLsLkLyLpLfs_s_s_s_]sL
 
-- 
2.44.0