FP Laboratory 12/cs - Revision history

Beh01: Created page with "Alternativně můžete použít:"

2021-12-06T12:53:37Z

Created page with "Alternativně můžete použít:"

Beh01: Created page with "Na konci práce se souborem, by měl být soubor uzavřen:"

2021-12-06T12:53:22Z

Created page with "Na konci práce se souborem, by měl být soubor uzavřen:"

Beh01: Created page with "Získaný `Handle` může být použit pro práci se souborem. Funkce, která přečte obsah souboru:"

2021-12-06T12:52:23Z

Created page with "Získaný <code>Handle</code> může být použit pro práci se souborem. Funkce, která přečte obsah souboru:"

Beh01: Created page with "Při řešení se podívejte na:"

2021-12-06T12:51:20Z

Created page with "Při řešení se podívejte na:"

FuzzyBot: Updating to match new version of source page

2021-12-06T12:50:48Z

Updating to match new version of source page

Fai0013: Created page with "== Práce se soubody - monáda IO == * Implementujte program, který načte soubor a počet jeho řádku a následně jej vypíše na obrazovku."

2021-10-21T11:01:03Z

Created page with "== Práce se soubody - monáda IO == * Implementujte program, který načte soubor a počet jeho řádku a následně jej vypíše na obrazovku."

Fai0013: Created page with "FP Cvičení 12"

2021-10-21T10:59:48Z

Created page with "FP Cvičení 12"

New page

== Working with files - monad IO ==
* Create a program that reads a file and number it's lines and writes it on the screen.

<div class="mw-collapsible mw-collapsed" data-collapsetext="Hide solution" data-expandtext="Show solution">
<syntaxhighlight lang="Haskell">
import System.IO
import Control.Exception

main = do fromHandle <- opf "Read from: " ReadMode
contents <- hGetContents fromHandle
putStr (numberLines contents)
hClose fromHandle

opf :: String -> IOMode -> IO Handle
opf prompt mode = do putStr prompt
name <- getLine
catch (openFile name mode )
(\e -> do putStr ("Can't open "++name++":"++show (e :: IOException) ++"\n")
opf prompt mode)

numberLines::String -> String
numberLines text = let l = lines text
numbered = zip [1..] l
result = [show x ++".\t"++content++"\n" | (x, content)<-numbered]
in concat result
</syntaxhighlight>
</div>
<div style="clear:both"></div>

@@ Line 8: / Line 8: @@
 Na konci práce se souborem, by měl být soubor uzavřen: [https://hackage.haskell.org/package/base-4.16.0.0/docs/System-IO.html#v:hClose <code>hClose :: Handle -> IO ()</code>]
-Alternatively you can use : [https://hackage.haskell.org/package/base-4.16.0.0/docs/Prelude.html#v:readFile <code>readFile :: FilePath -> IO String</code>]
+Alternativně můžete použít: [https://hackage.haskell.org/package/base-4.16.0.0/docs/Prelude.html#v:readFile <code>readFile :: FilePath -> IO String</code>]
 </div>

@@ Line 6: / Line 6: @@
 Získaný <code>Handle</code> může být použit pro práci se souborem. Funkce, která přečte obsah souboru: [https://hackage.haskell.org/package/base-4.16.0.0/docs/System-IO.html#v:hGetContents <code>hGetContents :: Handle -> IO String</code>]
-At the end, you should close the opened file handle: [https://hackage.haskell.org/package/base-4.16.0.0/docs/System-IO.html#v:hClose <code>hClose :: Handle -> IO ()</code>]
+Na konci práce se souborem, by měl být soubor uzavřen: [https://hackage.haskell.org/package/base-4.16.0.0/docs/System-IO.html#v:hClose <code>hClose :: Handle -> IO ()</code>]
 Alternatively you can use : [https://hackage.haskell.org/package/base-4.16.0.0/docs/Prelude.html#v:readFile <code>readFile :: FilePath -> IO String</code>]

@@ Line 4: / Line 4: @@
 Při řešení se podívejte na: [https://hackage.haskell.org/package/base-4.16.0.0/docs/System-IO.html#v:openFile <code>openFile :: FilePath -> IOMode -> IO Handle</code>]
-The <code>Handle</code> can used to work with a file. The function to read a content: [https://hackage.haskell.org/package/base-4.16.0.0/docs/System-IO.html#v:hGetContents <code>hGetContents :: Handle -> IO String</code>]
+Získaný <code>Handle</code> může být použit pro práci se souborem. Funkce, která přečte obsah souboru: [https://hackage.haskell.org/package/base-4.16.0.0/docs/System-IO.html#v:hGetContents <code>hGetContents :: Handle -> IO String</code>]
 At the end, you should close the opened file handle: [https://hackage.haskell.org/package/base-4.16.0.0/docs/System-IO.html#v:hClose <code>hClose :: Handle -> IO ()</code>]

@@ Line 2: / Line 2: @@
 * Implementujte program, který načte soubor a počet jeho řádku a následně jej vypíše na obrazovku.
 <div>
-For the solution look at: [https://hackage.haskell.org/package/base-4.16.0.0/docs/System-IO.html#v:openFile <code>openFile :: FilePath -> IOMode -> IO Handle</code>]
+Při řešení se podívejte na: [https://hackage.haskell.org/package/base-4.16.0.0/docs/System-IO.html#v:openFile <code>openFile :: FilePath -> IOMode -> IO Handle</code>]
 The <code>Handle</code> can used to work with a file. The function to read a content: [https://hackage.haskell.org/package/base-4.16.0.0/docs/System-IO.html#v:hGetContents <code>hGetContents :: Handle -> IO String</code>]

@@ Line 1: / Line 1: @@
 == Práce se soubody - monáda IO ==
 * Implementujte program, který načte soubor a počet jeho řádku a následně jej vypíše na obrazovku.
 <div class="mw-collapsible mw-collapsed" data-collapsetext="Hide solution" data-expandtext="Show solution">