Guest User

Untitled

a guest
Aug 25th, 2019
80
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. :: the comment ":: code belongs here" indicates that one or more lines of code are needed to make this section of the program work.
  2.  
  3. |= raw=tape
  4. =< (convert raw)
  5. |%
  6. ++ convert
  7. %+ turn tape
  8. |= letter=@t
  9. ^- @t
  10. (~(got by table) letter)
  11. ++ table
  12. %- my
  13. :~ :- 'A' '.-'
  14. :- 'B' '-...'
  15. :- 'C' '-.-.'
  16. :- 'D' '-..'
  17. :- 'E' '.'
  18. :- 'F' '..-.'
  19. :- 'G' '--.'
  20. :- 'H' '....'
  21. :- 'I' '..'
  22. :- 'J' '.---'
  23. :- 'K' '-.-'
  24. :- 'L' '.-..'
  25. :- 'M' '--'
  26. :- 'N' '-.'
  27. :- 'O' '---'
  28. :- 'P' '.--.'
  29. :- 'Q' '--.-'
  30. :- 'R' '.-.'
  31. :- 'S' '...'
  32. :- 'T' '-'
  33. :- 'U' '..-'
  34. :- 'V' '...-'
  35. :- 'W' '.--'
  36. :- 'X' '-..-'
  37. :- 'Y' '-.--'
  38. :- 'Z' '--..'
  39. :- '0' '-----'
  40. :- '1' '.----'
  41. :- '2' '..---'
  42. :- '3' '...--'
  43. :- '4' '....-'
  44. :- '5' '.....'
  45. :- '6' '-....'
  46. :- '7' '--...'
  47. :- '8' '---..'
  48. :- '9' '----.'
  49. ==
  50. --
RAW Paste Data