Skip to content

Instantly share code, notes, and snippets.

@NalaGinrut

NalaGinrut/morse.scm

Created September 22, 2014 08:47
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save NalaGinrut/49082c8faf16cb46d8c7 to your computer and use it in GitHub Desktop.
Save NalaGinrut/49082c8faf16cb46d8c7 to your computer and use it in GitHub Desktop.
Download ZIP
Morse coding
Raw
morse.scm
(use-modules (ice-9 rdelim))(define morse '((#\a ".-")(#\b "-...")(#\c "-.-.")(#\d "-..")(#\e ".")(#\f "..-.")(#\g "--.")(#\h "....")(#\i "..")(#\j ".---")(#\k "-.-")(#\l ".-..")(#\m "--")(\
#\n "-.")(#\o "---")(#\p ".--.")(#\q "--.-")(#\r ".-.")(#\s "...")(#\t "-")(#\u "..-")(#\v "...-")(#\w ".--")(#\x "-.--")(#\y "-.--")(#\z "--..")))(for-each (lambda (x) (if (char-alphabetic\
? x)(display (car (assoc-ref morse x))))(display " "))(string->list (string-downcase (read-line (current-input-port)))))(newline)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment