Ejercicios del capítulo 2.
[z.facultad/75.31/ejercicios.git] / 2.6.oz
1 /****************************************************************************
2 Ejercicio: 2.6
3 Alumno: Leandro Lucarella
4 Fecha: mié jul 27 15:24:15 ART 2005
5 ****************************************************************************/
6
7 functor
8 import
9     Application
10     System
11 define
12     proc {Test X}
13         {System.show 'proc'}
14         {System.show X}
15         case X
16             of f(a Y c) then {System.show 'case'(1)}
17             else {System.show 'case'(2)}
18         end
19     end
20     {System.show 'inicio'}
21     local X Y in {Test f(X b Y)} end % Se queda esperando a que se bindee X!
22     {System.show 'post1'}
23     local X Y in {Test f(a Y d)} end
24     {System.show 'post2'}
25     local X Y in {Test f(X Y d)} end
26     {System.show 'post3'}
27     {Application.exit 0}
28 end
29
30 % vim: set et sw=4 sts=4 filetype=oz :