crack-key ( seq key-length -- key )

Vocabulary

project-euler.059.private

Inputs

seq	an object
key-length	an object

Outputs

key

an object

Definition

USING: grouping kernel sequences ;

IN: project-euler.059.private

: crack-key ( seq key-length -- key )
    [ " " decrypt ] dip group but-last-slice flip
    [ most-frequent ] map ;