⍝ Conversion to/from Morse code:

    morse 'HELLO WORLD'
┌────┬─┬────┬────┬───┬─┬───┬───┬───┬────┬───┐
│....│.│.-..│.-..│---│/│.--│---│.-.│.-..│-..│
└────┴─┴────┴────┴───┴─┴───┴───┴───┴────┴───┘

    morse morse'ROUND TRIP'
ROUND TRIP

    morse ⎕A
┌──┬────┬────┬───┬─┬────┬───┬────┬──┬────┬───┬────┬──┬──┬───┬────┬────┬───┬───┬─┬───┬────┬───┬────┬────┬────┐
│.-│-...│-.-.│-..│.│..-.│--.│....│..│.---│-.-│.-..│--│-.│---│.--.│--.-│.-.│...│-│..-│...-│.--│-..-│-.--│--..│
└──┴────┴────┴───┴─┴────┴───┴────┴──┴────┴───┴────┴──┴──┴───┴────┴────┴───┴───┴─┴───┴────┴───┴────┴────┴────┘

    morse ⎕D
┌─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┐
│-----│.----│..---│...--│....-│.....│-....│--...│---..│----.│
└─────┴─────┴─────┴─────┴─────┴─────┴─────┴─────┴─────┴─────┘

    morse '.,:?''-/()"@= '
┌──────┬──────┬──────┬──────┬──────┬──────┬─────┬──────┬──────┬──────┬──────┬─────┬─┐
│.-.-.-│--..--│---...│..--..│.----.│-....-│-..-.│-.--.-│-.--.-│.-..-.│.--.-.│-...-│/│
└──────┴──────┴──────┴──────┴──────┴──────┴─────┴──────┴──────┴──────┴──────┴─────┴─┘

    ⍕↑disp∘morse∘ucase¨ 'Samuel' 'Finley' 'Breese' 'Morse'
┌───┬──┬──┬───┬─┬────┐  
│...│.-│--│..-│.│.-..│  
└───┴──┴──┴───┴─┴────┘  
                        
┌────┬──┬──┬────┬─┬────┐
│..-.│..│-.│.-..│.│-.--│
└────┴──┴──┴────┴─┴────┘
                        
┌────┬───┬─┬─┬───┬─┐    
│-...│.-.│.│.│...│.│    
└────┴───┴─┴─┴───┴─┘    
                        
┌──┬───┬───┬───┬─┐      
│--│---│.-.│...│.│      
└──┴───┴───┴───┴─┘      

Back to: code

Back to: Workspaces