module Main where data Person = Person { name :: String , hobby :: [String] , status :: String , origin :: String , quote :: String , socialNetwork :: String } fugoou :: Person fugoou = Person { name = "Nicko Fajar" , hobby = ["Watching Anime", "Reading Manga", "Reading Novel"] , status = "Student" , origin = "Indonesia" , quote = "Nothing is easy, but nothing is impossible." , socialNetwork = "Connect with me on http://my.social-networking.me" } main :: IO () main = do putStrLn $ "Hello, I'm " ++ name fugoou ++ "." putStrLn $ "I am a " ++ status fugoou ++ " from " ++ origin fugoou ++ "." putStrLn "My Hobbies include:" mapM_ putStrLn $ map (\h -> "- " ++ h) (hobby fugoou) putStrLn $ "One of my favorite quotes: \"" ++ quote fugoou ++ "\"" putStrLn $ "Let's connect on my social network: " ++ socialNetwork fugoou
fugoou / optimize Goto Github PK
View Code? Open in Web Editor NEWTweaks Android Using Adb Shell
License: Apache License 2.0