First page Back Continue Last page Overview Graphics
mais exemplos
proc fac {x} {
if { $x <= 1 } {
return 1
}
expr { $x * [fac [expr $x - 1]] }
}
exercício: escreva a proc fib, que calcula os números de fibonacci, definidos como
fib(0)=1, fib(1)=1, fib(n)=fib(n-1)+fib(n-2)
Alguns valores: 1, 1, 2, 3, 5, 8, 13, 21,...
proc power {base p} {
set result 1
while {$p > 0} {
set result [expr $result * $base]
set p [expr $p - 1]
}
return $result
}