1. Zad1
2.  
3. szyfrCezara :: Int -> String -> String
4. szyfrCezara n = map shiftChar
5.   where
6.     literki = ['a'..'z']
7.     alphaLoop = cycle literki
8.     shiftChar c = head
9.         $ drop (length literki + n)
10.         $ dropWhile (/= c) alphaLoop
11.  
12. :l main.hs
13.  
14.  
15.  
16. zad2
17.  
18. biemi :: (RealFloat a) => a -> a -> String  
19. biemi waga wzrost  
20.     | waga / wzrost ^ 2 <= 18.5 = "Zjedz cos!"  
21.     | waga / wzrost ^ 2 <= 25.0 = "normalnosc jest overrated"  
22.     | waga / wzrost ^ 2 <= 30.0 = "grubasek"  
23.     | otherwise                 = "Moby dick tak na ciebie wolaja"  
24.        
25.        
26. Zad3
27.  
28.  
29. pierwiastki a b c = if d < 0 then error "0" else (x, y)
30.                         where
31.                           x = e + sqrt d / (2 * a)
32.                           y = e - sqrt d / (2 * a)
33.                           d = b * b - 4 * a * c
34.                           e = - b / (2 * a)
35.                                                  
36. zad 4
37. listaDzielnik :: Int -> [Int]
38. listaDzielnik n = [d | d <-[1..n], mod n d ==0]
39.  
40. czyPierwsza :: Int -> Bool
41. czyPierwsza n = if (listaDzielnik n == [1,n]) then True else False