2Demetrio

Ну, сами напросились! Have a nice bugz!

(defparameter morse-chars '(
(".-" "A") ("-..." "Б") (".--" "В") ("--." "Г") ("-.." "Д") ("." "Е")
("...-" "Ж") ("--.." "З") (".." "И") (".---" "Й") ("-.-" "К") (".-.." "Л")
("--" "М") ("-." "H") ("---" "О") (".--." "П") (".-." "P") ("..." "С")
("-" "Т") ("..-" "У") ("..-." "Ф") ("...." "Х") ("-.-." "Ц") ("---." "Ч")
("----" "Ш") ("--.-" "Щ") ("-..-" "Ь") ("-.--" "Ы") ("..-.." "Э") ("..--" "Ю")
(".-.-" "Я") (".----" "1") ("..---" "2") ("...--" "3") ("....-" "4") ("....." "5")
("-...." "6") ("--..." "7") ("---.." "8") ("----." "9") ("-----" "0") ("......" ".")
(".-.-.-" ",") ("-..-." "/") ("..--.." "?") ("--..--" "!") ("-...-" "|") 
 ("......." "\\") ("......." "\\") (".--.-." "@")))

(defun type-morse-char (w &optional (s morse-chars))
    (let ((c (first s)))
    (cond
        ((null s) (format t "<unknown>"))
        ((equal w (first c)) (format t "~A" (first (rest c))))
        (t (type-morse-char w (rest s)))))) 
        
(defun morse (s &optional (w ""))
    (let ((c (read-char s nil)))
    (cond
        ((null c) nil)
        ((or (eq c #\.) (eq c #\-)) (morse s (concatenate 'string w (string c))))
        ((equal "" w) (morse s))
        (t (progn (type-morse-char w) (morse s))))))
        
(morse *standard-input*)

Лисп тру, но на Питоне всё равно короче. =)

#!/usr/bin/env python
#vim:fileencoding=utf-8

from sys import stdin

morse_chars = {
".-":     "A", "-...":   "Б", ".--":     "В", "--.":     "Г", "-..":     "Д",
".":      "Е", "...-":   "Ж", "--..":    "З", "..":      "И", ".---":    "Й",
"-.-":    "К", ".-..":   "Л", "--":      "М", "-.":      "H", "---":     "О",
".--.":   "П", ".-.":    "P", "...":     "С", "-":       "Т",  "..-":    "У",
"..-.":   "Ф", "....":   "Х", "-.-." :   "Ц", "---.":    "Ч", "----":    "Ш",
"--.-":   "Щ", "-..-":   "Ь", "-.--" :   "Ы", "..-..":   "Э", "..--":    "Ю",
".-.-":   "Я", ".----":  "1", "..---":   "2", "...--":   "3", "....-":   "4",
".....":  "5", "-....":  "6", "--...":   "7", "---..":   "8", "----.":   "9",
"-----":  "0", "......": ".", ".-.-.-":  ",", "-..-.":   "/", "..--..":  "?",
"--..--": "!", "-...-":  "|", ".......": "\\",".......": "\\", ".--.-.": "@",
}

for line in stdin:
    for word in line.split('/'):
        print "".join(morse_chars.get(char, '<unknown>') for char in word.split()),

Ну, вообще в морзянке для пробелов меж словами вроде нету 
стандартных стредствов, но еслихош... Вот версия укороченая и поправленая:

(defparameter morse-chars '(
(".-" "A") ("-..." "Б") (".--" "В") ("--." "Г") ("-.." "Д") ("." "Е")
("...-" "Ж") ("--.." "З") (".." "И") (".---" "Й") ("-.-" "К") (".-.." "Л")
("--" "М") ("-." "H") ("---" "О") (".--." "П") (".-." "P") ("..." "С")
("-" "Т") ("..-" "У") ("..-." "Ф") ("...." "Х") ("-.-." "Ц") ("---." "Ч")
("----" "Ш") ("--.-" "Щ") ("-..-" "Ь") ("-.--" "Ы") ("..-.." "Э") ("..--" "Ю")
(".-.-" "Я") (".----" "1") ("..---" "2") ("...--" "3") ("....-" "4") ("....." "5")
("-...." "6") ("--..." "7") ("---.." "8") ("----." "9") ("-----" "0") ("......" ".")
(".-.-.-" ",") ("-..-." "/") ("..--.." "?") ("--..--" "!") ("-...-" "|")
("......." "\\") ("......." "\\") (".--.-." "@")))

(defparameter valid-morse '(#\. #\-))

(defun morse (s &optional (w ""))
    (let ((c (read-char s nil)))
    (cond
        ((null c) nil)
        ((find c valid-morse) (morse s (concatenate 'string w (string c))))
        ((equal "" w) (when (eq #\/ c) (format t " ")) (morse s))
        (t ((lambda (x) (format t "~A" (if (null x) "<unknown>" (first (rest x)))))
            (assoc-if #'(lambda (x) (string= x w)) morse-chars)) (morse s)))))

(morse *standard-input*)

> сочинять многоцелевой транслятор с армейской дуракоустойчивостью.

Значит питон для этого малопригоден? Жаль, я уж было собрался выучить...

#!/usr/bin/env python
#vim:fileencoding=utf-8

from sys import stdin
import re

morse_chars = {
".-":     "A", "-...":   "Б", ".--":     "В", "--.":     "Г", "-..":     "Д",
".":      "Е", "...-":   "Ж", "--..":    "З", "..":      "И", ".---":    "Й",
"-.-":    "К", ".-..":   "Л", "--":      "М", "-.":      "H", "---":     "О",
".--.":   "П", ".-.":    "P", "...":     "С", "-":       "Т",  "..-":    "У",
"..-.":   "Ф", "....":   "Х", "-.-." :   "Ц", "---.":    "Ч", "----":    "Ш",
"--.-":   "Щ", "-..-":   "Ь", "-.--" :   "Ы", "..-..":   "Э", "..--":    "Ю",
".-.-":   "Я", ".----":  "1", "..---":   "2", "...--":   "3", "....-":   "4",
".....":  "5", "-....":  "6", "--...":   "7", "---..":   "8", "----.":   "9",
"-----":  "0", "......": ".", ".-.-.-":  ",", "-..-.":   "/", "..--..":  "?",
"--..--": "!", "-...-":  "|", ".......": "\\",".......": "\\", ".--.-.": "@",
}
morse_char = re.compile('[.-]+')

for line in stdin:
    for word in line.split('/'):
        print ''.join(morse_chars.get(char, '<unknown>')
                 for char in morse_char.findall(word)),

PS На перле, наверно, ещё короче получится. :) Хоть я его и не люблю.