digraphs: put _ at the left of table

While underscore is at the end by ASCII ordering, it's only character
left after the letters, and groups are certainly more balanced if it's
put at the beginning with other punctuation.

diff --git a/digraphs.plp b/digraphs.plp
index d339b094001200692dc1e8b94a1ffe1cfdbe732e..81944b2e50c63d8186f81c3abbc8bb734b933c0d 100644 (file)
--- a/digraphs.plp
+++ b/digraphs.plp
@@ -41,7 +41,7 @@ my @chars = (
        ['A'..'M'], ['N'..'Z'],
        ['a'..'m'], ['n'..'z'],
 );
        ['A'..'M'], ['N'..'Z'],
        ['a'..'m'], ['n'..'z'],
 );

-my @chars2 = (@chars, ['_']);  # trailing character (extended set)
+my @chars2 = (['_'], @chars);  # trailing character (extended set)

 
 print '<table><col>';
 print qq'<colgroup span="$_">' for map {scalar @$_} @chars2;
 
 print '<table><col>';
 print qq'<colgroup span="$_">' for map {scalar @$_} @chars2;