Changeset 183572 in git

Timestamp:

Sep 30, 2010, 6:29:56 PM (14 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '38077648e7239f98078663eb941c3c979511150a')

Children:

2433c5682fb607c4eeab2b77ea5d2c54269b493c

Parents:

efe1b1022b46cc4680baef24f2618a45b809633b

Message:

removed static proc exp

git-svn-id: file:///usr/local/Singular/svn/trunk@13352 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

• Singular/LIB/realrad.lib (modified) (2 diffs)

Singular/LIB/realrad.lib

@@ -839 +839 @@
  }
 }
-static proc exp(int a, int b)
-{
-   number res = 1;
-   while (b > 0) {
-   if (b mod 2 == 1) {
-       res = res * a;
-       b = b-1;
-   }
-   a = a * a;
-   b = b div 2;
-   }
-   return(res);
-}
-
-
 
 //////////////////////////////////////////////////////////////////////////////
@@ -1087 +1072 @@
    return(l);
  }
- int grenze=int(exp(2,n))-1;
+ int grenze=2**n-1;
  for (i=1;i<=grenze;i++)
  {