tA/Hoon101
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

week5 done

Browse Source
This commit is contained in:
Thorn Avery 2019-08-12 13:31:37 +12:00
parent 1aed5df049
commit 016dc8728d
1 changed files with 19 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
week5/morse.hoon
View File

@ -1,14 +1,27 @@
:: the comment ":: code belongs here" indicates that one or more lines of code are needed to make this section of the program work. :: 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 |= raw=tape
=< =<
:: code belongs here =. raw (cuss raw)
(convert raw)
|% |%
:: the latest and greatest rapper
++ mcelem
|= l=@t
?|
&((gte l 'A') (lte l 'Z'))
&((gte l '0') (lte l '9'))
==
++ convert ++ convert
:: code belongs here |= m=tape
:: (~(got by a) b) produces the value located at key b within map a ^- tape
=/ chart ~(got by table) %- zing
:: code belongs here %+ turn m
|= l=@t
?: =(l ' ')
"[_]"
?: (mcelem l)
~[' ' (~(got by table) l) ' ']
~['[' l ']']
++ table ++ table
%- my %- my
:~ :- 'A' '.-' :~ :- 'A' '.-'