27 lines
440 B
Perl
27 lines
440 B
Perl
|
|
|
|
###
|
|
### 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);
|