a4a357a18b
* /harbour/* -> /*
* moved whole Harbour source tree one level up to
avoid single 'harbour' top dir
21 lines
228 B
Plaintext
21 lines
228 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
// testing recursive calls
|
|
|
|
PROCEDURE Main()
|
|
|
|
? "Testing recursive calls"
|
|
?
|
|
|
|
? f( 10 )
|
|
|
|
? 10 * 9 * 8 * 7 * 6 * 5 * 4 * 3 * 2 * 1
|
|
|
|
RETURN
|
|
|
|
FUNCTION f( a )
|
|
|
|
RETURN iif( a < 2, 1, a * f( a - 1 ) )
|