mirror of
https://github.com/dragonheim/gagent.git
synced 2025-02-23 10:29:54 -08:00
13 lines
266 B
Tcl
13 lines
266 B
Tcl
|
##########################################
|
||
|
|
### Perform Fibanaci sequence up to 10 ###
|
||
|
|
##########################################
|
||
|
|
set GHINT [split "math, fib" ,]
|
||
|
|
proc fib {x} {
|
||
|
|
if {<= $x 1} {
|
||
|
|
return 1
|
||
|
|
} else {
|
||
|
|
+ [fib [- $x 1]] [fib [- $x 2]]
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
puts [fib 20]
|