Please note, this is a STATIC archive of website www.tutorialspoint.com from 11 May 2019, cach3.com does not collect or store any user information, there is no "phishing" involved.
import Data.Maybe
main :: IO()
main
= putStrLn(show(encode "ABC"))
{-Question 1: Morse Code-}
{-1.1-}
type Morse = [MorseVal]
data MorseVal = DOT | DASH | GAP deriving (Show)
dict :: [(Char, Morse)]
dict
= [('A', m ".-"), ('B', m "-..."), ('C', m "-.-."),
('D', m "-.."), ('E', m "."), ('F', m "..-."),
('G', m "--."), ('H', m "...."), ('I', m ".."),
('J', m ".---"), ('K', m "-.-"), ('L', m ".-.."),
('M', m "--"), ('N', m "-."), ('O', m "---"),
('P', m ".--."), ('Q', m "--.-"), ('R', m ".-."),
('S', m "..."), ('T', m "-"), ('U', m "..-"),
('V', m "...-"), ('W', m ".--"), ('X', m "-..-"),
('Y', m "-.--"), ('Z', m "--..")]
where m = map toWord
toWord '.' = DOT
toWord '-' = DASH
{-1.2-}
encode :: [Char] -> Morse
encode [] = []
encode (x:xs)
= fromJust(lookup x dict) ++ [GAP] ++ encode xs
{-1.3-}
{-Question 2: Suko-}
suko :: [Int] -> [Int]
suko [] = []
suko {-filter???-}
{-Question 3: Transform-}
Advertisements
We use cookies to provide and improve our services. By using our site, you consent to our Cookies Policy.
AcceptLearn more