creature-meeting ( seq -- )

Vocabulary

benchmark.chameneos-redux

Inputs

seq

an object

Outputs

None

Definition

USING: accessors combinators concurrency.mailboxes kernel math
sequences ;

IN: benchmark.chameneos-redux

: creature-meeting ( seq -- )
    first2 {
        [ [ [ 1 + ] change-count ] bi@ 2drop ]
        [ 2dup = [ [ 1 + ] change-self-count ] when 2drop ]
        [
            [ [ color>> ] bi@ complement-color ]
            [ [ color<< ] bi-curry@ bi ] 2bi
        ]
        [ [ mailbox>> f swap mailbox-put ] bi@ ]
    } 2cleave ;