transposes ( word -- edits )


Vocabulary
spelling

Inputs
wordan object


Outputs
editsan object


Definition
USING: kernel math ranges sequences sequences.private ;

IN: spelling

: transposes ( word -- edits )
[ length [1..b) ] keep [ [ dup 1 - ] ] dip
[ clone [ exchange-unsafe ] keep ] curry compose map ;