Idiomatically determine all the lowercase and uppercase letters: Difference between revisions

Content added Content deleted

Inline

@@ Line 970: / Line 970: @@
 =={{header|Perl}}==
-<syntaxhighlight lang="perl">for $i (0..2**8-1) {
+<syntaxhighlight lang="perl">use v5.12;
+use utf8;
-    $c = chr $i;
+binmode STDOUT, ':utf8';
+my($lower,$upper);
+for my $i (0..2**8-1) {
+    my $c = chr $i;
     $lower .= $c if $c =~ /[[:lower:]]/;
     $upper .= $c if $c =~ /[[:upper:]]/;
 }
-print "$lower\n";
+say $lower;
-print "$upper\n";</syntaxhighlight>
+say $upper;</syntaxhighlight>
 {{out}}
-<pre>abcdefghijklmnopqrstuvwxyz
+<pre>abcdefghijklmnopqrstuvwxyzªµºßàáâãäåæçèéêëìíîïðñòóôõöøùúûüýþÿ
+ABCDEFGHIJKLMNOPQRSTUVWXYZÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖØÙÚÛÜÝÞ</pre>
-ABCDEFGHIJKLMNOPQRSTUVWXYZ</pre>
 =={{header|Phix}}==