Dice Game Again

After seeing Daniel Ruoso's lovely version, I decided to take another crack at the the dice game:

	use p6;
	sub payback($dice)
	{
	given $dice
	{
	when $_ <= 50 { 0.0 }
	when $_ <= 66 { 1.0 }
	when $_ <= 75 { 1.5 }
	when $_ <= 99 { 2.0 }
	when $_ == 100 { 3.0 }
	}
	}
	sub MAIN($bet, $plays)
	{
	my $money = $bet * ([+] map { payback(int(rand() * 100)+1) }, ^$plays);
	say "{$bet * $plays}\$ became $money\$ after $plays plays:
	You get {$money / ($bet * $plays)}\$ for a dollar";
	}

view raw dice_game3.pl hosted with ❤ by GitHub

Notice that once the payback subroutine is defined, the all the calculations are done with a simple one-liner, followed by a single say to print the results, and then wrapped with MAIN to produce a command-line interface. Wee!

Alas, I believe this would be the slowest version yet but for the fact I replaced * with $_ in the given / when statement.