The Q6600
Benchmarks Game

fannkuch-redux Dart #2 program

source code

/* The Computer Language Benchmarks Game
   https://salsa.debian.org/benchmarksgame-team/benchmarksgame/

   contributed by Jos Hirth
   (previously used) warmup code suggested by Vyacheslav Egorov
   transliterated from Isaac Gouy's C# program,
   which was transliterated from Mike Pall's Lua program
*/

fannkuch(n) {
  var p = new List<int>(n), q = new List<int>(n), s = new List<int>(n);
  int sign = 1, maxflips = 0, sum = 0, m = n-1;
  for(int i=0; i<n; i++){ p[i] = i; q[i] = i; s[i] = i; }
  do {
    // Copy and flip.
    var q0 = p[0];                                     // Cache 0th element.
    if (q0 != 0){
      for(int i=1; i<n; i++) q[i] = p[i];             // Work on a copy.
      var flips = 1;
      do {
        var qq = q[q0];
        if (qq == 0){                                // ... until 0th element is 0.
          sum += sign*flips;
          if (flips > maxflips) maxflips = flips;   // New maximum?
          break;
        }
        q[q0] = q0;
        if (q0 >= 3){
          int i = 1, j = q0 - 1, t;
          do { t = q[i]; q[i] = q[j]; q[j] = t; i++; j--; } while (i < j);
        }
        q0 = qq; flips++;
      } while (true);
    }
    // Permute.
    if (sign == 1){
      var t = p[1]; p[1] = p[0]; p[0] = t; sign = -1; // Rotate 0<-1.
    } else {
      var t = p[1]; p[1] = p[2]; p[2] = t; sign = 1;  // Rotate 0<-1 and 0<-1<-2.
      for(int i=2; i<n; i++){
        var sx = s[i];
        if (sx != 0){ s[i] = sx-1; break; }
        if (i == m) return [sum,maxflips];  // Out of permutations.
        s[i] = i;
        // Rotate 0<-...<-i+1.
        t = p[0]; for(int j=0; j<=i; j++){ p[j] = p[j+1]; } p[i+1] = t;
      }
    }
  } while (true);
}

void main(args) {
  int n = args.length > 0 ? int.parse(args[0]) : 7;
  var pf = fannkuch(n);
  print("${pf[0]}\nPfannkuchen($n) = ${pf[1]}");
}

    

notes, command-line, and program output

NOTES:
64-bit Ubuntu quad core
Dart VM version: 2.8.1 (stable) (Unknown timestamp) on "linux_x64"


Wed, 06 May 2020 19:25:38 GMT

MAKE:
/usr/bin/dartanalyzer fannkuchredux.dart-2.dart
make: /usr/bin/dartanalyzer: Command not found
make: [/home/dunham/8000-benchmarksgame/nanobench/makefiles/u64q.programs.Makefile:445: fannkuchredux.dart-2.dart_run] Error 127 (ignored)

0.08s to complete and log all make actions

COMMAND LINE:
/usr/bin/dart  fannkuchredux.dart-2.dart 12

PROGRAM OUTPUT:
3968050
Pfannkuchen(12) = 65