Leer y Escribir Archivos con TcL

 

Leer y Escrbir archivos en TcL es bastante sencillo;

 

Para Leer un archivo.

 

proc leerArchivo archivo {
set f [open $archivo]
set datos [read $f]
close $f
return $datos
}

 

Para Escribir en un archivo. 

 

set ejemplo "Este es un ejemplo de escritura"
set fp [open Salida.out w]
puts $fp $ejemplo
close $fp

 

 

 

 

Read More >Leer y Escribir Archivos con 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