Problem:
Score : 200 points

Problem Statement

There are N mountains ranging from east to west, and an ocean to the west.

At the top of each mountain, there is an inn. You have decided to choose where to stay from these inns.

The height of the i-th mountain from the west is H_i.

You can certainly see the ocean from the inn at the top of the westmost mountain.

For the inn at the top of the i-th mountain from the west (i = 2, 3, ..., N), you can see the ocean if and only if H_1 \leq H_i, H_2 \leq H_i, ..., and H_{i-1} \leq H_i.

From how many of these N inns can you see the ocean?

Constraints

All values in input are integers.

1 \leq N \leq 20

1 \leq H_i \leq 100

Input

Input is given from Standard Input in the following format:

N
H_1 H_2 ... H_N

Output

Print the number of inns from which you can see the ocean.

Sample Input 1

4
6 5 6 8

Sample Output 1

3

You can see the ocean from the first, third and fourth inns from the west.

Sample Input 2

5
4 5 3 5 4

Sample Output 2

3

Sample Input 3

5
9 5 6 8 4

Sample Output 3

1

Solution in OCaml (4.02.3) (judge verdict: Accepted)

(* O(n) (n = length of list) *)
let rec list_find_fold_left f a = function
| [] -> a, false
| x :: xs ->
  let res, detected = f a x in
  if detected then
    res, detected
  else
    list_find_fold_left f res xs

(* O(n) *)
let can_view i h hs =
  list_find_fold_left
    (fun (res, j) h' ->
      if j >= i then
        (true, j), true
      else
        if h' > h then
          (res, j), true
        else
          (res, j + 1), false)
    (false, 0)
    hs |> fst |> fst

(* O(n^2) *)
let solve n hs =
  List.fold_left
    (fun (count, i) h ->
      if can_view i h hs then
        count + 1, i + 1
      else
        count, i + 1)
    (0, 0)
    hs |> fst

let read_ints () = read_line () |> Str.split (Str.regexp " ") |> List.map int_of_string

let _ =
  let n = read_int () in
  let hs = read_ints () in
  solve n hs |> string_of_int |> print_endline