1.7.oz

   1 /****************************************************************************
   2 Ejercicio: 1.7
   3 Alumno: Leandro Lucarella
   4 Fecha: dom mar 27 02:43:53 ART 2005
   5 ****************************************************************************/
   6
   7 functor
   8 import
   9     Application
  10     System
  11 define
  12     local X in
  13         X = 23
  14         local X in
  15             X = 44
  16         end
  17         % Muestra 23 (valor original) porque el contexto del X anterior fue
  18         % destruído y ahora X se vuelve a asociar con el valor 23.
  19         {System.show X}
  20     end
  21     local X in
  22         X = {NewCell 23}
  23         X := 44
  24         % Muestra 44 (valor cambiado) porque X siempre apunta a una celda de
  25         % memoria y al modificarse, los cambios persisten.
  26         {System.show @X}
  27     end
  28     {Application.exit 0}
  29 end
  30
  31 % vim: set et sw=4 sts=4 filetype=oz :