Vampire number: Difference between revisions

Content added Content deleted
(→‎{{header|Perl 6}}: more efficient code, add concurrency)
Line 2,445: Line 2,445:


.say for (16758243290880, 24959017348650, 14593825548650).hyper(:1batch).map: {
.say for (16758243290880, 24959017348650, 14593825548650).hyper(:1batch).map: {
my @fangs = is_vampire($_);
"$_: " ~ (is_vampire($_).join(', ') || 'is not a vampire number.')
"$_: " ~ (@fangs.join(', ') || 'is not a vampire number.')
}</lang>
}</lang>