Intro

Setiap tahun, Dyalog Ltd. mengadakan kompetisi siswa. Tantangannya adalah untuk menulis kode APL yang baik . Ini adalah edisi kode golf- bahasa agnostik dari masalah kedelapan tahun ini.

Saya memiliki izin eksplisit untuk mengirimkan tantangan ini di sini dari penulis asli kompetisi. Jangan ragu untuk memverifikasi dengan mengikuti tautan yang disediakan dan menghubungi penulis.

Masalah

Diberikan daftar Boolean *, "matikan" semua Kebenaran setelah Kebenaran pertama.

Tidak Ada Kebenaran? Tidak masalah! Cukup kembalikan daftar yang tidak dimodifikasi.

Contohnya

[falsy,truthy,falsy,truthy,falsy,falsy,truthy] → [falsy,truthy,falsy,falsy,falsy,falsy,falsy]

[] → []

[falsy,falsy,falsy,falsy] → [falsy,falsy,falsy,falsy]

* Semua kebenaran Anda harus identik, dan semua kesalahan Anda harus identik. Ini termasuk output.

Python 2 , 35 byte

while 1:b=input();print b;True&=b<1

Cobalah online! Input dan output adalah garis Benar / Salah.

Berdasarkan solusi Dennis . Mengubah variabel Truemenjadi Falsesetelah Truemasukan ditemui. Dengan begitu, setiap masukan lebih lanjut Trueakan dievaluasi Falsedan dicetak seperti itu.

Redefinisi adalah True&=b<1, yaitu True = True & (b<1). Ketika input badalah True, maka (b<1)adalah False (karena True==1), sehingga Truemenjadi False.

APL , 2 byte

<\

Mengevaluasi fungsi "memindai menggunakan kurang dari". Cobalah online!

Penjelasan

Dalam APL, operator \(pemindaian) mengurangi setiap awalan nonempty dari array dari kanan menggunakan fungsi yang disediakan. Sebagai contoh, mengingat array 0 1 0, ia menghitung 0(awalan panjang 1), 0<1(awalan panjang 2) dan 0<(1<0)(awalan panjang 2) dan menempatkan hasilnya ke array baru; kurung kaitkan ke kanan. Mengurangi dengan <dari hasil yang tepat 1tepat ketika elemen terakhir dari array 1dan sisanya 0, jadi awalan yang sesuai dengan yang paling kiri 1dikurangi menjadi 1dan yang lainnya menjadi 0.

Aceto , 19 17 bytes tidak bersaing

Versi baru (17 byte):

Versi baru ini mengambil karakter satu per satu dan paling baik dijalankan dengan -Fopsi. Ia bekerja serupa, tetapi tidak identik dengan solusi sebelumnya:

 >,
Op0
p|1u
,ip^

Jawaban lama (19 byte):

(Non-bersaing karena saya harus memperbaiki dua bug pada penerjemah)

|p1u
iOp<
|!`X
rd!r

Ini adalah jawaban Aceto pertama yang menyoroti apa yang bisa dilakukan dengan relatif baik, menurut saya. "Daftar" adalah aliran input, dengan satu input per baris, "1" untuk true, dan "0" untuk false, dengan string kosong yang menandakan akhir daftar.

Program Aceto berjalan pada kurva Hilbert, mulai dari kiri bawah, dan berakhir di kanan bawah. Pertama, kita rmenghasilkan string, dmeng-uplicate, dan meniadakan ( !) itu, mengubah string kosong menjadi True, yang lainnya menjadi False. Lalu ada mirror horizontal bersyarat ( |): Jika elemen teratas pada stack benar, mirror horizontal. Ini terjadi ketika string kosong. Jika kita melakukan mirroring, kita mendarat di X, yang membunuh penerjemah.

Kalau tidak, kita mengonversi salinan yang tersisa pada tumpukan ke integer dan melakukan mirror horizontal bersyarat lainnya: Kali ini, karena 1 benar dan 0 palsu, kita mirror jika kita melihat nilai sebenarnya (pertama). Jika kita tidak mirror (jadi kita melihat 0) kita pmematahkan apa yang ada di stack (karena stack kosong, nol) dan melompat ke Origin kurva, di mana kita mulai, memulai seluruh proses lagi.

Kalau tidak, ketika kita melihat 1, kita mirror dan mendarat di u, yang membalikkan arah kita bergerak pada kurva Hilbert. 1pmencetak 1, dan sekarang kita melanjutkan hal yang sama Okita akan pergi jika kita melihat 0, tetapi karena kita berada dalam "mode terbalik", asal kita berada di kanan bawah , jadi kita lompat ke sana.

Sekarang kita punya rstring lain, dan meniadakannya. Jika string kosong, dan karena itu elemen tumpukan atas adalah benar, tidak` akan luput dari perintah berikutnya ( ), membuat kita berhenti.X

