challenge-158/deadmarshal/perl/ch-1.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

#!/usr/bin/env perl
use strict;
use warnings;
use Math::Prime::Util qw(is_prime);
use List::Util qw(sum0);

sub additive_primes{
  my @arr;
  foreach(0..100){
    push @arr, $_ if is_prime($_) && is_prime(sum0 split '', "$_");
  }
  return @arr;
}

print "$_ " foreach additive_primes();