10 lines
158 B
Text
10 lines
158 B
Text
|
- factorial x : INTEGER : INTEGER <- (
|
||
|
|
+ result : INTEGER;
|
||
|
|
(x <= 1).if {
|
||
|
|
result := 1;
|
||
|
|
} else {
|
||
|
|
result := x * factorial(x - 1);
|
||
|
|
};
|
||
|
|
result
|
||
|
|
);
|