X-Git-Url: http://www.git.stargrave.org/?p=dotfiles.git;a=blobdiff_plain;f=dc%2F.dc;fp=dc%2F.dc;h=d4893b3421e4ae1a7de853566120b669f813bfcc;hp=10611173040fb528c39ca1fad535748cc3d202de;hb=98b810d9eeffdc705fb63a0427c6f47e1a4e1d43;hpb=08569e42ffa74780606b8991c3ae658aac76cf02

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