mirror of
https://github.com/boxgaming/qbjs.git
synced 2024-09-19 20:14:58 +00:00
21 lines
No EOL
408 B
QBasic
21 lines
No EOL
408 B
QBasic
Export increment As Plus1
|
|
Export factorial AS Factorial
|
|
|
|
Function increment (num)
|
|
increment = num + 1
|
|
End Function
|
|
|
|
Function factorial (num)
|
|
Dim res
|
|
$If Javascript Then
|
|
if (num === 0 || num === 1) {
|
|
num = 1;
|
|
}
|
|
else {
|
|
for (var i = num - 1; i >= 1; i--) {
|
|
num *= i;
|
|
}
|
|
}
|
|
$End If
|
|
factorial = num
|
|
End Function |