chameneos-redux ( n colors -- )

Vocabulary

benchmark.chameneos-redux

Inputs

n	an object
colors	an object

Outputs

None

Definition

USING: accessors combinators io kernel math.parser
math.text.english sequences threads ;

IN: benchmark.chameneos-redux

: chameneos-redux ( n colors -- )
    [ <meeting-place> ] [ make-creatures ] bi* {
        [
            nip nl bl [ bl ] [ color>> name>> write ] interleave
            nl
        ]
        [ [ [ try-meet ] 2curry in-thread ] with each ]
        [ drop run-meeting-place ]
        [
            nip [
                [ count>> number>string write bl ]
                [ self-count>> number>text print ] bi
            ] each
        ]
        [
            nip [ count>> ] map-sum
            bl number>chameneos-string print
        ]
    } 2cleave ;