Smarandache prime-digital sequence: Difference between revisions

Content added Content deleted

Inline

@@ Line 163: / Line 163: @@
 =={{header|Perl 6}}==
-<lang perl6># Implemented as a lazy, extendable list
+<lang perl6>use Lingua::EN::Numbers::Cardinal;
+sub comma { $^i.flip.comb(3).join(',').flip }
+# Implemented as a lazy, extendable list
 my $spds = flat 2,3,5,7, (1..*).map: { grep { .is-prime }, [X~] |((2,3,5,7) xx $_), (3,7) };
 say 'Smarandache prime-digitals:';
+printf "%15s: %s\n", ordinal(1+$_).tclc, comma $spds[$_] for flat ^25, 99, 999, 9999;</lang>
-printf "%4d: %s\n", 1+$_, $spds[$_] for flat ^25, 99;</lang>
 {{out}}
 <pre>Smarandache prime-digitals:
-: 2
+          First: 2
-: 3
+         Second: 3
-: 5
+          Third: 5
-: 7
+         Fourth: 7
-: 23
+          Fifth: 23
-: 37
+          Sixth: 37
-: 53
+        Seventh: 53
-: 73
+         Eighth: 73
-: 223
+          Ninth: 223
-: 227
+          Tenth: 227
-: 233
+       Eleventh: 233
-: 257
+        Twelfth: 257
-: 277
+     Thirteenth: 277
-: 337
+     Fourteenth: 337
-: 353
+      Fifteenth: 353
-: 373
+      Sixteenth: 373
-: 523
+    Seventeenth: 523
-: 557
+     Eighteenth: 557
-: 577
+     Nineteenth: 577
-: 727
+      Twentieth: 727
-: 733
+   Twenty-first: 733
-: 757
+  Twenty-second: 757
-: 773
+   Twenty-third: 773
+  Twenty-fourth: 2,237
-: 2237
+   Twenty-fifth: 2,273
-: 2273
+  One hundredth: 33,223
-: 33223</pre>
+ One thousandth: 3,273,527
+ Ten thousandth: 273,322,727</pre>
 =={{header|REXX}}==