52 lines
1.1 KiB
Plaintext
52 lines
1.1 KiB
Plaintext
:: the comment ":: code belongs here" indicates that one or more lines of code are needed to make this section of the program work.
|
|
|
|
|= raw=tape
|
|
=<
|
|
:: code belongs here
|
|
|%
|
|
++ convert
|
|
:: code belongs here
|
|
:: (~(got by a) b) produces the value located at key b within map a
|
|
=/ chart ~(got by table)
|
|
:: code belongs here
|
|
++ 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' '----.'
|
|
==
|
|
--
|