Počítačové zadanie: Haskell - Prázdny trojuholník (zdrojový kód .hs)
Skryť detaily | Obľúbený- Kvalita:78,4 %
- Typ:Počítačové zadanie
- Univerzita:Technická univerzita v Košiciach
- Fakulta:Fakulta elektrotechniky a informatiky
- Kategória:Technika
- Podkategória:Informatika
- Predmet:Funkcionálne programovanie
- Ročník:2. ročník
- Rozsah A4:1 strán
- Zobrazené:1 730 x
- Stiahnuté:10 x
- Veľkosť:0,1 MB
- Formát a prípona:Screen Snapshot (.hs)
- Jazyk:slovenský
- ID projektu:13149
- Posledna úprava:22.10.2020
Haskell - Prázdny trojuholník - zdrojovy kod .hs
-- prazdny trojuholnik --
a :: Int
a = 10
zoznam = [ x | x <- [-1..a-2] ]
riadok (x:xs) | x == -1 = "*" : riadok xs
| x == a - 2 = [copy a '*']
| otherwise = ("*" ++ copy x ' ' ++ "*") : riadok xs
copy n x = take n (repeat x)
prazdnyTrojuholnik = unlines (riadok zoznam)
p1 = putStr prazdnyTrojuholnik
-- pondelkova skupina - uloha --
rjustify n s = space (n - length s) ++ s
space n = [ ' ' | i <- [1..n]]
p2 = putStr (unlines (map (rjustify 20) (lines prazdnyTrojuholnik) ))
...
-- prazdny trojuholnik --
a :: Int
a = 10
zoznam = [ x | x <- [-1..a-2] ]
riadok (x:xs) | x == -1 = "*" : riadok xs
| x == a - 2 = [copy a '*']
| otherwise = ("*" ++ copy x ' ' ++ "*") : riadok xs
copy n x = take n (repeat x)
prazdnyTrojuholnik = unlines (riadok zoznam)
p1 = putStr prazdnyTrojuholnik
-- pondelkova skupina - uloha --
rjustify n s = space (n - length s) ++ s
space n = [ ' ' | i <- [1..n]]
p2 = putStr (unlines (map (rjustify 20) (lines prazdnyTrojuholnik) ))
...
Kľúčové slová: