Vampire number: Difference between revisions

m
→‎{{header|Perl 6}}: cut out some unnecessary calculations
m (→‎{{header|Perl 6}}: cut out some unnecessary calculations)
Line 2,431:
}
 
constant @vampires = flat (13..*).map: -> $s, $e {
(10**$s .. 10**$e).hyper.map: -> $n {
next unless my @fangs = is_vampire($n);
10,333

edits