unix-factor ( string -- )

Vocabulary

math.primes.factors

Inputs

string

an object

Outputs

None

Definition

USING: io kernel math.parser sequences splitting ;

IN: math.primes.factors

: unix-factor ( string -- )
    dup string>number [
        [ ": " append write ]
        [ factors [ number>string ] map join-words print ] bi*
    ] [
        "factor: `" "' is not a valid positive integer" surround
        print
    ] if* flush ;