RosettaCodeData/Task/Hofstadter-Q-sequence/Maple/hofstadter-q-sequence-3.maple
2023-07-01 13:44:08 -04:00

8 lines
186 B
Text

> 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