12 lines
300 B
Perl
12 lines
300 B
Perl
#!/usr/local/bin/perl
|
|
|
|
$rad90 = °rees_to_radians(90);
|
|
$sin90 = sin($rad90);
|
|
$cos90 = cos($rad90);
|
|
print ("90 degrees:\nsine is $sin90\ncosine is $cos90\n");
|
|
|
|
sub degrees_to_radians {
|
|
local ($degrees) = @_;
|
|
local ($radians);
|
|
$radians = atan2(1,1) * $degrees / 45;
|
|
} |