Select Code to Download

use strict;
use warnings;
...

print wrap_cos($x), "\n";     # Output: 0.877582561890373
print wrap_cos($angle), "\n"; # Output: 0.877582561890373

#include "EXTERN.h"
#include "perl.h"
...
double
wrap_cos (in)
    SV *    in