Skip to content

Instantly share code, notes, and snippets.

@mattbaker

mattbaker/engima-encode.racket

Last active August 29, 2015 14:16
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 1 You must be signed in to fork a gist
  • Save mattbaker/f028895ac4b05e0cec23 to your computer and use it in GitHub Desktop.
Save mattbaker/f028895ac4b05e0cec23 to your computer and use it in GitHub Desktop.
Download ZIP
Enigma racket encoding for @ltw
Raw
engima-encode.racket
(define (encode reflector rotor-l rotor-m rotor-r letter)
(list-ref alphabet
(rotor-translate-right (rotate rotor-r 1)
(rotor-translate-right rotor-m
(rotor-translate-right rotor-l
(reflect reflector
(rotor-translate-left rotor-l
(rotor-translate-left rotor-m
(rotor-translate-left (rotate rotor-r 1)
(letter-to-index letter))))))))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment