digits-positions ( str -- positions )

Vocabulary

project-euler.051.private

Inputs

str

an object

Outputs

positions

an object

Definition

USING: assocs kernel sequences ;

IN: project-euler.051.private

: digits-positions ( str -- positions )
    H{ } clone
    [ [ [ swap ] ] dip [ push-at ] curry compose each-index ]
    keep ;