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 https://fugoou.xyz"
}
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 Goto Github PK
Name: Nicko
Type: User
Company: 1.048596
Bio: sigma skibidi toilet
Twitter: Arctixy
Location: Indonesia, Jambi
Blog: himote.xyz