Haskell: Привет, Мир!

Изучать язык программирования, по традиции, начинают с программы 'Hello, World!', которая выводит этот текст на экран.

Hello, World!

Задание

Наберите в редакторе код из задания символ в символ и нажмите «Проверить».

module Solution where

main :: IO ()
main = putStrLn "Hello, World!"

Как с вами связаться? 🙃

Команда проекта находится в телеграм-сообществе. Там можно задать любой вопрос и повлиять на проект

Упражнение не проходит проверку — что делать? 😶

В моей среде код работает, а здесь нет 🤨

Мой код отличается от решения учителя 🤔

Прочитал урок — ничего не понятно 🙄

Нашли ошибку? Есть что добавить? Пулреквесты приветствуются

Следующий →

Loading...

Следующий →

Ваше упражнение проверяется по этим тестам

module Main where

import Control.Exception (Exception(..))
import GHC.IO
import GHC.IO.Handle
import System.IO

import Test.Hspec

import qualified Solution

main :: IO ()
main = hspec $ do
  describe "Solution" $ do
    it "prints a text" $ do
      Solution.main `shouldPrint` ["Hello, World!"]

shouldPrint :: IO () -> [String] -> Expectation
shouldPrint action expectedLines = do
  (mbError, output) <- withTempFile $ \handle ->
    withCapturingTo handle $ catching action
  putStrLn "--- OUTPUT ---"
  putStr output
  putStrLn "--------------"
  case mbError of
    Nothing -> lines output `shouldBe` expectedLines
    Just err -> do
      hPutStrLn stderr "=== ERROR ===="
      hPutStrLn stderr err
      hPutStrLn stderr "=============="
      expectationFailure "There was an error"

catching :: IO () -> IO (Maybe String)
catching action =
  (Nothing <$ action) `catchAny` (pure . Just . displayException)

withCapturingTo :: Handle -> IO a -> IO a
withCapturingTo handle =
  bracket
    (hDuplicate stdout <* hDuplicateTo handle stdout)
    (\old -> hDuplicateTo old stdout)
    . const

withTempFile :: (Handle -> IO a) -> IO (a, String)
withTempFile body = do
  (path, handle) <- openTempFile "/tmp" "output.txt"
  result <- body handle `finally` hClose handle
  content <- readFile path
  pure (result, content)

Следующий →

Решение учителя откроется через:

20:00

Следующий →