1.5.oz

   1 /****************************************************************************
   2 Ejercicio: 1.5
   3 Alumno: Leandro Lucarella
   4 Fecha: dom mar 27 02:14:55 ART 2005
   5 ****************************************************************************/
   6
   7 functor
   8 import
   9     Application
  10     System
  11 define
  12     % Calcula lista lista infinita de números
  13     fun lazy {Ints N}
  14         N|{Ints N+1}
  15     end
  16     % Suma una lista de números
  17     fun {SumList L}
  18         case L of X|L1 then X+{SumList L1}
  19         else 0 end
  20     end
  21     % NO es una buena idea sumar una lista infinita de números...
  22     %{System.show {SumList {Ints 0}}}
  23     {Application.exit 0}
  24 end
  25
  26 % vim: set et sw=4 sts=4 filetype=oz :