Help for this page

Select Code to Download

Select or download this

sub note_to_sound {
    my ($note) = @_;
...

Test::More::ok (abs($noteCounts{$_} - $nominal) < 200, "Random distrib
+ution of $_: $noteCounts{$_}")
    for map {note_to_sound($_)} 'a' .. 'g';

Select or download this

package SoundOfMusicSong;
use strict;
...
    
    return $SoM{$note}{sound};
}