pengantar

Hujan akhirnya reda. Sebagian besar manusia tenggelam karena bug dalam kode @ user12345 . Korban tersebar di seluruh kepulauan di seluruh dunia. Komunikasi radio meningkat, dan umat manusia siap untuk berkembang sekali lagi. Tanpa alasan apa pun, bajak laut zombie telah berkumpul di Meridian Perdana, dan menyapu ke arah barat. Gerombolan itu melahap semua.

Masalah

Skenario kiamat kami dapat dijelaskan oleh 5 bilangan bulat pada satu garis yang mewakili sekumpulan komunitas pulau yang bekerja sama. Mereka dipesan dari barat (integer paling kiri) ke timur (integer paling kanan).

Dimulai dengan pulau paling jauh ke timur, penduduk pulau berpasangan dengan pulau terdekat berikutnya. Anehnya, untuk setiap pasangan yang memulai, hanya satu dari mereka yang pernah selamat dari perjalanan. Penduduk pulau hanya bepergian berpasangan. Populasi ganjil memilih satu-satunya penghuni untuk tetap tinggal dan memberikan pembaruan radio terbaru tentang kejenakaan gerombolan bajak laut zombie. Populasi menolak untuk melakukan perjalanan sampai semua pulau di sebelah timur mereka menyelesaikan migrasi mereka atau mati. Ketika populasi mencapai pulau terakhir, paling barat, perjalanan berhenti.

Manajer operasi di ujung dunia membutuhkan program yang dapat menampilkan jumlah populasi akhir dari setiap desa.

Contoh Input

3 8 6 0 2

Contoh Output

8 1 0 1 0

Asumsi

• Masukan dapat diberikan melalui stdin, membaca dari file yang dinamai secara sewenang-wenang, atau diterima sebagai argumen
• Untuk setiap pulau, 0 <= populasi <= 1024
• Populasi tidak pernah melewati satu pulau

Jawaban terpendek menang!

APL, 16 karakter

{(1e9,4⍴2)⊤2⊥⍎⍵}

Input diberikan sebagai string ke blok ini:

{(1e9,4⍴2)⊤2⊥⍵} "3 8 6 0 2"
8 1 0 1 0

atau satu karakter lebih sedikit jika input diberikan sebagai argumen untuk blok ini:

{(1e9,4⍴2)⊤2⊥⍵} 3 8 6 0 2
8 1 0 1 0

Hal ini didasarkan pada gagasan Ilmari Karonen dalam komentar ini .

• 2⊥⍵ melakukan konversi basis 2 dari input.
• (1e9,4⍴2)⊤dengan demikian mengkonversi angka ini kembali ke basis 2 (untuk empat digit terakhir) dan basis 1e9 untuk yang pertama, yang cukup untuk rentang input yang diberikan di atas. ( 1e9,4⍴2membuat daftar 1e9 2 2 2 2.)

Perhatikan bahwa barat yang melarikan diri dilakukan secara otomatis oleh konversi basis selama proses ini.

GolfScript, 23 22 karakter

~]{{.2/@+\2%}*]}4*' '*

Pendekatan berulang. Array diulang beberapa kali dan setiap kali sejumlah pasangan ditransfer dari kanan ke kiri. Coba contoh online .

Penjelasan singkat tentang kode:

~]       # convert input to an integer
{        # loop 4 times (enough for a 5-elements input)
  {      # inject this block into the array
    .    # duplicate (l r r)
    2/   # determine surviving people (l r r%2)
    @+\  # add to the left (l+r/2 r)
    2%   # determine remaining people (l+r/2 r%2)
  }*
  ]      # make array again of the results
}4*
' '*     # format output

GolfScript (25 karakter)

~]-1%{\.1&\2/@+}*]-1%' '*

Demo online

Solusi yang sangat mudah: ada pendekatan yang lebih menarik yang mendefinisikan nilai output untuk masing-masing pulau sebagai fungsi dari nilai input, tetapi saya tidak berpikir itu bisa di-golf hampir sejauh mengikuti algoritma redistribusi yang dijelaskan dalam pertanyaan.

Javascript / ES6 (69)

Bermain dengan operator bitwise:

• x&=1 menjaga bit terendah (1 jika ganjil, 0 jika genap)
• x>>1 adalah pembagian dengan 2 untuk bilangan bulat

f=a=>{a=a.split(' ');for(i=5;--i;a[i]&=1)a[i-1]-=-(a[i]>>1);return a}

Versi tanpa ES6:

function f(a){a=a.split(' ');for(i=5;--i;a[i]&=1)a[i-1]-=-(a[i]>>1);return a}

Contoh:
f("3 8 6 0 2")mengembalikan [8, 1, 0, 1, 0]
f("0 997 998 999 1000")pengembalian[935, 0, 1, 1, 0]

Python - 96 Karakter

