_ _ ,_ /^\/^\-/ @D~(________/ PERL.LT |L |L L L
Gražina kosinusą (radianais). Jei EXPR funkcijai nenurodytas, cos() suveiks ant $_.
Atvirkštiniam rezultatam gauti galima pasinaudoti Math::Trig::acos() funkcija, arba tiesiog:
Math::Trig::acos()
sub acos { atan2( sqrt(1 - $_[0] * $_[0]), $_[0] ) }