Skip to content
Permalink
Fetching contributors…
Cannot retrieve contributors at this time
executable file 10 lines (7 sloc) 153 Bytes
#!/usr/bin/perl -w
use strict;
use List::Util qw/sum/;
my @nivens = grep {
$_ and not $_ % sum split //;
} 0..50;
print join("\n", @nivens), "\n";
You can’t perform that action at this time.