16 lines
422 B
Plaintext
16 lines
422 B
Plaintext
Qflips := proc( n )
|
|
local a := Array( 1 .. n );
|
|
a[ 1 ] := 1;
|
|
a[ 2 ] := 1;
|
|
for local i from 3 to n do
|
|
a[ i ] := a[ i - a[ i - 1 ] ] + a[ i - a[ i - 2 ] ]
|
|
end do;
|
|
local flips := 0;
|
|
for i from 2 to n do
|
|
if a[ i ] < a[ i - 1 ] then
|
|
flips := 1 + flips
|
|
end if
|
|
end do;
|
|
flips
|
|
end proc:
|