Tuesday, November 15, 2016

Mi primer post en Perl



Así que...he comenzado a aprender Perl...porque? 3 simples razones...
  1. Amo la programación.
  2. Para mí...Perl pertenece a la Santa Trinidad de los Lenguajes de Programación junto con Ruby y Python (Disculpa PHP...pero no llegas a la lista)
  3. Porque...es Perl! Vamos!

Entonces...he estado leyendo Beginning Perl...que dicho sea de paso es un libro impresionante...



Si estás utilizándo algun tipo de Linux o Mac...ya deberías tener Perl instalado por defecto...si estás usando Windows...bueno...siempre puedes descargarlo e instalarlo -:)

Hasta el momento...Amo Perl...es impresionante...y ahora puedo porque las personas dicen que tanto Python como Ruby piden prestado bastante de Perl...y claro...PHP lo hace también...

Por supuesto, no tengo mucha experiencia...pero como siempre...Comienzo haciendo un simple y pequeño programa para posicionarme en el camino correcto...así que aquí está mi applicación de lista de números Fibonacci...

fibonacci.pl
#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;

sub fib {
 my ($num,$a,$b) = @_;
 my $result = '';
 if ($a>0 && $num>1){
  $result = $result . ($a+$b) . " " . fib($num-1,$a+$b,$a)
 }elsif($a == 0){
  $result = $a . " " . $b . " " . ($a+$b) . " " . fib($num-1,$a+$b,$b)
 }
 return $result
}

print "Enter a number: ";
my $num = <>;

print(fib($num,0,1));

Y aquí esta el resultado...


Claro...ya tengo m clásica aplicación "LED Numbers" lista...pero eso va en otro post -;)

Saludos,

Blag.
Development Culture.

No comments: