1_1.hs

-- lookup: 
-- function composition (can i run function composition directly with arguments)

main = do
    contents <- getContents
    -- [10, 18, 17, 20, 15, 23, 24]
    -- [18, 17, 20, 15, 23, 24]
    -- [x   y   n   y   n   y   y]

    let contentList = words contents
    let integerList = map strToInt contentList
    let controlRow = init integerList
    let diffRow = tail integerList
    let compute = diff controlRow diffRow

    let foundPositive = filter (>0) compute
    
    print (length foundPositive)
    return ()

diff :: Num a => [a] -> [a] -> [a]
diff [] _ = [0]
diff _ [] = [0]
diff (x:xs) (y:ys) = (y-x) : diff xs ys

strToInt str = read str :: Int