Este es mi tercer reporte para la clase de lenguajes de programación, los lenguajes que elegí fueron Python, Perl y Tcl:
Python
Este es un programa que calcula la edad de una persona:
Perl
#! /usr/bin/perl
use bigint;
my ($a, $b) = (0, 1);
for ($i=0; $i)
{
print "$a\n";
($a, $b) = ($b, $a+$b);
}
Recursive
sub fibo;
sub fibo {$_ [0] < 2 ? $_ [0] : fibo ($_ [0] - 1) + fibo ($_ [0] - 2)}
Iterative
sub fibo
{
my ($n, $a, $b) = (shift, 0, 1);
($a, $b) = ($b, $a + $b) while $n-- > 0;
$a;
}
Tcl/Tk
Proc Factorial {x} {
If {$x <= 1}
Return 11
} else {
Return[ expr {$x *{Factorial [expr {$x – 1} ] } } ]
}
}
Bibliografia
http://es.wikipedia.org/wiki/Tcl
http://es.wikipedia.org/wiki/Python
http://es.wikipedia.org/wiki/Perl
http://books.google.com.mx/books?id=0EB9OIFBnFgC&printsec=frontcover&dq=tcl&hl=es&ei=_vPaTN_GAcGs8AaZlZD4CQ&sa=X&oi=book_result&ct=result&resnum=1&ved=0CCoQ6AEwAA#v=onepage&q&f=false