5 lines
156 B
Text
5 lines
156 B
Text
(de sma (@Len)
|
|
(curry (@Len (Data)) (N)
|
|
(push 'Data N)
|
|
(and (nth Data @Len) (con @)) # Truncate
|
|
(*/ (apply + Data) (length Data)) ) )
|