Angle difference between two bearings: Difference between revisions
Content added Content deleted
(adding Common Lisp example) |
|||
Line 399: | Line 399: | ||
Press any key to continue . . . |
Press any key to continue . . . |
||
</pre> |
|||
=={{header|Common Lisp}}== |
|||
<lang common lisp> |
|||
(defun angle-difference (b1 b2) |
|||
(let ((diff (mod (- b2 b1) 360))) |
|||
(if (< diff -180) |
|||
(incf diff 360) |
|||
(if (> diff 180) |
|||
(decf diff 360) |
|||
diff)))) |
|||
</lang> |
|||
{{out| Output}} |
|||
<pre> |
|||
CL-USER> (angle-difference 20 45) |
|||
25 |
|||
CL-USER> (angle-difference -45 45) |
|||
90 |
|||
CL-USER> (angle-difference -85 90) |
|||
175 |
|||
CL-USER> (angle-difference -95 90) |
|||
-175 |
|||
CL-USER> (angle-difference -70099.74 29840.67) |
|||
-139.58594 |
|||
</pre> |
</pre> |
||