mirror of
https://github.com/dragonheim/gagent.git
synced 2025-02-23 05:49:53 -08:00
13 lines
No EOL
266 B
Tcl
13 lines
No EOL
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] |