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

Factorial en TcL

Soy nuevo en la programación con TcL , por lo que me costó hacer un poco este ejercicio  solo por la forma de usar las expresiones . Lo publico para que nadie pase por lo mismo.

 Factorial de un número de manera recursiva.

proc factorial { numero } {
if {$numero == 1} {
return 1
} else {
set resultado [expr $numero * [factorial [expr $numero - 1 ]]]
return $resultado
}
}

 

Read More >Factorial en TcL