home *** CD-ROM | disk | FTP | other *** search
/ ftp.cs.arizona.edu / ftp.cs.arizona.edu.tar / ftp.cs.arizona.edu / icon / historic / v941.tgz / icon.v941src.tar / icon.v941src / ipl / packs / idol / fraction.iol < prev    next >
Text File  |  2000-07-29  |  349b  |  20 lines
  1. class fraction(n,d)
  2.   method n()
  3.     return self.n
  4.   end
  5.   method d()
  6.     return self.d
  7.   end
  8.   method times(f)
  9.     return fraction(self.n * f$n(), self.d * f$d())
  10.   end
  11.   method asString()
  12.     return self.n||"/"||self.d
  13.   end
  14.   method asReal()
  15.     return real(self.n) / self.d
  16.   end
  17. initially
  18.   if self.d=0 then stop("fraction: denominator=0")
  19. end
  20.