active-test ( -- )

Vocabulary

rosetta-code.active-object

Inputs

None

Outputs

None

Definition

USING: calendar kernel math math.constants math.functions
prettyprint threads ;

IN: rosetta-code.active-object

: active-test ( -- )
    <active-object> [ 2 pi 0.5 * * * sin ] input 2 seconds sleep
    [ drop 0 ] input 0.5 seconds sleep
    [ output . ] [ destroy ] bi ;