Add tasks for all the new languages
This commit is contained in:
parent
9dc3c2bb62
commit
bba7bfd280
13208 changed files with 134745 additions and 0 deletions
|
|
@ -0,0 +1,41 @@
|
|||
' version 28-10-2016
|
||||
' compile with: fbc -s console
|
||||
' to do A(4, 2) the stack size needs to be increased
|
||||
' compile with: fbc -s console -t 2000
|
||||
|
||||
Function ackerman (m As Long, n As Long) As Long
|
||||
|
||||
If m = 0 Then ackerman = n +1
|
||||
|
||||
If m > 0 Then
|
||||
If n = 0 Then
|
||||
ackerman = ackerman(m -1, 1)
|
||||
Else
|
||||
If n > 0 Then
|
||||
ackerman = ackerman(m -1, ackerman(m, n -1))
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End Function
|
||||
|
||||
' ------=< MAIN >=------
|
||||
|
||||
Dim As Long m, n
|
||||
Print
|
||||
|
||||
For m = 0 To 4
|
||||
Print Using "###"; m;
|
||||
For n = 0 To 10
|
||||
' A(4, 1) or higher will run out of stack memory (default 1M)
|
||||
' change n = 1 to n = 2 to calculate A(4, 2), increase stack!
|
||||
If m = 4 And n = 1 Then Exit For
|
||||
Print Using "######"; ackerman(m, n);
|
||||
Next
|
||||
Print
|
||||
Next
|
||||
|
||||
' empty keyboard buffer
|
||||
While InKey <> "" : Wend
|
||||
Print : Print "hit any key to end program"
|
||||
Sleep
|
||||
End
|
||||
Loading…
Add table
Add a link
Reference in a new issue