rotate ( ch base -- ch )


Vocabulary
rot13

Inputs
chan object
basean object


Outputs
chan object


Definition
USING: kernel math ;

IN: rot13

: rotate ( ch base -- ch ) [ - 13 + 26 mod ] [ + ] bi ;