RosettaCodeData/Task/Hofstadter-Q-sequence/Maple/hofstadter-q-sequence-3.maple
Ingy döt Net db842d013d A-M baby
2013-04-10 21:29:02 -07: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