morse-code-table ( -- value )


Vocabulary
morse

Inputs
None

Outputs
valuean object


Definition
USING: biassocs ;

IN: morse

CONSTANT: morse-code-table
T{ biassoc
{ from
H{
{ 32 "/" }
{ 33 "-.-.--" }
{ 34 ".-..-." }
{ 36 "...-..-" }
{ 38 ".-..." }
{ 39 ".----." }
{ 40 "-.--." }
{ 41 "-.--.-" }
{ 43 ".-.-." }
{ 44 "--..--" }
{ 45 "-....-" }
{ 46 ".-.-.-" }
{ 47 "-..-." }
{ 48 "-----" }
{ 49 ".----" }
{ 50 "..---" }
{ 51 "...--" }
{ 52 "....-" }
{ 53 "....." }
{ 54 "-...." }
{ 55 "--..." }
{ 56 "---.." }
{ 57 "----." }
{ 58 "---..." }
{ 59 "-.-.-." }
{ 61 "-...- " }
{ 63 "..--.." }
{ 64 ".--.-." }
{ 95 "..--.-" }
{ 97 ".-" }
{ 98 "-..." }
{ 99 "-.-." }
{ 100 "-.." }
{ 101 "." }
{ 102 "..-." }
{ 103 "--." }
{ 104 "...." }
{ 105 ".." }
{ 106 ".---" }
{ 107 "-.-" }
{ 108 ".-.." }
{ 109 "--" }
{ 110 "-." }
{ 111 "---" }
{ 112 ".--." }
{ 113 "--.-" }
{ 114 ".-." }
{ 115 "..." }
{ 116 "-" }
{ 117 "..-" }
{ 118 "...-" }
{ 119 ".--" }
{ 120 "-..-" }
{ 121 "-.--" }
{ 122 "--.." }
}
}
{ to
H{
{ "-..-" 120 }
{ ".-.." 108 }
{ "-.--.-" 41 }
{ "--..--" 44 }
{ ".-..." 38 }
{ "--..." 55 }
{ "-.--." 40 }
{ "-" 116 }
{ "." 101 }
{ "/" 32 }
{ ".--." 112 }
{ ".---" 106 }
{ ".--" 119 }
{ ".-." 114 }
{ ".----" 49 }
{ "-....-" 45 }
{ "-.-." 99 }
{ "-.--" 121 }
{ ".-.-." 43 }
{ "--." 103 }
{ "---" 111 }
{ ".-..-." 34 }
{ "...--" 51 }
{ "..." 115 }
{ ".-" 97 }
{ "...." 104 }
{ "..--.-" 95 }
{ "---..." 58 }
{ "..--.." 63 }
{ "-..." 98 }
{ "...-..-" 36 }
{ "..---" 50 }
{ "-...." 54 }
{ "---.." 56 }
{ "-.." 100 }
{ ".." 105 }
{ ".-.-.-" 46 }
{ "--.-" 113 }
{ ".--.-." 64 }
{ "...-" 118 }
{ "--.." 122 }
{ "-.-" 107 }
{ "..-" 117 }
{ "-.-.--" 33 }
{ ".----." 39 }
{ "-.-.-." 59 }
{ "-...- " 61 }
{ "....." 53 }
{ "....-" 52 }
{ "..-." 102 }
{ "-." 110 }
{ "--" 109 }
{ "----." 57 }
{ "-----" 48 }
{ "-..-." 47 }
}
}
} inline