mirror of
https://github.com/KevinMidboe/linguist.git
synced 2025-10-29 17:50:22 +00:00
baf56666d4
* Improve Turing sample * Move more complex sample to different file * Undo changes to original file
19 lines
353 B
Turing
19 lines
353 B
Turing
% Accepts a number and calculates its factorial
|
|
|
|
function factorial (n: int) : real
|
|
if n = 0 then
|
|
result 1
|
|
else
|
|
result n * factorial (n - 1)
|
|
end if
|
|
end factorial
|
|
|
|
var n: int
|
|
loop
|
|
put "Please input an integer: " ..
|
|
get n
|
|
exit when n >= 0
|
|
put "Input must be a non-negative integer."
|
|
end loop
|
|
|
|
put "The factorial of ", n, " is ", factorial (n) |