2.7.oz

   1 /****************************************************************************
   2 Ejercicio: 2.7
   3 Alumno: Leandro Lucarella
   4 Fecha: mié jul 27 15:33:55 ART 2005
   5 ****************************************************************************/
   6
   7 functor
   8 import
   9     Application
  10     System
  11 define
  12     Max3 Max5
  13     proc {SpecialMax Value ?SMax}
  14         fun {SMax X}
  15            if X>Value then X else Value end
  16         end
  17     end
  18     {SpecialMax 3 Max3} % Algo así como un constructor de funciones
  19     {SpecialMax 5 Max5}
  20     {System.show [{Max3 4} {Max5 4}]}
  21     {Application.exit 0}
  22 end
  23
  24 % vim: set et sw=4 sts=4 filetype=oz :