Загрузочный экран с режима «Deep Dive» игры Deep Rock Galactic.
Код с видео, дабы проникнуться:
module Main where
multiply :: Int -> Int -> Int
--Объявляем функцию
multiply x1 x2 = x1 * x2
--Определяем функцию
main = do
putStrLn ("Скажи имя, пикабушник")
name <- getLine --Пикабушник
putStrLn ("Привет, пикабушник " ++ name)
putStrLn "Результат умножения:"
print $ multiply 10 5
--вызываем функцию multiply
Желающие попробовать код ставим stack
https://docs.haskellstack.org/en/stable/README/
И запускаем через stack ghci main.hs
@moderator, Прошу добавить в IT-юмор , не хватает рейтинга