gfldex · January 31, 2017 08:47
diff --git a/test2.p6 b/test2.p6
 my %results;
 for ^10 {
    %results{$_}<bytes> = (1..10).pick;
 }
 say %results.perl;
 say %results.keys.sort({
    my $c = %results{$^a}<bytes> cmp %results{$^b}<bytes>;
    $c ?? $c !! $^a.Int cmp $^b.Int;
 });
	my %results;
	for ^10 {
	%results{$_}<bytes> = (1..10).pick;
	}
	say %results.perl;
	say %results.keys.sort({
	my $c = %results{$^a}<bytes> cmp %results{$^b}<bytes>;
	$c ?? $c !! $^a.Int cmp $^b.Int;
	});