Exemplo n.º 1
0
 public boolean leq(LispObject a) throws Exception {
   return (value <= a.doubleValue());
 }
Exemplo n.º 2
0
 public boolean neqn(LispObject a) throws Exception {
   return (value != a.doubleValue());
 }
Exemplo n.º 3
0
 public boolean ge(LispObject a) throws Exception {
   return (value > a.doubleValue());
 }
Exemplo n.º 4
0
 public LispObject expt(LispObject a) throws Exception {
   // it is possible that I should delect cases where a is an integer
   // and raise to a power using some alternative scheme, like repeated
   // multiplication.
   return new LispFloat(Math.pow(value, a.doubleValue()));
 }
Exemplo n.º 5
0
 public LispObject min(LispObject a) throws Exception {
   return (value <= a.doubleValue() ? this : a);
 }
Exemplo n.º 6
0
 public LispObject remainder(LispObject a) throws Exception {
   return new LispFloat(value % a.doubleValue());
 }
Exemplo n.º 7
0
 public LispObject divide(LispObject a) throws Exception {
   return new LispFloat(value / a.doubleValue());
 }
Exemplo n.º 8
0
 public LispObject multiply(LispObject a) throws Exception {
   return new LispFloat(value * a.doubleValue());
 }
Exemplo n.º 9
0
 public LispObject subtract(LispObject a) throws Exception {
   return new LispFloat(value - a.doubleValue());
 }
Exemplo n.º 10
0
 public LispObject add(LispObject a) throws Exception {
   return new LispFloat(value + a.doubleValue());
 }