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

Deja un comentario

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