Jika tidak (jika string tidak kosong), kita jangan melarikan diri Xdan mengabaikannya. Dalam hal ini, kita pergi ke kiri ( <), printis 0 (karena tumpukan kosong), dan melompat kembali ke Origin.

Java8, 24 19 Bytes

Long::highestOneBit

Semoga ini legal; Saya mendapat kesan input / output tidak harus mengevaluasi benar / salah dalam bahasa. Membutuhkan waktu selama input dan memberikannya sebagai output, dengan yang benar dan nol menjadi salah dalam representasi biner. Sebagai contoh, biner 00101 adalah 5 dan akan mengembalikan biner 00100 yaitu 4.

Lima byte berkat @puhlen

Retina , 6 byte

1>`1
0

Cobalah online!

Input adalah daftar 0s (untuk Salah) dan 1s (untuk Benar).

Cocokkan semua 1dan ganti masing-masing kecuali yang pertama ( 1>) dengan a 0.

V , 7 byte

f1òf1r0

Cobalah online!

Pengiriman V pertama saya! \Hai/

Bagaimana itu bekerja

f1òf1r0
f1       "go to the next occurence of 1
  ò      "repeat the following until end:
   f1    "    go to the next occurence of 1
     r0  "    replace with 0

Haskell , 25 byte

Fungsi anonim mengambil dan mengembalikan daftar Bools.

Gunakan sebagai (foldr(\x l->x:map(x<)l)[])[False,True,False,False].

foldr(\x l->x:map(x<)l)[]

Cobalah online!

Bagaimana itu bekerja

• Lipat daftar dari kanan, tambahkan elemen baru dan mungkin memodifikasi yang berikut.
• xadalah elemen yang harus ditambahkan ke sublist l.
• Penggunaan yang Falsemembandingkan kurang dari True, sehingga map(x<)lakan membuat semua Trues di ldalam Falsejika xini True.

Jelly , 4 byte

+\=a

Cobalah online!

Berikut adalah algoritma yang agak berbeda dengan sebagian besar solusi bahasa golf lainnya (walaupun setelah saya mempostingnya, saya perhatikan bahwa solusi R juga menggunakan algoritma ini), dan mengikat dengan pemegang catatan Jelly saat ini.

Penjelasan

+\=a
+\    Cumulative sum of the input list
  =   Compare corresponding elements with the input
   a  Logical AND corresponding elements with the input

Selama semua elemen di sebelah kiri elemen adalah 0, jumlah kumulatif hingga elemen akan sama dengan elemen itu sendiri. Di sebelah kanan 1 pertama, keduanya berbeda (karena kami sekarang menambahkan total elemen yang tidak nol ke kiri). Jadi, +\=beri kami daftar yang berisi 1 (yaitu benar) hingga dan termasuk elemen kebenaran pertama. Akhirnya, logis DAN dengan daftar asli akan memberi kita 1 hanya untuk elemen kebenaran pertama.

JavaScript (ES6), 33 26 byte

a=>a.map(e=>e&!(i-=e),i=1)

I / O dalam susunan 0s dan 1s.

05AB1E , 6 byte

Kode:

ā<s1kQ

Penjelasan:

ā         # External enumeration, get a and push [1 .. len(a)]
 <        # Decrement each
  s       # Swap to get the input
   1k     # Get the first index of 1
     Q    # Check for equality with the enumeration array

Menggunakan penyandian 05AB1E . Cobalah online!

Simulator mesin Turing , 39 byte

0 0 0 r 0
0 1 1 r 1
1 0 0 r 1
1 1 0 r 1

Cobalah online!

brainfuck , 55 byte

+>,[[->+>[->-<]>+[-<+>]<<<]>>[-<-<<[->>+<<]>>>]<.[-]<,]

Cobalah online!

Jelly , 4 byte

Port jawaban 05AB1E saya.

i1=J

Penjelasan (argumen α ):

i1        # Index of 1 (1-indexed) in α
  =       # Check for equality with the array:
   J      # [1 .. len(α)]

Cobalah online!

R , 24 byte

cumsum(T<-scan(,F))==T&T

Cobalah online!

Contoh:

Untuk FALSE TRUE TRUE FALSE
cumsum(T<-scan(,F))==Tpengembalian input TRUE TRUE FALSE FALSE. F dalam pemindaian memastikan input logis.
FALSE TRUE TRUE FALSEdan TRUE TRUE FALSE FALSEadalah FALSE TRUE FALSE FALSE. Satu &melakukan perbandingan elementwise.

Oktaf, 23 byte

@(a)diff([0 cummax(a)])

Cobalah online!

Perbedaan pertama dari maks kumulatif daftar.

J , 3 byte

</\

Mendefinisikan kata kerja monadik. Ini adalah port yang sepele dari jawaban APL saya . Cobalah online!

Python, 58 byte

lambda x:[x[i]and x.index(x[i])==i for i in range(len(x))]

Jika x[i]salah, hasilnya salah; jika tidak, ia memberikan apakah elemen adalah kejadian pertama dalam array itu sendiri atau tidak.

PHP, 37 byte

foreach($_GET as$v)echo$v*!$$v++,' ';

Perl 5, 20 byte

sub{map$_&&!$x++,@_}

Truthy is 1dan falsey is ''(string kosong).

Penjelasan:

maploop atas elemen daftar itu @_, argumen diteruskan ke subrutin, pengaturan setiap elemen menjadi $ _ secara lokal dan mengembalikan array nilai pengembalian yang dihitungnya dari setiap elemen. $_&&!$x++output $_jika $_falsey dan !$x++jika itu benar. (Perhatikan bahwa && adalah hubungan arus pendek, jadi !$x++tidak dieksekusi sampai nilai kebenaran pertama tercapai). $x++mengembalikan 0(yang merupakan kesalahan) pertama kali dijalankan dan kemudian bertambah setiap kali (dan tetap benar). Yang !meniadakan $x++, dan karenanya mengembalikan kebenaran saat pertama kali ditemui dan memalsukan sesudahnya.

Pyth - 9 byte

.e&b!s<Qk

Coba di sini

.e&b!s<Qk
.e          # Python's 'enumerate' (i.e., for each index k and each element b at that index)
      <Qk   # The first k elements of the input
     s      # 'Sum' these first k elements (with booleans, this is a logical 'or')
  &b!       # The value of the output at index k is [value of input @ index k]&&[the negation of the 'sum']

Python 2 , 45 36 byte

r=0
while 1:n=input();print n>r;r+=n

Input dan output adalah satu Boolean ( Benar atau Salah ) per baris.

Cobalah online!

C #, 77 byte

a=>{var b=1<0;for(int i=0;i<a.Length;){a[i]=b?1<0:a[i];b|=a[i++];}return a;};

Kompilasi ke a Func<bool[], bool[]>. Tidak ada yang pintar benar-benar, hanya solusi lurus ke depan.

sed , 16 19 byte

15 18 byte sourcecode + 1 byte untuk -r flag (atau -E flag untuk BSD sed).

:
s/1(0*)1/1\10/
t

Cobalah online!

Sunting: Terima kasih Riley karena menunjukkan kesalahan.

Jelly , 4 byte

TḊṬ^

Cobalah online!

Bagaimana?

Ini melakukan apa yang ditanyakan dalam arti harfiah:

TḊṬ^ - Main link: list a   e.g. [0,1,0,1,0,0,1]  or  [0,1,0,1,0,1,0]
T    - get the truthy indexes   [  2,  4,    7]      [  2,  4,  6  ]
 Ḋ   - dequeue                  [      4,    7]      [      4,  6  ]
  T  - make a boolean array     [0,0,0,1,0,0,1]      [0,0,0,1,0,1  ]
   ^ - XOR that with a          [0,1,0,0,0,0,0]      [0,1,0,0,0,0,0]

c (dengan built-in gcc), 40

Pendekatan yang sedikit berbeda:

f(n){return!n?0:1<<31-__builtin_clz(n);}

Ini mungkin dinyatakan tidak valid - dalam hal ini saya akan dengan senang hati menandainya sebagai tidak bersaing.

Input dan output "array" adalah bilangan bulat 32-bit yang tidak ditandatangani - ini membatasi ukuran daftar input menjadi persis 32 - ini mungkin merupakan diskualifikasi. Jika input kurang dari 32 bit, maka mungkin diisi dengan nol bit pada akhirnya.

Cobalah online .

Batch, 85 73 byte

:a
@(if %1.==. exit)&set/ar=(1-f)*%1
@echo %r%&set/af^|=%1&shift&goto a

Mengambil input sebagai argumen baris perintah. Sebagai contoh:1.bat 0 1 0 1 0 0 1

Versi sebelumnya

@set f=1
:a
@(if %1.==. exit)&set/ar=f*%1
@echo %r%&(if %1==1 set f=)&shift&goto a

Brain-Flak , 230 byte

([]){{}({}[()]<>)<>([])}{}<>([]){{}({}<>)<>([])}{}<>({<({}<>)<>>()}<(())>){({}[()]<<>({}<>)>)}{}(([])<{{}(({})())({<{}>{}((<()>))}<{}{}>)({}<>)<>([])}<>>){({}[()]<({}<>)<>>)}{}<>([]){{}({}<>)<>([])}{}<>{}{}([]){{}({}<>)<>([])}{}<>

Saya akan menjelaskan segera tapi ibu saya memasakkan saya kentang goreng

([]){{}({}[()]<>)<>([])}{}<>([]){{}({}<>)<>([])}{}<> Subtracts one from every item

({<({}<>)<>>()}<(())>){({}[()]<<>({}<>)>)}{} Loops down stack until current item is zero and adds one

(([])<{{} (({})())({<{}>{}((<()>))}<{}{}>) ({}<>)<>([])}<>>){({}[()]<({}<>)<>>)}{}<> On every item of stack if it is 0 do nothing and if it is -1 add one

([]){{}({}<>)<>([])}{}<> Flip stack

{}{} Remove the two zeros at top of stack

([]){{}({}<>)<>([])}{}<> Flip stack back

Cobalah online!

Terima kasih khusus

Terima kasih khusus kepada Wheat Wizard dan Riley yang telah membantu saya mendapatkan satu ton kode!

Python 3, 69 66 64 60 54 53 byte

lambda i:[k==i.index(j)and j for k,j in enumerate(i)]

Mengambil array falses dan trues. Ini adalah daftar pemahaman falses kecuali jika nilai iterasi saat ini adalah truedan itu adalah yang pertama truedalam input.

Ini sepertinya agak lama (dan ini lambda pertama saya), jadi jika Anda bisa menemukan cara untuk bermain golf, itu akan sangat dihargai!

Brain-Flak , 146 144 byte

([]){{}({}<>)(())<>([])}{}<>((())){{}({}<>)<>}{}<>(()){{}((){[()](<{}>)}{})(<>)<>}<>(())<>([]){{}(<{}<>>)<>([])}{}<>{}{}([]){{}({}<>)<>([])}<>{}

Cobalah online!

# Reverse the stack and add a 1 between each to help with reversing later
([]){{}({}<>)(())<>([])}{}<>

# Add a 1 in case there aren't any truthy values (and another 1 like before)
((()))

# Reverse the stack back to it's original order using the 1s from earlier to know when to stop
{{}({}<>)<>}{}<>

# Push 1 to start the loop
(())

# Until we find the first 1
{

 # Pop the last value
 {}

 # Logical not
 ((){[()](<{}>)}{})

  # Put a 0 on the other stack
  (<>)<>

# end loop
}

# Put a 1 on the other stack
<>(())<>

# Push the stack height
([])

# While there are values on this stack
{

 # Move them to the other stack as a 0
 {}(<{}<>>)<>([])

# End while
}{}

# Pop an extra 0
{}

# Switch stacks
<>

# Copy everything back (to reverse it back to it's original)
([])
{
 {}({}<>)<>([])
}<>{}

Perl 5 , 12 byte

10 byte kode + 2 untuk -pl.

$_&&=!$-++

Cobalah online!