RosettaCodeData/Task/Hofstadter-Q-sequence/Maple/hofstadter-q-sequence-3.maple

> flips := 0:
> for i from 2 to 100000 do
>       if L[ i ] < L[ i - 1 ] then
>               flips := 1 + flips
>       end if
> end do:
> flips;
                                 49798