Fibonacci TcL

 

 Método para calcular Fibonacci usando recursión en TcL.

 

proc fibonacci { numero } {
if {$numero < 2} {
return 1
} else {
set resultado [expr [fibonacci [expr $numero - 1 ]] + [fibonacci [expr $numero - 2 ]]]
return $resultado
}
}

 

 

Read More >Fibonacci TcL

Deja un comentario

This site uses Akismet to reduce spam. Learn how your comment data is processed.