Descending primes: Difference between revisions

Content added Content deleted

Inline

@@ Line 848: / Line 848: @@
 =={{header|Perl}}==
+{{libheader|ntheory}}
-<syntaxhighlight lang="perl">#!/usr/bin/perl
+<syntaxhighlight lang="perl">
+use strict;
-use strict; # https://rosettacode.org/wiki/Descending_primes
 use warnings;
-use ntheory qw( is_prime );
+use ntheory 'is_prime';
+print join( '',
-print join('', sort map { sprintf "%9d", $_ } grep /./ && is_prime($_),
+        sort
-  glob join '', map "{$_,}", reverse 1 .. 9) =~ s/.{45}\K/\n/gr;</syntaxhighlight>
+        map { sprintf '%9d', $_ }
+        grep /./ && is_prime $_,
+        glob join '', map "{$_,}", reverse 1..9
+      ) =~ s/.{45}\K/\n/gr;
+</syntaxhighlight>
 {{out}}
 <pre>