RosettaCodeData/Task/Averages-Arithmetic-mean/Perl-6/averages-arithmetic-mean.pl6

multi mean([]){ Failure.new('mean on empty list is not defined') }; # Failure-objects are lazy exceptions
multi mean (@a) { ([+] @a) / @a }