fannkuch-redux MicroPython #8 program

# The Computer Language Benchmarks Game
#   https://salsa.debian.org/benchmarksgame-team/benchmarksgame/
#
#   Naive transliteration from Rex Kerr's Scala program
#   contributed by Isaac Gouy 
#

def fannkuch(n):
   perm1 = [0] * n   
   for i in range(n): perm1[i] = i      
   perm = [0] * n
   count = [0] * n       
   f = flips = nperm = checksum = j = k = r = 0          
  
   r = n
   while r > 0: 
      i = 0  
      while r != 1: count[r-1] = r; r -= 1  
      while i < n: perm[i] = perm1[i]; i += 1  
        
      # Count flips and update max and checksum
      f = 0
      k = perm[0]  
      while k != 0:
         i = 0  
         while 2*i < k:          
            t = perm[i]; perm[i] = perm[k-i]; perm[k-i] = t  
            i += 1           

         k = perm[0]
         f += 1   
       
      if f > flips: flips = f         
      if (nperm & 0x1) == 0: 
         checksum += f 
      else: 
         checksum -= f
   
      # Use incremental change to generate another permutation   
      more = True
      while more:  
         if r == n:
            print( checksum )                     
            return flips 

         p0 = perm1[0]
         i = 0
         while i < r:
            j = i + 1
            perm1[i] = perm1[j]
            i = j            

         perm1[r] = p0 
         
         count[r] -= 1        
         if count[r] > 0: more = False
         else: r += 1 

      nperm += 1

   return flips      

from sys import argv   

n = int(argv[1]) if len(argv) > 1 else 7   
print("Pfannkuchen(%i) = %i" % (n, fannkuch(n))) 

    

NOTES:
64-bit Ubuntu quad core
MicroPython v1.24.0
preview.44.ge9c898cb3


 Tue, 08 Oct 2024 18:55:43 GMT

COMMAND LINE:
 /opt/src/micropython/micropython  -X emit=native fannkuchredux.micropython-8.micropython 12

PROGRAM OUTPUT:
3968050
Pfannkuchen(12) = 65