module Main where data Person = Person { name :: String , hobby :: [String] , status :: String , origin :: String , quote :: String , socialNetwork :: String } shiro :: Person shiro = Person { name = "Shiro Kageyama" , hobby = ["Watching Anime", "Reading Manga", "Playing ML"] , status = "Student" , origin = "Indonesia" , quote = "Being silent doesn't mean being resistant to defecation." } main :: IO () main = do putStrLn $ "Hello, I'm " ++ name shiro ++ "." putStrLn $ "I am a " ++ status shiro ++ " from " ++ origin shiro ++ "." putStrLn "My Hobbies include:" mapM_ putStrLn $ map (\h -> "- " ++ h) (hobby shiro) putStrLn $ "One of my favorite quotes: \"" ++ quote shiro ++ "\"" putStrLn $ "Let's connect on my social network: " ++ socialNetwork shiro
shiroxzgod / ezscrape Goto Github PK
View Code? Open in Web Editor NEWScrape proxies easily
License: GNU General Public License v2.0