[codeprada]

The Challenge - Morse Code Translator

Design an object that is capable of translating plain text to Morse code and vice versa.

Requirements

• Proper Documentation & Comments
  
• Proper Indentation
  
• Object must implement the following interface
  Spoiler

  <?php
  	interface iMorseCodeTranslator
  	{
  		/**
  		 * @param (string) $text - Plain text that will be converted to morse code
  		 * 
  		 * @return (string) - Morse code string
  		 */
  		public function toMorseCode($text);
  		
  		/**
  		 * @param (string) $morse_code - Morse code that will be converted to plain text
  		 *
  		 * @return (string) - Plain text string
  		 */
  		public function toPlainText($morse_code);
  	}
  ?>
  
  

  
  
• For our convenience name the object MorseCodeTranslator

Deadline
Friday, April 13th, 2012 23:59 GMT

You can submit your code by sending me a personal message with the source. All submissions that meet the above requirements will be featured and the winner(s) will receive a badge.

Morse Code Characters

Spoiler

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 => ----.
. => .-.-/>.-
, => --..--
? => ..--..
' => .----.

N.B. A single space will be used between characters while two spaces between words.

HELLO WORLD
.... . .-.. .-.. ---  .-- --- .-. .-.. -..

This post has been edited by codeprada: 23 March 2012 - 08:24 AM

[snoj]

Can we assume that the Morse code will be formatted with the definition found on Wikipedia?

[codeprada]

snoj, on 23 March 2012 - 10:27 AM, said:

Can we assume that the Morse code will be formatted with the definition found on Wikipedia?

I placed the morse code characters in a spoiler already if it's that you're talking about.

[snoj]

codeprada, on 23 March 2012 - 08:59 AM, said:

snoj, on 23 March 2012 - 10:27 AM, said:

Can we assume that the Morse code will be formatted with the definition found on Wikipedia?

I placed the morse code characters in a spoiler already if it's that you're talking about.

It is not. There's no input delimiter or space character in Morse code. The lack of input for 3 beats indicates a new character and 7 beats is considered a space. For instance, A (.-) can be mistaken for 23 other charters in the map given. E (.), with every one.

[codeprada]

Well for the sake of textually representing the pause between characters it will be a space and two spaces represent the start of a new word. I'll update the post.

[AdamSpeight2008]

Spoiler

VB.net (.net 4.5)

Spoiler

Public Module MorseCode
  Private Morse()() As String = {
  ({"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", "----."}),
  ({".", ".-.-/>.-"}), ({",", "--..--"}), ({"?", "..--.."})}
  '({"",".----."}),

  <Runtime.CompilerServices.Extension()> Public Iterator Function FromMorseCode(s As String) As IEnumerable(Of Char)
    Dim lu = Function(ss As IEnumerable(Of Char))
               Dim ns As New String(ss.ToArray())
               Dim l = (From mc In Morse Where mc(1).Equals(ns) Select mc(0)).FirstOrDefault()
               Return l
             End Function
    Dim en = s.GetEnumerator
    Dim DotsAndDashes As New List(Of Char)
    Dim prev As Char = Nothing
    While en.MoveNext()
      Select Case en.Current
        Case "."c, "-"c : DotsAndDashes.Add(en.Current)
        Case " "c : Yield If(prev <> " ", lu(DotsAndDashes), " "c) : DotsAndDashes.Clear() ' True: Inter-Letter False: Inter-Word gap
        Case Else
      End Select
      prev = en.Current
    End While
    If DotsAndDashes.Count > 0 Then Yield lu(DotsAndDashes)
    DotsAndDashes.Clear()
  End Function

  <Runtime.CompilerServices.Extension()> Public Iterator Function ToMorseCode(s As String) As IEnumerable(Of Char)
    For Each ch In s
      If ch = " " Then
        Yield " "c : Yield " "c    ' Inter-Word Gap
      Else
        Dim cs = (From mc In Morse Where mc(0).Equals(ch) Select mc(1)).FirstOrDefault()
        If cs <> "" Then
          For Each l In cs
            Yield l ' Dot / Dash
          Next
          Yield " " 'Inter-Char gap
        End If
      End If
    Next
  End Function

End Module

[e_i_pi]

The morse code for . is . - . - . -? That's one hell of a cruel joke...

This post has been edited by e_i_pi: 27 March 2012 - 06:13 PM

[hiddenghost]

Well it's kind of like this:
http://www.htmlentit.../html/entities/

[GunnerInc]

Ok, here is my take at it, in Assembly of course. Just whipped up the toMorseCode, I will work on the toPlainText when I get a chance, then I will zip it up and send to you. It is OVERLY commented :P

Spoiler

include masm32rt.inc

.data
;               Alpha
szA             db  ".- ", 0
szB             db  "-... ", 0
szC             db  "-.-. ", 0
szD             db  "-.. ", 0
szE             db  ". ", 0
szF             db  "..-. ", 0
szG             db  "--. ", 0
szH             db  ".... ", 0
szI             db  ".. ", 0
szJ             db  ".--- ", 0
szK             db  "-.- ", 0
szL             db  ".-.. ", 0
szM             db  "-- ", 0
szN             db  "-. ", 0
szO             db  "--- ", 0
szP             db  ".--. ", 0
szQ             db  "--.- ", 0
szR             db  ".-. ", 0
szS             db  "... ", 0
szT             db  "- ", 0
szU             db  "..- ", 0
szV             db  "...- ", 0
szW             db  ".-- ", 0
szX             db  "-..- ", 0
szY             db  "-.-- ", 0
szZ             db  "--.. ", 0
;               Numeric
sz0             db  "----- ", 0
sz1             db  ".---- ", 0
sz2             db  "..--- ", 0
sz3             db  "...-- ", 0
sz4             db  "....- ", 0
sz5             db  "..... ", 0
sz6             db  "-.... ", 0
sz7             db  "--... ", 0
sz8             db  "---.. ", 0
sz9             db  "----. ", 0
;               Special
szDot           db  ".-.-.- ", 0
szComma         db  "--..-- ", 0
szQuestion      db  "..--.. ", 0
szApost         db  ".----. ", 0
szSpace         db  32, 32, 0
szPlainText     db "codeprada PHP Challenge, Morse Code Translator", 0

