Per5->Perl6... next step Raku

gistfile1.txt

sub MAIN($n=100) {
	my $percentleft = 100;
	my $biggestpercent = 0;
	my $guestwithbiggestpercent = 0;

	for (1..$n) -> $i
	{
		my $pi = $i * $percentleft / 100;	# amount for guest i
		print "guest $i has $pi percent of the pie\n";
		if ( $pi > $biggestpercent )
		{
			$biggestpercent = $pi;
			$guestwithbiggestpercent = $i;
		}
		$percentleft -= $pi;		# percentage left over
	}

	print "\nguest $guestwithbiggestpercent has biggest percentage of pie: " ~
		"$biggestpercent\n";
}