first commit

perl/Examples/Chap6/hamming.pl

@@ -0,0 +1,26 @@
+
+
+###
+### hamming.pl
+###
+
+## Chapter 6 section 4
+
+use Stream qw(transform promise merge node show);
+
+sub scale {
+  my ($s, $c) = @_;
+  transform { $_[0]*$c } $s;
+}
+my $hamming;
+$hamming = node(1,
+                promise {
+                  merge(scale($hamming, 2),
+                  merge(scale($hamming, 3),
+                        scale($hamming, 5),
+                       ))
+                }
+               );
+
+
+show($hamming, 3000);