1
1
Fork 0
mirror of https://github.com/boxgaming/qbjs.git synced 2024-09-20 04:24:45 +00:00
qbjs/samples/include/maths.bas

21 lines
408 B
QBasic
Raw Normal View History

2022-04-15 19:47:03 +00:00
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