16 lines
249 B
Plaintext
16 lines
249 B
Plaintext
(* TEST: [-asc -tc] *)
|
|
type string2int: string -> integer
|
|
|
|
function entry : string2int
|
|
|
|
entry(arg) := {
|
|
[ integer: i; integer: sum ]
|
|
sum := 0;
|
|
i := 0;
|
|
while (i < 10) {
|
|
sum = sum + i;
|
|
i := i + 1;
|
|
}
|
|
return 0;
|
|
}
|