Data commit

Task/Stem-and-leaf-plot/Perl/stem-and-leaf-plot-1.pl

@@ -0,0 +1,25 @@
+my @data = sort {$a <=> $b} qw( 12  127 28  42  39  113 42  18  44  118 44
+37  113 124 37  48  127 36  29  31  125 139 131 115 105 132 104 123 35  113
+122 42  117 119 58  109 23  105 63  27  44  105 99  41  128 121 116 125 32
+61  37  127 29  113 121 58  114 126 53  114 96  25  109 7   31  141 46  13
+27  43  117 116 27  7   68  40  31  115 124 42  128 52  71  118 117 38  27
+106 33  117 116 111 40  119 47  105 57  122 109 124 115 43  120 43  27  27
+18  28  48  125 107 114 34  133 45  120 30  127 31  116 );
+my $columns = @data;
+
+my $laststem = undef;
+
+for my $value (@data) {
+  my $stem = int($value / 10);
+  my $leaf = $value % 10;
+  while (not defined $laststem or $stem > $laststem) {
+    if (not defined $laststem) {
+      $laststem = $stem - 1;
+    } else {
+      print " \n";
+    }
+    $laststem++;
+    printf "%3d |", $laststem;
+  }
+  print " $leaf";
+}

Task/Stem-and-leaf-plot/Perl/stem-and-leaf-plot-2.pl

@@ -0,0 +1,43 @@
+#!/usr/bin/perl -w
+
+my @data = sort {$a <=> $b} qw( 12  127 28  42  39  113 42  18  44  118 44
+37  113 124 37  48  127 36  29  31  125 139 131 115 105 132 104 123 35  113
+122 42  117 119 58  109 23  105 63  27  44  105 99  41  128 121 116 125 32
+61  37  127 29  113 121 58  114 126 53  114 96  25  109 7   31  141 46  13
+27  43  117 116 27  7   68  40  31  115 124 42  128 52  71  118 117 38  27
+106 33  117 116 111 40  119 47  105 57  122 109 124 115 43  120 43  27  27
+18  28  48  125 107 114 34  133 45  120 30  127 31  116 );
+
+# FIXME: This should count the maximum number of leaves in any one stem;
+# instead it takes the total number of data items, which is usually
+# a massive overestimate.
+my $columns = @data;
+
+print <<"EOT";
+\\documentclass{report}
+\\usepackage{fullpage}
+\\begin{document}
+  \\begin{tabular}{ r | *{$columns}{c} }
+EOT
+
+my $laststem = undef;
+
+for my $value (@data) {
+  my $stem = int($value / 10);
+  my $leaf = $value % 10;
+  while (not defined $laststem or $stem > $laststem) {
+    if (not defined $laststem) {
+      $laststem = $stem - 1;
+    } else {
+      print " \\\\\n";
+    }
+    $laststem++;
+    print "    $laststem";
+  }
+  printf " & $leaf";
+}
+print <<'EOT';
+
+  \end{tabular}
+\end{document}
+EOT

Task/Stem-and-leaf-plot/Perl/stem-and-leaf-plot-3.pl

@@ -0,0 +1,12 @@
+\documentclass{report}
+\usepackage{fullpage}
+\begin{document}
+  \begin{tabular}{ r | *{120}{c} }
+    0 & 7 & 7 \\
+    1 & 2 & 3 & 8 & 8 \\
+    2 & 3 & 5 & 7 & 7 & 7 & 7 & 7 & 7 & 8 & 8 & 9 & 9 \\
+    ...
+    13 & 1 & 2 & 3 & 9 \\
+    14 & 1
+  \end{tabular}
+\end{document}