2242853a44
* contrib/hbide/idestylesheets.prg
* contrib/hbide/idetags.prg
! fixed wrong usage of hb_B*() raw string functions
* contrib/hbmysql/utils/dbf2mysq.prg
* formatting
* contrib/hbpgsql/tests/dbf2pg.prg
* extras/httpsrv/session.prg
* extras/hbvpdf/hbvpdf.prg
* extras/hbvpdf/hbvpdft.prg
* tests/rddtest/rddtst.prg
* using F_ERROR instead of -1
* contrib/hbtip/tests/dnldftp.prg
* contrib/hbtip/tests/upld_ftp.prg
* tests/codebloc.prg
* tests/recursiv.prg
* tests/test_all.prg
* tests/testdbf.prg
* tests/teststr.prg
* using hb_eol() instead of explict chr() values
20 lines
252 B
Plaintext
20 lines
252 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
// testing recursive calls
|
|
|
|
PROCEDURE Main()
|
|
|
|
QOut( "Testing recursive calls" + hb_eol() )
|
|
|
|
QOut( f( 10 ) )
|
|
|
|
QOut( 10 * 9 * 8 * 7 * 6 * 5 * 4 * 3 * 2 * 1 )
|
|
|
|
RETURN
|
|
|
|
FUNCTION f( a )
|
|
|
|
RETURN iif( a < 2, 1, a * f( a - 1 ) )
|