Числа Фибоначчи в Tcl

Пример для версий ActiveTcl 8.5, Tcl 8.5.7

Для вычисления чисел Фибоначчи используется рекурсия. Функция fib определяется в пространстве имен tcl::mathfunc, для того, чтобы ее можно было использовать как функцию в выражениях expr.

proc tcl::mathfunc::fib {n} {
    if {$n<=1} {
        return 1
    } else {
        return [expr fib([expr {$n - 1}]) + fib([expr {$n - 2}])]
    }
}

set s ""
for {set i 0} {$i < 16} {incr i} {
    append s [expr fib($i)] ", "
}
puts "$s..."

Числа Фибоначчи в Tcl

Комментарии