euler017 ( -- answer )

Vocabulary

project-euler.017

Inputs

None

Outputs

answer

an object

Definition

USING: ascii kernel math.text.english ranges sequences ;

IN: project-euler.017

: euler017 ( -- answer )
    1000 [1..b] SBUF" " clone [ number>text append! ] reduce
    [ Letter? ] count ;