2.9.oz

   1 /****************************************************************************
   2 Ejercicio: 2.9
   3 Alumno: Leandro Lucarella
   4 Fecha: mié jul 27 15:45:41 ART 2005
   5 ****************************************************************************/
   6
   7 functor
   8 import
   9     Application
  10     System
  11 define
  12     fun {Sum1 N}
  13         if N==0 then 0 else N+{Sum1 N-1} end
  14     end
  15     fun {Sum2 N S}
  16         if N==0 then S else {Sum2 N-1 N+S} end
  17     end
  18
  19     %{System.show {Sum1 100000000}} No funciona, se agota la memoria
  20
  21     {System.show {Sum2 100000000 0}} % Anda, supongo que porque lo puede
  22                                      % convertir en un ciclo
  23
  24     {Application.exit 0}
  25 end
  26
  27 % vim: set et sw=4 sts=4 filetype=oz :