0049_Problem_1.hs

-- code_report Solution
-- Problem Link (Contest):  https://leetcode.com/contest/leetcode-weekly-contest-49/problems/longest-continuous-increasing-subsequence/
-- Problem Link (Practice): https://leetcode.com/problems/longest-continuous-increasing-subsequence/

import Data.List.HT (groupBy)

findLengthOfLCIS :: [Int] -> Int
findLengthOfLCIS = maximum 
                 . map length 
                 . groupBy (<)