Algoritm 1

Algorithm Algo(n)
  For i ← 1, n execute v[i] ← i − 1 EndFor
  For i ← n, 2 execute
    j ← (i − 1) & ((i − 1) − 1)
    aux ← v[i]; v[i] ← v[j + 1]; v[j + 1] ← aux
  EndFor
  Return v
EndAlgorithm

Algoritm 2

Algorithm ceFace(n)
  p ← Algo(n)
  suma ← 0
  For i ← 1, n execute
    If (p[i] & (i − 1)) = (i − 1) then
      suma ← suma + 1
    EndIf
  EndFor
  Return suma
EndAlgorithm