challenge-241/deadmarshal/perl/ch-2.pl


1
2
3
4
5
6
7
8
9
10
11

#!/usr/bin/env perl
use strict;
use warnings;
use ntheory qw(factor);

sub prime_order{
  sort{factor($a) <=> factor($b) || $a <=> $b} @{$_[0]};
}

printf "(%s)\n", join ',',prime_order([11,8,27,4]);