Ejercicios del capítulo 2.
[z.facultad/75.31/ejercicios.git] / 2.2.oz
1 /****************************************************************************
2 Ejercicio: 2.2
3 Alumno: Leandro Lucarella
4 Fecha: mié jul 27 14:34:05 ART 2005
5 ****************************************************************************/
6
7 functor
8 import
9     Application
10     System
11 define
12     N=3
13     proc {MulByN X ?Y}
14         Y=N*X
15     end
16     A = 10
17     B
18     % N = 5 Da un assert al compilar (pero compila) y al ejecutar.
19     {MulByN A B}
20     {System.show B}
21     {Application.exit 0}
22 end
23
24 % vim: set et sw=4 sts=4 filetype=oz :