Zad1

szyfrCezara :: Int -> String -> String
szyfrCezara n = map shiftChar
  where
    literki = ['a'..'z']
    alphaLoop = cycle literki
    shiftChar c = head
        $ drop (length literki + n)
        $ dropWhile (/= c) alphaLoop

:l main.hs



zad2

biemi :: (RealFloat a) => a -> a -> String  
biemi waga wzrost  
    | waga / wzrost ^ 2 <= 18.5 = "Zjedz cos!"  
    | waga / wzrost ^ 2 <= 25.0 = "normalnosc jest overrated"  
    | waga / wzrost ^ 2 <= 30.0 = "grubasek"  
    | otherwise                 = "Moby dick tak na ciebie wolaja"  
	
	
Zad3


pierwiastki a b c = if d < 0 then error "0" else (x, y)
                        where
                          x = e + sqrt d / (2 * a)
                          y = e - sqrt d / (2 * a)
                          d = b * b - 4 * a * c
                          e = - b / (2 * a)
						  
zad 4
listaDzielnik :: Int -> [Int]
listaDzielnik n = [d | d <-[1..n], mod n d ==0]
 
czyPierwsza :: Int -> Bool
czyPierwsza n = if (listaDzielnik n == [1,n]) then True else False