std-main ( -- )

Vocabulary

rosetta-code.standard-deviation

Inputs

None

Outputs

None

Definition

USING: io kernel math.parser sequences ;

IN: rosetta-code.standard-deviation

: std-main ( -- )
    { 2 4 4 4 5 5 7 9 } <standard-deviator>
    [ [ add-value ] curry each ] keep
    current-std number>string print ;