fill-*-with-ones ( str -- str )

Vocabulary

project-euler.051.private

Inputs

str

an object

Outputs

str

an object

Definition

USING: kernel sequences ;

IN: project-euler.051.private

: fill-*-with-ones ( str -- str )
    [ dup 42 = [ drop 49 ] when ] map ;