summaryrefslogtreecommitdiffhomepage
path: root/miscutils
diff options
context:
space:
mode:
authorDenys Vlasenko <vda.linux@googlemail.com>2018-12-14 09:53:50 +0100
committerDenys Vlasenko <vda.linux@googlemail.com>2018-12-14 09:53:50 +0100
commit203210e2535e7543e415b052e1d7182f3ca32959 (patch)
tree1752716151c1c391f873fbd636dcc6984d9f45ec /miscutils
parent3ac0c21a1fe902c7bebadc0fc454ee047e13c58f (diff)
bc: shrink internal library more
function old new delta bc_lib 1618 1609 -9 Signed-off-by: Denys Vlasenko <vda.linux@googlemail.com>
Diffstat (limited to 'miscutils')
-rw-r--r--miscutils/bc.c10
1 files changed, 8 insertions, 2 deletions
diff --git a/miscutils/bc.c b/miscutils/bc.c
index 0a2da6cf8..8befc8e3f 100644
--- a/miscutils/bc.c
+++ b/miscutils/bc.c
@@ -7143,6 +7143,12 @@ static const char bc_lib[] ALIGN1 = {
"scale=20"
"\n" "define e(x){"
"\n" "auto b,s,n,r,d,i,p,f,v"
+////////////////"if(x<0)return(1/e(-x))" // and drop 'n' and x<0 logic below
+//^^^^^^^^^^^^^^^^ this would work, and is even more precise than GNU bc:
+//e(-.998896): GNU:.36828580434569428695
+// above code:.36828580434569428696
+// actual value:.3682858043456942869594...
+// but for now let's be "GNU compatible"
"\n" "b=ibase"
"\n" "ibase=A"
"\n" "if(x<0){"
@@ -7219,7 +7225,7 @@ static const char bc_lib[] ALIGN1 = {
"\n" "}"
"\n" "scale=0"
"\n" "q=(x/a+2)/4"
-"\n" "x=x-4*q*a"
+"\n" "x-=4*q*a"
"\n" "if(q%2)x=-x"
"\n" "scale=s+2"
"\n" "r=a=x"
@@ -7288,7 +7294,7 @@ static const char bc_lib[] ALIGN1 = {
"\n" "n/=1"
"\n" "if(n<0){"
"\n" "n=-n"
-"\n" "if(n%2==1)o=1"
+"\n" "o=n%2"
"\n" "}"
"\n" "a=1"
"\n" "for(i=2;i<=n;++i)a*=i"