Dari AZSPCS :

Misalkan Anda memiliki setumpuk yang berisi kartu n. Setiap kartu berisi angka dari 1 hingga n, dan setiap nomor muncul tepat pada satu kartu. Anda melihat nomor di kartu atas - katakan saja k - dan kemudian membalik urutan kartu k atas. Anda melanjutkan prosedur ini - membaca nomor atas dan kemudian membalikkan jumlah kartu yang sesuai - sampai kartu teratas adalah 1.

Tulis program tercepat untuk menghitung jumlah pembalikan untuk setumpuk yang diberikan. Perhatikan bahwa jika Anda berpartisipasi dalam kontes Anda tidak diperbolehkan memposting kode Anda (dan dengan demikian saya belum akan memposting kode saya).

JavaScript

function(d){for(t=0;x=(n=d[0])-1;t++)for(i=0;i<n/2;i++){m=d[x-i];d[x-i]=d[i];d[i]=m}return t}

Anda memberikannya, seperti:

f([3, 2, 1]) // 1
f([2, 3, 1]) // 2
f([1, 2, 3]) // 0

Scala: (Ini bukan golf - kan?)

def transform (l: List[Int], sofar: Int = 0) : Int =
  if (l(0) == 1) sofar else transform (l.take (l(0)).reverse ::: l.drop (l(0)), sofar + 1)

Aplikasi lengkap dengan testcase dan stopwatch, termasuk pengocokan Deck:

object DeckReverse extends Application {

  def transform (l: List[Int], sofar: Int = 0) : Int = 
    if (l(0) == 1) sofar else transform (l.take (l(0)).reverse ::: l.drop (l(0)), sofar + 1)

  def stopwatch (count: Int, size: Int) = {
    val li = (1 until size).toList 
    val r = util.Random 

    val start = System.currentTimeMillis ()
    (0 until count).foreach (_ => transform (r.shuffle (li)))
    val stop = System.currentTimeMillis ()

    println ("count: " + count + "\tsize: " + size + "\tduration: " + (stop - start) + " msecs") 
  }

  stopwatch (1000, 100)
}

hitung: 1000 ukuran: 100 durasi: 1614 msecs mesin: Single Pentium M 2Ghz

Python, 84 Chars

Tetap main golf ... Saya menggunakan angka 0 hingga n-1. Dengan asumsi array disimpan dalam variabel x, dibutuhkan saya 84 karakter Python.

while x[0]:x[:x[0]+1]=x[x[0]::-1]

Namun, kinerjanya sangat buruk karena penyalahgunaan memori.

C

int revno(int* deck, int n) {
  int k,j,r=0;
  for(;;) {
    k=*deck;
    if (k==1) {
      return r;
    }
    for (j=0; j<k/2; j++) {
      int tmp=deck[j];
      deck[j]=deck[k-j];
      deck[k-j]=tmp;
    }
    r++;
  }
}

deckadalah pointer ke array integer yang mewakili deck. nadalah jumlah kartu. Jelas keamanan memori adalah tugas si penelepon.

Mungkin mendekati algoritma tercepat pada komputer terbaru dan pada bahasa tingkat tinggi. Hanya dengan trik tingkat asm yang bisa dibuat lebih cepat, tetapi tidak dengan mereka.

Perl 5 , 58 + 2 (-ap) = 60 byte

++$\&&(@F[0..$F[0]-1]=reverse@F[0..$F[0]-1])while$F[0]-1}{

Cobalah online!