Averages/Arithmetic mean: Difference between revisions

Line 547:
#define std'patterns'*.
#define std'dictionary'*.
 
// --- Sum ---
 
#class MeanAction
Line 582 ⟶ 580:
theValue += aValue.
]
#method start : aPattern
[
aPattern run:self.
^ self numeric.
]
}
 
// --- Program ---
 
#symbol Program =>
[
'program'Output << MeanAction start:Scan::(1, 2, 3, 4, 5, 6, 7, 8) run:anAction.
#var anAction := MeanAction.
].
].</lang>
Scan::(1, 2, 3, 4, 5, 6, 7, 8) run:anAction.
'program'Output << anAction numeric.
].</lang>
 
=={{header|Erlang}}==
Anonymous user