%----------------------------------------------------------------------------
%Factorial Calculator
%By: Josh Rosen
%Date: October 3, 2004.
%Version: 1.0.0
%
%Input: A number between 1 and 30
%Output: The factorial of the inputted number
%Process: Use a loop to continue. Use a for loop within the continuous loop to calculate.
%----------------------------------------------------------------------------

%Declare Variables
var fact : int          %The factorial of the inputed number
var num : int           %The number to calculate the factorial for
var cont : string       %Holds the users answer to continue or not

%Continuous loop
loop
    cls
    put "What number would youy like to calculate the factorial of? (number must be between 1 and 30)"
    get num
    fact := num
    for decreasing i : num .. 1
        fact:= i*(i-1)
    end for
    put "The factorial of ", num, " is ", fact
    put ""
    put "Do you wish to continue? Y/N"
    get cont

    exit when cont = "N" or cont = "n"
end loop

for decreasing i : num .. 1
        fact:= i*(i-1)

fact := 1 * (1 - 1)

fact := 1
for i : 1 .. num
        fact:= fact * i
end for

function factorial(n : int) : int
   if n = 1 then
      result 1
   else
      result n * factorial(n - 1)
   end if
end factorial