Показать сообщение отдельно
  #12  
Старый 03.08.2012, 08:50
Pyro Pyro вне форума
Так проходящий
 
Регистрация: 18.07.2011
Сообщения: 805
Версия Delphi: 7Lite
Репутация: 6063
По умолчанию

на руби:
Код:
LETTER = Hash[*%w"
  A .-   N -.
  B -... O ---
  C -.-. P .--.
  D -..  Q --.-
  E .    R .-.
  F ..-. S ...
  G --.  T -
  H .... U ..-
  I ..   V ...-
  J .--- W .--
  K -.-  X -..-
  L .-.. Y -.--
  M --   Z --..
"]

MORSE = LETTER

def morse text
  text.upcase.chars.map { |char| MORSE[char] or unknown(char) }.join
end

def unknown char
  "(#{ char })"
end

raise unless morse('Sofia') == '...---..-....-'
raise unless morse('123')   == '(1)(2)(3)'

Hash[*%w"....."] - эта магия разбивает текст по пробелам и переносам строки(регулярным выражением) в одномерный массив, и создаёт отображение нечётных его элементов на чётные
__________________
>woweook<
Ответить с цитированием