Seitsmes Praktikum
Näiteülesanded
dialoog
Kirjuta protseduur dialoog, mis küsib kasutajalt nime ja tervitab teda sellega.
dialoog :: IO () dialoog = undefined
listi trükk
Kirjuta funktsioon, mis prindib talle argumendina antud arvude listi. Iga prinditav arv peab tulema eraldi reale. Näiteks:
> prindiArvud1 [1,66,99] 1 66 99
Kirjuta see funktsioon nii lihtrekursiooniga kui ka forM_-abil.
prindiArvud1 :: [Int] -> IO () prindiArvud1 xs = undefined prindiArvud2 :: [Int] -> IO () prindiArvud2 xs = undefined
arvude sisetamine
Kirjuta protseduur, mis esmalt küsib kasutajalt arvu. Kui kasutaja sisestab mittearvu, tuleb veast teatada ning uuesti arvu küsida. Protseduur tagastab edukalt sisestatud arvu.
readMaybe :: Read a => String -> Maybe a
readMaybe xs = f (readsPrec 0 xs)
where f [(n,"")] = Just n
f _ = Nothing
loeArv :: IO Int
loeArv = undefined
Harjutusülesanded
kahe arvu summa
Kirjuta protseduur, mis küsib kasutajalt kaks arvu ning trükib nende summa.
summa2 :: IO () summa2 = undefined
arvude summa
Kirjuta protseduur, mis esmalt küsib arvu x, seejärel loeb x arvu ning lõpuks trükib viimati loetud x arvu summa. Proovige lahendada seda lihtrekursiooniga kui ka kasutades näiteks sequence funktsiooni.
summaN1 :: IO () summaN1 = undefined summaN2 :: IO () summaN2 = undefined
arvu arvamise mäng
Implementeeri klassikalime mäng, mis valib juhusliku arvu (nt. randomRIO-ga, moodulist System.Random; installida stack install random) nullist sajani ning kasutaja peab selle ära arvama. Kasutaja saab pakkuda arve ja programm ütleb, kas pakutud arv on suurem, võrdne või väiksem. Kui vastus on võrdne (s.t. pakutud arv on võrdne juhuslikult valitud arvuga) on mäng läbi ja trükitakse pakkumiste arv.
> m2ng Arva ära täisarv vahemikus nullist sajani! Sisesta number: 50 Ei! Minu number on suurem Sisesta number: 62 Ei! Minu number on väiksem Sisesta number: 61 Ära arvasid! Oligi 61. Pakkusid 3 korda.
m2ng :: IO () m2ng = do
Ülesanded*
m2ngR
Implementeeri arvu äraarvamise mängu pöördversioon, kus kasutaja valib (juhusliku) arvu ja programm püüab seda ära arvata. Programm peaks ära tundma sohitegemise, kui kasutaja on vastanud enesele vasturääivalt.
Rekursiivne kataloogide läbimine
Kasutades funktsioone moodulist System.Directory (http://hackage.haskell.org/package/directory-1.2.1.0/docs/System-Directory.html), implementeeige rekursiivne kataloogi suuruse arvutamise protseduur. Faili suuruse arvutamine teha ette antud funktsiooniga failiSuurus. S.t kataloogi suurusena loeme selles olevate failide suuruste summa pluss alamkataloogide suurus.
import Control.Monad import System.Random import System.Directory import System.IO failiSuurus :: FilePath -> IO Integer failiSuurus path = do s <- withFile path ReadMode hFileSize return s suurusKataloog :: FilePath -> IO Integer suurusKataloog f = undefined