5 lines
118 B
Text
5 lines
118 B
Text
to average :l
|
|
if empty? :l [output 0]
|
|
output quotient apply "sum :l count :l
|
|
end
|
|
print average [1 2 3 4] ; 2.5
|