;               Lookup table - pointers to valid chars
MorseTable      dd 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
                dd 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
                dd offset szSpace,0,0,0,0,0,0,offset szApost,0,0,0,0, offset szComma,0, offset szDot,0
			    dd offset sz0, offset sz1, offset sz2, offset sz3, offset sz4, offset sz5, offset sz6, offset sz7, offset sz8, offset sz9,0,0,0,0,0, offset szQuestion 
			    dd 0,offset szA, offset szB, offset szC, offset szD, offset szE, offset szF, offset szG, offset szH, offset szI, offset szJ, offset szK, offset szL, offset szM, offset szN, offset szO
			    dd offset szP, offset szQ, offset szR, offset szS, offset szT, offset szU, offset szV, offset szW, offset szX, offset szY, offset szZ,0,0,0,0,0
			    dd 0,offset szA, offset szB, offset szC, offset szD, offset szE, offset szF, offset szG, offset szH, offset szI, offset szJ, offset szK, offset szL, offset szM, offset szN, offset szO
			    dd offset szP, offset szQ, offset szR, offset szS, offset szT, offset szU, offset szV, offset szW, offset szX, offset szY, offset szZ,0,0,0,0,0
			    dd 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
			    dd 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
			    dd 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
			    dd 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
			    dd 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
			    dd 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
			    dd 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
			    dd 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
MorseTableSize  equ ($ - MorseTable) /4

.data?
hHeap           dd  ?

.code
MorseCodeTranslator:

    call    GetProcessHeap              ; get handle to our heap
    mov     hHeap, eax                  ; save it

    push    offset szPlainText          ; address of string to convert
    call    toMorseCode                 ; convert the damn thing
    push    eax                         ; pointer to converted text, save it
    
    xor     ebx, ebx                    ; ebx will be used for zero

    push    ebx                         ; 
    push    ebx                         ;
    push    eax                         ; pointer to morse code to display
    push    ebx                         ;
    call    MessageBox                  ; display morse code
    
                                        ; pointer to buffer already on stack
    push    ebx                         ;
    push    hHeap                       ; 
    call    HeapFree                    ; free it
    
    push    ebx
    call    ExitProcess

COMMENT !
#############################################################
toMorseCode - Converts text to morse code

In:     esp + 4 = Pointer to buffer containing string to convert      
Returns:
        Pointer to buffer containing morse code
        **Free with HeapFree when done.
############################################################!    
toMorseCode: 

    mov     esi, [esp + 4]              ; pointer of string to convert
                                        
    push    esi                         ; get size of string
    call    szLen                       ;
    shl     eax, 3                      ; multiply by 8 make sure we have a big enough buffer
                                        
    push    eax                         ; Alloc memory for morse code
    push    HEAP_ZERO_MEMORY            ;
    push    hHeap                       ;
    call    HeapAlloc                   ;
    push    eax                         ; save pointer on stack
    xchg    eax, edi                    ; move pointer to edi
                                        
    lea     ebx, MorseTable             ; load address of our lookup table
ConvertNext:                            
    movzx   eax, byte ptr[esi]          ; get ASCII code for char at current pointer index
    test    eax, eax                    ; see if we are at end of string
    jz      Done                        ; we are, so we are done
    mov     ecx, [ebx + 4 * eax]        ; now get pointer from lookup table, index is ASCII code
    test    ecx, ecx                    ; if zero, not a valid char for challenge
    jz      SkipIt                      ; so we will skip it
                                        
    push    ecx                         ; pointer to morse code
    push    edi                         ; pointer to buffer
    call    szCatStr                    ; append them
                                        
SkipIt:                                 
    inc     esi                         ; increase text pointer
    jmp     ConvertNext                 ; Convert next char
                                        
Done:                                   
    pop     eax                         ; put original morse pointer back in eax for return
    ret     4

And this is the output of my sample string used:

Quote

-.-. --- -.. . .--. .-. .- -.. .- .--. .... .--. -.-. .... .- .-.. .-.. . -. --. . --..-- -- --- .-. ... . -.-. --- -.. . - .-. .- -. ... .-.. .- - --- .-.

[CTphpnwb]

I don't see how that implements the interface.

This post has been edited by CTphpnwb: 04 April 2012 - 06:03 PM

[Duckington]

**REMOVED CODE**

This post has been edited by codeprada: 06 April 2012 - 05:10 AM
Reason for edit:: You were to send your submission in a PM.

[hiddenghost]

How many people have participated so far?

From what I've seen in the non-PHP submissions every one has the same idea.

This post has been edited by hiddenghost: 08 April 2012 - 04:53 PM

[codeprada]

@hiddenghost There are 9 PHP submissions so far.

[GunnerInc]

and one oddball Assembly submission

[hiddenghost]

Cool. I can't wait to see what other people have done.
I'm still learning to code so this is a real learning experience.

It's funny. I have been trying to learn assembly too. It's a long road for me though.
We shall see what happens.
Trying to focus on c++ first.