Trigonometric functions: Difference between revisions
Added Common Lisp.
Underscore (talk | contribs) (Added Common Lisp.) |
|||
Line 153:
0.785398 45.000000
</pre>
=={{header|Common Lisp}}==
<lang lisp>(defun deg2rad (x) (* x (/ pi 180)))
(mapc (lambda (x) (format t "~s => ~s~%" x (eval x)))
'((sin (/ pi 4))
(sin (deg2rad 45))
(cos (/ pi 6))
(cos (deg2rad 30))
(tan (/ pi 3))
(tan (deg2rad 60))
(asin 1)
(acos 1/2)
(atan 15)))</lang>
=={{header|D}}==
{{trans|C}}
| |||