Pertama kali bermain golf! Masukan dari stdin.

n=map(int,raw_input().split())
x=4
while x:n[x-1]+=n[x]/2;n[x]%=2;x-=1
print' '.join(map(str,n))

J (26 karakter)

Ini solusi saya di J: ((<.@-:@}.,0:)+{.,2|}.)^:_

   islands1 =: 3 8 6 0 2
   islands2 =: 3 8 6 3 2
   ((<.@-:@}.,0:)+{.,2|}.)^:_ islands1
8 1 0 1 0
   ((<.@-:@}.,0:)+{.,2|}.)^:_ islands2
9 0 0 0 0

Solusi umum ini harus bekerja dengan sejumlah pulau.

Rubi, 97 90 74 72

Versi online

Golf sedikit lebih jauh, tidak membalikkan array lagi ...

f=->i{i=i.split.map(&:to_i);(1..4).each{|n|i[-n-1]+=i[-n]/2;i[-n]%=2};i}

C - 121 karakter

Input diambil dari stdin.

a[5];main(i){b(i=0,0);while(i++<5)printf("%i ",a[i-1]);}b(i,j){scanf("%i",&i);return j<5?i+=
b(i,j+1)/2,a[j]=j?i&1:i,i:0;}

Python2 - 98 karakter

Masukan dari stdin.

s=[0]
for v in raw_input().split()[::-1]:s=[int(v)+s[0]/2,s[0]%2]+s[1:4]
print' '.join(map(str,s))

Python3 - 79 karakter

Masukan dari stdin.

