risou · December 20, 2010 07:56
diff --git a/expensis.pl b/expensis.pl
 #!/usr/bin/env perl6
 use v6;

 sub MAIN() {
 	my $sum = 0;
 	while $_ =  prompt("> ") {
 		my @strs = $_.split(',');
 		$sum += @strs.pop;
 	}
 	say 'sum ', $sum;
 }
	#!/usr/bin/env perl6
	use v6;

	sub MAIN() {
	my $sum = 0;
	while $_ = prompt("> ") {
	my @strs = $_.split(',');
	$sum += @strs.pop;
	}
	say 'sum ', $sum;
	}