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