expt


1   package kawa.standard;
2   import gnu.math.*;
3   import gnu.mapping.*;
4   
5   /** Implement the standard Scheme procedure "expt". */
6   
7   public class expt extends Procedure2
8   {
9     public static final expt expt = new expt("expt");
10  
11    public expt (String   name)
12    {
13      super(name);
14    }
15  
16    public static IntNum expt (IntNum x, int y)
17    {
18      return IntNum.power(x, y);
19    }
20  
21    public static Numeric expt (Object   arg1, Object   arg2)
22    {
23      if (arg2 instanceof IntNum)
24        return ((Numeric) arg1).power((IntNum) arg2);
25      return Complex.power ((Complex) arg1, (Complex) arg2);
26    }
27  
28    public Object   apply2 (Object   arg1, Object   arg2)
29    {
30      return expt(arg1, arg2);
31    }
32  }
33

A to Z: JavaDoc & Examples Daily Java News & Articles Open Source Projects Open Source Codes Free Computer Books Remove Frame

Popular Tags