fibonacci series
==== Desarrolle un pequeño ejemplo en Perl6 que calcula la serie del amigo Fibonacchi
==== Ah.. es orientado a objetos. El objetivo de este ejemplo es mostrar fundamentos de
==== orientación a objetos con Perl 6. Programado por Walter Lamagna.
#!/bin/perl.exe
use v6;
"Calculando Fibonacci".say();
class Posicion {
has $!num_1; # Objeto privado
has $!num_2; # Objeto pri
method calc {
my $sum = $!num_1 + $!num_2;
return $sum;
}
};
# Fibonacci establece que los primeros 2 numeros de la serie
# son estos:
my $num_2 = 0;
my $num_1 = 1;
my $pos = Posicion.new(num_1 => $num_1, num_2 => $num_2);
my $num_1 = $pos.calc();
$num_2 = 1; # El numero -2 lugares ahora es el que estaba 1 lugar
# antes en la serie.
"$num_1".say();
while 1 {
$pos = Posicion.new(num_1=> $num_1, num_2 => $num_2);
$num_2 = $num_1;
$num_1 = $pos.calc();
"$num_1".say();
}