Averages/Arithmetic mean: Difference between revisions
Content added Content deleted
(Updated 3 D entries) |
|||
Line 46: | Line 46: | ||
PLA |
PLA |
||
RTS ;return from routine</lang> |
RTS ;return from routine</lang> |
||
=={{header|ACL2}}== |
|||
<lang Lisp>(defun mean-r (xs) |
|||
(if (endp xs) |
|||
(mv 0 0) |
|||
(mv-let (m j) |
|||
(mean-r (rest xs)) |
|||
(mv (+ (first xs) m) (+ j 1))))) |
|||
(defun mean (xs) |
|||
(mv-let (n d) |
|||
(mean-r xs) |
|||
(/ n d)))</lang> |
|||
=={{header|ActionScript}}== |
=={{header|ActionScript}}== |
||
Line 55: | Line 68: | ||
return vector.length == 0 ? 0 : sum / vector.length; |
return vector.length == 0 ? 0 : sum / vector.length; |
||
}</lang> |
}</lang> |
||
=={{header|Ada}}== |
=={{header|Ada}}== |
||
This example shows how to pass a zero length vector as well as a larger vector. |
This example shows how to pass a zero length vector as well as a larger vector. |