Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- |= raw=tape
- =<
- (convert (cuss raw))
- |%
- ++ convert
- |= raw=tape
- =/ morse=tape ~
- |-
- ?~ raw
- morse
- =/ chart (~(got by table) -:raw)
- $(raw +:raw, morse (weld morse (trip chart)))
- ++ table
- %- my
- :~ :- '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' '--..'
- :- '0' '-----'
- :- '1' '.----'
- :- '2' '..---'
- :- '3' '...--'
- :- '4' '....-'
- :- '5' '.....'
- :- '6' '-....'
- :- '7' '--...'
- :- '8' '---..'
- :- '9' '----.'
- :- ' ' '|'
- ==
- --
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement