Changeset 33158 in project


Ignore:
Timestamp:
02/04/16 21:05:09 (3 years ago)
Author:
sjamaan
Message:

numbers: Update (unused) Toom Cook 3-way algorithm's call to C_u_integer_quotient

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/numbers/trunk/toom-cook3.scm

    r32120 r33158  
    3030               ;; dividing by 3.  However, dividing by 6 is faster.
    3131               (t1   (%- ((##core#primitive "C_u_integer_quotient")
    32                           'toom-cook-3 (%+ (%* 3 v0) (%+ (%* 2 v-1) v2)) 6)
     32                          (%+ (%* 3 v0) (%+ (%* 2 v-1) v2)) 6)
    3333                         (%* 2 voo)))
    3434               (t2   (arithmetic-shift (%+ v1 v-1) -1))
     
    5454               (voo  (%* a2 b2))
    5555               (t1   (%- ((##core#primitive "C_u_integer_quotient")
    56                           'toom-cook-3 (%+ (%* 3 v0) (%+ (%* 2 v-1) v2)) 6)
     56                          (%+ (%* 3 v0) (%+ (%* 2 v-1) v2)) 6)
    5757                         (%* 2 voo)))
    5858               (t2   (arithmetic-shift (%+ v1 v-1) -1))
Note: See TracChangeset for help on using the changeset viewer.