decrypt ( seq key -- seq )

Vocabulary

project-euler.059.private

Inputs

seq	an object
key	an object

Outputs

seq

an object

Definition

USING: kernel math sequences ;

IN: project-euler.059.private

: decrypt ( seq key -- seq )
    over length <rollover> swap [ bitxor ] 2map ;