Solve hanging lantern problem: Difference between revisions
m
→Math solution: Fix bugs
m (→{{header|Phix}}: "count only" version removed, since it no longer manages anything the "full" version cannot) |
m (→Math solution: Fix bugs) |
||
Line 372:
Dim i As Integer
For i = 1 To n
tot = tot +
Next i
res = factorial(tot)
For i = 1 To n
res = res / factorial(
Next i
getLantern = res
|