zhaw-fup/Exercises/exercise-1/Code/A_Basics.hs

{- Contents
    A short introduction to Haskell;
    The very basics
-}


-----------------------------------------------------------
-- Comments
-----------------------------------------------------------

-- a single line comment

{- a multiline comment
   {- can be nested -}
-}

{- Usually (from now on), we will try to adhere to the
    following convention/structure for multiline comments:
-}

{- Optional "title" of the comment
    Content of the comment possibly spanning multiple lines
    with length <= 60.
-}


-----------------------------------------------------------
-- Simple declarations
-----------------------------------------------------------

{- Declaring a variable
    Generally, in Haskell we define the type of a variable
    in a separate line before we define the variable.
-}

-- 'five' is the integer 5
five :: Integer
five = 5

{-
    'six' is the integer 6. The type 'Integer' can
    accomodate integers of arbitrary size
-}
six :: Integer
six = 6

-- 'four' is the float 4.0
four :: Float
four = 4


-----------------------------------------------------------
---- Numeric operations
-----------------------------------------------------------

seven :: Integer
seven = five + 2

theIntEight :: Integer
theIntEight = 3 + five

theFloatSeven :: Float
theFloatSeven = 3 + four

twentyFour :: Float
twentyFour = 3 * 2 ^ 3

{- Integer division
    'div' denotes integer division. Generally, it is
    possible to write a function between '`' to use infix
    notation. I order to define functions that are
    "natively" infix, you would use brackets '(...)' when
    defining the function/operator.
-}
intSevenByThree :: Integer
intSevenByThree = seven `div` 3

{- Division
    The "normal" division '/' is for "fractional numbers,
    e.g. floats.
-}
floatSevenByThree :: Float
floatSevenByThree = 7 / 3

{- Exercise
    Fill out the types, check your solutions with the REPL.

x :: Integer
x = 2 ^ 3

y :: Float
y = 2.0 ^ 3

a :: Integer
a = x + 5

b :: Float
b = y/2

c :: Does not work
c = y `div` 3
-}


-----------------------------------------------------------
---- Booleans and boolean operations
-----------------------------------------------------------

true :: Bool
true = True

false :: Bool
false = False

alsoTrue :: Bool
alsoTrue = true || false

alsoFalse :: Bool
alsoFalse = true && false

moreTruth :: Bool
moreTruth = not alsoFalse


-----------------------------------------------------------
---- Strings and chars
-----------------------------------------------------------

aChar :: Char
aChar = 'a'

aString :: String
aString = "Happy new year"

greeting :: String
greeting = aString ++ " " ++ "2022"

greeting2 :: String
greeting2 = concat
    [ aString
    , " "
    , "2022"
    ]



{- Warning
    The operators are strongly typed; they can only digest
    values of the same type. The following declarations are
    thus rejected by the type checker:

    aString = "Happy new year"
    greeting = aString ++ " " ++ 2022

    five :: Int
    five = 5
    seven = five + 2.0
-}


-----------------------------------------------------------
---- Lists
-----------------------------------------------------------

{-
    We will often use `List` (linked lists), a generic
    container to hold multiple values of *the same type*.
-}

aListOfStrings :: [String]
aListOfStrings = [ "one", "two", "three" ]

aListOfInts :: [Integer]
aListOfInts = [ 1, 2, 3 ]

{- Exercise
    Fill out the type, check your solutions with the REPL.

    friendGroups :: [[String]]
    friendGroups =
      [ ["Peter", "Anna", "Roman", "Laura"]
      , ["Anna","Reto"]
      , ["Christoph", "Mara", "Andrew"]
      ]
-}

{- List comprehension
    Aside from declaring lists explicitly by writing down
    their element (as shown before), lists can also be
    declared by "list comprehension" and also as "ranges".
-}

someInts :: [Integer]
someInts = [1..15] -- range

someEvens :: [Integer]
someEvens = [ 2*x | x <- [-5..5]]

pairs :: [(Integer, Bool)]
pairs = [ (x,y) | x <- [0..5], y <- [True, False]]

lessThanPairs :: [(Integer,Integer)]
lessThanPairs = [ (x,y)
                  | x <- [0..5]
                  , y <- [0..5]
                  , x < y -- guard
                  , x > 1 -- second guard
                  ]

{- Exercise
    Use list comprehension to declare a list that contains
    all square numbers between 1 and 100.
-}
squares :: [Integer]
squares = [ x*x | x <- [1..10]]

{- Exercise
    Use list comprehension to declare a list that contains
    all  odd square numbers between 1 and 100.
-}
oddSquares :: [Integer]
oddSquares = [ x | x <- squares, x `mod` 2 /= 0 ]