Home
Random
Log in
Settings
About Rosetta Code
Disclaimers
Rosetta Code
Search
Averages/Arithmetic mean: Difference between revisions
Page
Discussion
← Older edit
Newer edit →
Averages/Arithmetic mean
(view source)
Revision as of 11:50, 24 February 2012
19 bytes removed
,
12 years ago
→{{header|Common Lisp}}
Revision as of 20:31, 22 February 2012
(
view source
)
109.204.171.107
(
talk
)
(
→{{header|C}}
)
← Older edit
Revision as of 11:50, 24 February 2012
(
view source
)
134.147.198.10
(
talk
)
(
→{{header|Common Lisp}}
)
Newer edit →
Line 472:
'''With Reduce'''
<lang lisp>(defun mean (
&rest
sequence)
(
let
if
(
(length (length
null
sequence
))
)
(if
(zerop
length)
nil
(/ (reduce #'+ sequence)
(
length
sequence
))))</lang>
▼
0
▲
(/ (reduce #'+ sequence) length))))</lang>
'''With Loop'''
Anonymous user
134.147.198.10