From 203210e2535e7543e415b052e1d7182f3ca32959 Mon Sep 17 00:00:00 2001 From: Denys Vlasenko Date: Fri, 14 Dec 2018 09:53:50 +0100 Subject: bc: shrink internal library more function old new delta bc_lib 1618 1609 -9 Signed-off-by: Denys Vlasenko --- miscutils/bc.c | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) (limited to 'miscutils/bc.c') 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" -- cgit v1.2.3