Codes: part 48

#!/usr/bin/perl6
my $a = 0; while (($a = $a + 1) <= 5)
    {my $b = 0; while (($b = $b + 1) <= 3)
        {my $c = ($a+$b)*($a+((-1/2)+((3**(1/2)/2)*i))*$b)*($a+((-1/2)-((3**(1/2)/2)*i))*$b);
 {print(“$c\n”);}}}

Advertisements