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