mirror of
https://github.com/GnoConsortium/gno.git
synced 2024-07-13 22:28:58 +00:00
23 lines
512 B
Awk
23 lines
512 B
Awk
# Calculate factorial of command-line argument
|
|
|
|
BEGIN {
|
|
# Get the command-line argument
|
|
if (ARGC < 2) {
|
|
print "ERROR: please provide number as command-line parameter"
|
|
exit 1
|
|
}
|
|
n = ARGV[1]; ARGV[1] = "";
|
|
# Print heading
|
|
print "Calculating",n,"factorial"
|
|
# Start the recursion
|
|
nf = factorial(n);
|
|
# All done; print the result
|
|
print "Result:",nf;
|
|
}
|
|
|
|
# Recursive function
|
|
function factorial(n) {
|
|
if (n <= 1) return 1;
|
|
else return n*factorial(n-1);
|
|
}
|