% $Id: Discrim.oz,v 1.1 2008/01/18 21:57:55 leavens Exp leavens $ % See DiscrimDesugared.oz for a desugared version of this declare % (declare is not part of the kernel, but needed by the OPI) fun {Discrim A B C} fun {Square N} N*N end in {Square A} + {Square B} - 4.0*A*C end {Browse {Discrim 5.0 4.0 3.0}}