6 lines
127 B
Factor
6 lines
127 B
Factor
SYMBOL: depth
|
|
|
|
: fn ( n -- n ) depth inc 1 + fn 1 + ;
|
|
|
|
[ 0 fn ] try
|
|
depth get "Recursion depth on this system is %d.\n" printf
|