10 lines
134 B
Text
10 lines
134 B
Text
fun
|
|
fact
|
|
(
|
|
n: int
|
|
) : int = res where
|
|
{
|
|
var n: int = n
|
|
var res: int = 1
|
|
val () = while (n > 0) (res := res * n; n := n - 1)
|
|
}
|