Problem:
Score: 600 points

Problem Statement

Takahashi and Aoki are training for long-distance races in an infinitely long straight course running from west to east.

They start simultaneously at the same point and moves as follows towards the east:

Takahashi runs A_1 meters per minute for the first T_1 minutes, then runs at A_2 meters per minute for the subsequent T_2 minutes, and alternates between these two modes forever.

Aoki runs B_1 meters per minute for the first T_1 minutes, then runs at B_2 meters per minute for the subsequent T_2 minutes, and alternates between these two modes forever.

How many times will Takahashi and Aoki meet each other, that is, come to the same point? We do not count the start of the run. If they meet infinitely many times, report that fact.

Constraints

1 \leq T_i \leq 100000

1 \leq A_i \leq 10^{10}

1 \leq B_i \leq 10^{10}

A_1 \neq B_1

A_2 \neq B_2

All values in input are integers.

Input

Input is given from Standard Input in the following format:

T_1 T_2
A_1 A_2
B_1 B_2

Output

Print the number of times Takahashi and Aoki will meet each other.

If they meet infinitely many times, print infinity instead.

Sample Input 1

1 2
10 10
12 4

Sample Output 1

1

They will meet just once, \frac{4}{3} minutes after they start, at \frac{40}{3} meters from where they start.

Sample Input 2

100 1
101 101
102 1

Sample Output 2

infinity

They will meet 101, 202, 303, 404, 505, 606, ... minutes after they start, that is, they will meet infinitely many times.

Sample Input 3

12000 15700
3390000000 3810000000
5550000000 2130000000

Sample Output 3

113

The values in input may not fit into a 32-bit integer type.

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

let () =
    let main () =
        let t1, t2 = Scanf.sscanf (read_line ()) "%d %d" (fun t1 t2 -> t1, t2) in
        let a1, a2 = Scanf.sscanf (read_line ()) "%d %d" (fun a1 a2 -> a1, a2) in
        let b1, b2 = Scanf.sscanf (read_line ()) "%d %d" (fun b1 b2 -> b1, b2) in
        let r =
            if a1 = b1 then (-1) else (
                let m1a = t1 * a1 in
                let m1b = t1 * b1 in
                let m2a = m1a + t2 * a2 in
                let m2b = m1b + t2 * b2 in
                if m2a = m2b then (-1) else
                    if (m1a > m1b && m2a > m2b) || 
                       (m1a < m1b && m2a < m2b) then 0 else (
                           let d1 = t1 * (max a1 b1 - min a1 b1) in
                           let d2 = t2 * (max a2 b2 - min a2 b2) in
                           let rec loop d acc =
                               if d = 0 then acc else
                               if d - d2 > 0 then acc else
                                   if d - d2 + d1 < 0 then acc + 1 else
                                       loop (d - d2 + d1) (acc + 2)
                           in
                           let c = d1 / (d2 - d1) in
                           loop (d1 + (d1 - d2) * c) (2 * c) 
                       )
            )
        in
        if r < 0 then Printf.printf "infinity\n" else Printf.printf "%d\n" r
    in
    main ()