s=[0]
for v in input().split()[::-1]:s=[int(v)+s[0]//2,s[0]%2]+s[1:4]
print(*s)

Python 2, 85 80 byte

b=1
for x in raw_input().split():b=2*b+int(x)
print b/16-2,' '.join(bin(b)[-4:])

X orang yang memulai di pulau mana pun setara dengan X * 2 orang yang memulai satu pulau di sebelah kanan. Kode ini mengonversi setiap orang dalam konfigurasi awal ke yang setara di pulau kanan-jauh, kemudian menggunakan representasi biner dari hasilnya untuk menentukan berapa banyak orang yang berakhir di setiap pulau.

EDIT: Mempersingkat kode dengan menginisialisasi bke 1 bukannya 0, memungkinkan penggunaan binalih-alih string format.

Python (101)

l=map(int,raw_input().split())
for i in range(4):l[3-i]+=l[4-i]/2;l[4-i]%=2
print' '.join(map(str,l))

Kami mengulang daftar dari belakang ke depan dan memindahkan populasi di sekitar sesuai dengan spesifikasi, kemudian mencetak daftar. Inilah tes cepat:

>>> l=map(int,raw_input().split())
3 8 6 0 2
>>> for i in range(4):l[3-i]+=l[4-i]/2;l[4-i]%=2
... 
>>> print' '.join(map(str,l))
8 1 0 1 0

Mathematica 105

Ini harus bekerja dengan sejumlah pulau.

f[w_,n_:1]:=
If[n==Length@w,w,
f[w~ReplacePart~{-n-> Mod[z=w[[-n]],2],-(n+1)->(w[[-(n+1)]]+ z~Quotient~2)},n+1]]

Contohnya

5 pulau

f[{3, 8, 6, 0, 2}]

{8, 1, 0, 1, 0}

25 pulau

f[{145, 144, 144, 59, 35, 129, 109, 99, 200, 24, 219, 96, 12, 121, 75,20, 153, 124, 131, 178, 228, 120, 63, 207, 228}]

{270, 0, 0, 1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0 }

Jawa - 647 533 tetapi berharap untuk beberapa poin brownies untuk Java 8 Streaming.

class I{int p;I e;I(int p,I e){this.p=p;this.e=e;}void x(){if(e!=null){int r=p&1;e.p+=(p-r)/2;p=r;}}public String toString(){return ""+p;}}Deque<I>B(String d){H<I>e=new H<>();return Arrays.stream(d.split(" ")).map(s->Integer.valueOf(s)).map(p->e.hold(new I(p,e.held()))).collect(Collectors.toCollection(LinkedList::new));}void x(Deque<I>is){is.descendingIterator().forEachRemaining((I i)->{i.x();});}void t(String s){Deque<I> a=B(s);x(a);System.out.println(a);}class H<T>{T h=null;H(){}T hold(T t){return (h=t);}T held(){return h;}}

Bentuk terkompresi:

private static class Island {
  int population;
  final Island eastwardIsland;

  Island(int population, Island eastwardIsland) {
    this.population = population;
    this.eastwardIsland = eastwardIsland;
  }

  private void exodus() {
    if (eastwardIsland != null) {
      // How many remain.
      int remain = population & 1;
      // How many leave.
      int leave = population - remain;
      // Account for 50% death rate.
      int arrive = leave / 2;
      // Modify the eastward island population.
      eastwardIsland.population += arrive;
      // Change my population.
      population = remain;
    }
  }

  @Override
  public String toString() {
    return String.valueOf(population);
  }

}

private Deque<Island> buildIslands(String data) {
  // Holds the island to the east as we traverse.
  final Holder<Island> eastward = new Holder<>();
  // Build my list of islands - assumes order is retained.
  return Arrays.stream(data.split(" "))
          // Convert to int.
          .map(s -> Integer.valueOf(s))
          // Build the island in a chain.
          .map(p -> eastward.hold(new Island(p, eastward.held())))
          // Roll them into a linked list.
          .collect(Collectors.toCollection(LinkedList::new));
}

private void exodus(Deque<Island> islands) {
  // Walk backwards.
  islands.descendingIterator()
          // Perform all exodus.
          .forEachRemaining((Island i) -> {
            i.exodus();
          });
}

private void test(String data) {
  Deque<Island> archipelago = buildIslands(data);
  // Initiate the exodus.
  exodus(archipelago);
  // Print them.
  System.out.println(archipelago);
}

Dengan bantuan:

// Mutable final.
private static class Holder<T> {
  private T held = null;

  public Holder() {
  }

  public Holder(T it) {
    held = it;
  }

  public T hold(T it) {
    return (held = it);
  }

  public T held() {
    return held;
  }

  @Override
  public String toString() {
    return held == null ? "null" : held.toString();
  }

}

Sedikit khawatir bahwa uji @ DavidCarraher:

145 144 144 59 35 129 109 99 200 24 219 96 12 121 7520 153 124 131 178 228 120 63 207 228

menghasilkan

270, 1, 0, 1, 0, 0, 1, 0, 1, 0, 0, 0, 0, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 0

Jawa - 196 195

Saya berkata pada diri sendiri bahwa saya tidak akan mempostingnya jika saya tidak bisa mendapatkannya di bawah 200 ... Jujur saya tidak berpikir saya bisa menyingkirkan hal lain, itu cukup tipis untuk Jawa.

class H{public static void main(String[]a){int l=a.length,p[]=new int[l],i=l;for(;i-->0;){p[i]=Integer.valueOf(a[i]);if(l-i>1){p[i]+=p[i+1]/2;p[i+1]%=2;}}for(;++i<l;System.out.print(p[i]+" "));}}

Jeda baris:

class H{
    public static void main(String[]a){
        int l=a.length,p[]=new int[l],i=l;
        for(;i-->0;){
            p[i]=Integer.valueOf(a[i]);
            if(l-i>1){
                p[i]+=p[i+1]/2;
                p[i+1]%=2;
            }
        }
        for(;++i<l;System.out.print(p[i]+" "));
    }
}

Output input sampel:

$ java H 3 8 6 0 2
8 1 0 1 0

$ java H 0 1 2 3 4 5 6 7 8 9 10
1 1 1 1 1 1 1 0 1 0 0

$java H 235 897 158 693
809 1 0 1

Java - 179 karakter

Terkompresi:

class F{public static void main(String[] a){int l=0,x,s,i=a.length-1;String z="";for(;0<=i;i--){x=Integer.valueOf(a[i])+l;s=i>0?x%2:x;l=(x-x%2)/2;z=s+" "+z;}System.out.print(z);}}

Normal:

public class FloatingHorde {

    public static void main(String[] a) {
        int leave = 0;
        String outputStr = "";
        for (int i = a.length - 1; 0 <= i ; i--) {
            int x = Integer.valueOf(a[i]) + leave;
            int stays = i > 0 ? x % 2 : x;
            leave = (x - x % 2) / 2;
            outputStr = stays + " " + outputStr;
        }
        System.out.print(outputStr);
    }
}

Output sampel:

$ java F 3 8 6 0 2
8 1 0 1 0

$ java F 7 6 5 4 3
11 1 1 1 1

Emacs Lisp 144 karakter

Tidak mungil, tetapi berhasil

(lambda (d)
   (setq x d)(while(cdr x)
           (setcar(cdr x)(+(/(-(car x)(%(car x)2))2)(cadr x)))
           (setcar x (-(car x)(*(/(car x)2)2)))
       (pop x))
   (reverse d))

awk - 44 Karakter

{for(i=NF;i>1;){n=int($i/2);$i%=2;$--i+=n}}1

Java - 116 Karakter

Sebagai contoh int[] i = {2, 33, 16, 5};(saya kira itu tidak menambah hitungan, karena setiap angka dapat bervariasi) akan menghasilkan23 0 0 1

for(int j = i.length-1; j > 0; j--) {       
    while(i[j] > 1) {
        i[j] -= 2;
        i[j-1]++;
    }       
}
for(int j = 0; j < i.length; j++) {     
    System.out.print(i[j] + " ");
}