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

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out /  Change )

Google+ photo

You are commenting using your Google+ account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )

w

Connecting to %s