Sine wave: Difference between revisions
Added Perl example
(Implementation for racket) |
SqrtNegInf (talk | contribs) (Added Perl example) |
||
Line 137:
ocamlopt -I +sfml bigarray.cmxa sfml_system.cmxa sfml_audio.cmxa sine_wave.ml -o sine_wave.exe
</pre>
=={{header|Perl}}==
<lang perl>use Audio::NoiseGen qw(play sine);
Audio::NoiseGen::init() || die 'No access to sound hardware?';
alarm 5;
play( gen => sine( freq => 440 ) );</lang>
=={{header|Perl 6}}==
|