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
17
Task/Catalan-numbers/Harbour/catalan-numbers.harbour
Normal file
17
Task/Catalan-numbers/Harbour/catalan-numbers.harbour
Normal file
|
|
@ -0,0 +1,17 @@
|
|||
PROCEDURE Main()
|
||||
LOCAL i
|
||||
|
||||
FOR i := 0 to 15
|
||||
? PadL( i, 2 ) + ": " + hb_StrFormat("%d", Catalan( i ))
|
||||
NEXT
|
||||
|
||||
RETURN
|
||||
|
||||
STATIC FUNCTION Catalan( n )
|
||||
LOCAL i, nCatalan := 1
|
||||
|
||||
FOR i := 1 TO n
|
||||
nCatalan := nCatalan * 2 * (2 * i - 1) / (i + 1)
|
||||
NEXT
|
||||
|
||||
RETURN nCatalan
|
||||
Loading…
Add table
Add a link
Reference in a new issue