Reporte #3(CORREGIDO)

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