A-M baby

2013-04-10 21:29:02 -07:00 · 2013-04-10 21:29:02 -07:00 · db842d013d
commit db842d013d
parent 764da6cbbb
19005 changed files with 197040 additions and 7 deletions
--- a/Task/Morse-code/J/morse-code-1.j
+++ b/Task/Morse-code/J/morse-code-1.j
@ -0,0 +1,9 @@
+require'strings media/wav'
+morse=:[:; [:(' ',~' .-' {~ 3&#.inv)&.> (_96{.".0 :0-.LF) {~ a.&i.@toupper
+ 79 448 0 1121 0 0 484 214 644 0 151 692 608 455 205 242 161 134 125 122
+ 121 202 229 238 241 715 637 0 203 0 400 475 5 67 70 22 1 43 25 40 4 53
+ 23 49 8 7 26 52 77 16 13 2 14 41 17 68 71 76 214 0 644 0 401
+)
+
+onoffdur=: 0.01*100<.@*(1.2%[)*(4 4#:2 5 13){~' .-'i.]
+playmorse=: 30&$: :((wavnote&, 63 __"1)@(onoffdur morse))
--- a/Task/Morse-code/J/morse-code-2.j
+++ b/Task/Morse-code/J/morse-code-2.j
@ -0,0 +1,6 @@
+   morse'this is an example'
+- .... .. ...   .. ...   .- -.   . -..- .- -- .--. .-.. .
+   playmorse'this is an example'
+1
+   12 playmorse'as is this'
+1