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();

}