mirror of
https://github.com/boxgaming/qbjs.git
synced 2024-09-19 20:14:58 +00:00
21 lines
408 B
QBasic
21 lines
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
|