SHARE
TWEET

morse1

sanlyt-modbyt Aug 19th, 2019 84 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. |=  raw=tape
  2. =<
  3. (convert (cuss raw))
  4. |%
  5. ++  convert
  6.   |=  raw=tape
  7.   =/  morse=tape  ~
  8.   |-
  9.   ?~  raw
  10.     morse
  11.   =/  chart  (~(got by table) -:raw)
  12.   $(raw +:raw, morse (weld morse (trip chart)))
  13. ++  table
  14.   %-  my
  15.   :~  :-  'A'  '.-'
  16.       :-  'B'  '-...'
  17.       :-  'C'  '-.-.'
  18.       :-  'D'  '-..'
  19.       :-  'E'  '.'
  20.       :-  'F'  '..-.'
  21.       :-  'G'  '--.'
  22.       :-  'H'  '....'
  23.       :-  'I'  '..'
  24.       :-  'J'  '.---'
  25.       :-  'K'  '-.-'
  26.       :-  'L'  '.-..'
  27.       :-  'M'  '--'
  28.       :-  'N'  '-.'
  29.       :-  'O'  '---'
  30.       :-  'P'  '.--.'
  31.       :-  'Q'  '--.-'
  32.       :-  'R'  '.-.'
  33.       :-  'S'  '...'
  34.       :-  'T'  '-'
  35.       :-  'U'  '..-'
  36.       :-  'V'  '...-'
  37.       :-  'W'  '.--'
  38.       :-  'X'  '-..-'
  39.       :-  'Y'  '-.--'
  40.       :-  'Z'  '--..'
  41.       :-  '0'  '-----'
  42.       :-  '1'  '.----'
  43.       :-  '2'  '..---'
  44.       :-  '3'  '...--'
  45.       :-  '4'  '....-'
  46.       :-  '5'  '.....'
  47.       :-  '6'  '-....'
  48.       :-  '7'  '--...'
  49.       :-  '8'  '---..'
  50.       :-  '9'  '----.'
  51.       :-  ' '  '|'
  52.   ==
  53. --
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top