Rosetta Code

Descending primes: Difference between revisions

Page Discussion

Descending primes (view source)

Revision as of 14:46, 2 May 2023

11 bytes removed ,  1 year ago
m
→‎{{header|Perl}}: code layout
(Nim solution.)
m (→‎{{header|Perl}}: code layout)
Line 848:
 
=={{header|Perl}}==
{{libheader|ntheory}}
<syntaxhighlight lang="perl">#!/usr/bin/perl
 
use strict;
use strict; # https://rosettacode.org/wiki/Descending_primes
use warnings;
use ntheory qw( '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', $_ }
▲print join('', sort map { sprintf "%9d", $_ } grep /./ && is_prime( $_),
▲ glob join '', map "{$_,}", reverse 1 .. 9) =~ s/.{45}\K/\n/gr;</syntaxhighlight>
) =~ s/.{45}\K/\n/gr;
</syntaxhighlight>
{{out}}
<pre>
SqrtNegInf
2,392

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/341392"