tools/demos/calculus.pcc

   1 #include "calculus.ph"
   2
   3
   4 Term simplify(Term t)
   5 {  match (t) {
   6       case (Int(i) + Int(j)):  Int(i+j)
   7       case (Int(i) - Int(j)):  Int(i-j)
   8       case (Int(i) * Int(j)):  Int(i*j)
   9       case (Int(i) / Int(j)):  Int(i/j)
  10       case (Int(i) ^ Int(j)):  Int(power(i,j))
  11       case (e ^ Int(0)):       Int(1)
  12       case (e ^ Int(1)):       e
  13       case _:
  14    }
  15 }