mirror of
https://github.com/dragonheim/gagent.git
synced 2025-02-23 09:19:53 -08:00
10 lines
106 B
Tcl
10 lines
106 B
Tcl
|
proc fib {x} {
|
||
|
|
if {<= $x 1} {
|
||
|
|
return 1
|
||
|
|
} else {
|
||
|
|
+ [fib [- $x 1]] [fib [- $x 2]]
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
puts [fib 20]
|