Terinspirasi oleh tantangan ini .

Tujuan:

Diberikan switchboard pra-konfigurasi dan daftar indeks, membalikkan switch pada indeks yang diberikan.

Sebuah papan switch terdiri dari sejumlah saklar ( vatau ^) yang dibungkus -dan disusun menjadi barisan dengan panjang yang bervariasi. Berikut ini adalah contoh switchboard:

-v-^-v-
-^-v-
-v-^-v-

Membalikkan / membalik saklar berarti mengubahnya dari vmenjadi ^, atau dari ^ke v.

Sakelar diindeks dari kiri ke kanan, atas ke bawah. Misalnya, dalam contoh di atas, yang terakhir vdi baris pertama akan berada di posisi 3 dan ^di baris tengah berada di 4 (menggunakan 1-pengindeksan).

Memasukkan:

• Sebuah string (atau daftar string) mewakili switchboard. Dijamin cocok dengan regex ((-[v^])+-)(\n(-[v^])+-)*.
• Daftar nomor yang mungkin kosong yang mewakili indeks, mungkin 0 atau 1 (atau nomor arbitrer jika Anda mau) diindeks. Ini adalah sakelar yang perlu dibalik.

Keluaran:

• Switchboard dalam bentuk yang sama dengan input dengan switch yang ditentukan terbalik. Setiap sakelar yang tidak ditentukan harus mempertahankan status awalnya.

Aturan:

• Input akan selalu diformat dengan benar dan tidak ada indeks yang diberikan akan di luar batas.
• Daftar indeks akan diurutkan dan tidak akan memiliki duplikat.
• Nyatakan dalam jawaban Anda apa pengindeksan yang Anda gunakan, baik itu 0, 1, atau yang sewenang-wenang.
• Trailing whitespace baik-baik saja selama outputnya terlihat seperti input.
• Ini adalah kode-golf sehingga kode terpendek menang.

Contoh:

#Using 1-indexing
input: #Empty Case
[],
-v-^-v-

output:
-v-^-v-

input: #Single switch
[1],
-v-

output:
-^-

input: #Skip a line
[3,5],
-^-v-v-
-v-
-^-^-

output:
-^-v-^-
-v-
-v-^-

input: #Flip one in each line + number wrap
[3,4,6],
-^-v-v-
-v-
-^-^-

output:
-^-v-^-
-^-
-^-v-

input: #Flip 'em all
[1,2,3,4,5,6],
-^-v-v-
-v-
-^-^-

output:
-v-^-^-
-^-
-v-v-

Vim, 60, 46, 38 , 37 bytes / penekanan tombol

qq/\d
ggDJ@"/[v^]
sv^<esc>l?\V<C-r>"
x@qq4u@q

<esc>dan <C-r>keduanya 1 byte / keystroke. Penghitung Byte

Test Case 1 (mode Verbose)

Test Case 2 (mode Verbose)

Terima kasih kepada Grimy untuk ide-ide yang menyebabkan pengurangan 22 byte :)

JavaScript, 63 59 byte

a=>s=>s.replace(/v|\^/g,x=>"^v"[a.includes(n++)^x>"^"],n=0)

Cobalah online!

Disimpan 4 byte berkat Arnauld .

K (oK) , 31 27 byte

Larutan:

`0:{@[x;(&x>93)y;"^v"94=]};

Cobalah online!

Penjelasan:

Jawaban cepat, akan mencoba golf itu. Diindeks 0.

`0:{@[x;(&x>93)y;"^v"94=]}; / the solution
`0:                       ; / print to stdout
   {                     }  / lambda taking 2 implicit args x & y
    @[ ;        ;       ]   / apply @[var;index;function]
                     94=    / 94 (ASCII "v") equal to? returns 0 or 1
                 "v^"       / index into "v^" (ie flip switch)
               y            / index into
        (     )             / do this together
          x>93              / x greater than 93 (ASCII "]")
         &                  / indices where true
      x                     / apply to x

Catatan:

• -4 Bytes berkat >93triknya

Python 3 , 140 134 103 byte

(-30 Berkat DJMcMayhem ♦, -1 lebih banyak terima kasih kepada Black Owl Kai)

def f(i,y,x=1):
 for c in y:q=c>'-';p=len(i)and x==i[0]*q;print([c,"v^"[c>'^']][p],end='');x+=q;i=i[p:]

Cobalah online!

Oof, coba lagi golf apa saja. Ini hanya menggunakan loop yang agak tidak canggih di atas string, gunakan xuntuk melacak indeks switch saat ini. Menggunakan pengindeksan 1.

Tidak Disatukan:

def f(i,y):
     x = 1
     for c in y:
         nextchar = c # nextchar gets golfed out completely within the print
         if c in 'v^': # golfed as c>'-'
             if len(i) and x==i[0]:
                nextchar = 'v' if c=='^' else '^'
                i = i[1:]
             x += 1
         print(nextchar, end='')

Jelly , 12 byte

O^%5T⁴ịƲ¦40Ọ

Program lengkap yang menerima string dan daftar bilangan bulat yang mencetak hasilnya.

Cobalah online!

Bagaimana?

O^%5T⁴ịƲ¦40Ọ - Main Link: list of characters, S; inversion indices, I
O            - to ordinals   ('\n':10, '-':45, '^':94, 'v':118)
        ¦    - sparse application...
       Ʋ     - ...to indices: last four links as a monad: f(O(S))
  %5         -   modulo 5   (10:0, 45:0, 94:4, 118:3)
    T        -   truthy indices (giving, X, indices of '^' and 'v' in S)
     ⁴       -   4th command line argument = I
      ị      -   index into X   (giving indices of '^' and 'v' to invert in S)
 ^       40  - ...action: XOR with 40   (94:118, 118:94)
           Ọ - from ordinals
             - implicit print

Python 3.8 (pra-rilis) , 80 , 78 , 77 , 71 , 70 byte

lambda x,s,i=0:''.join([c,'^v'[c<'v']][c>s and(i:=i+1)in x]for c in s)

-1 byte, terima kasih kepada @Shaggy

Cobalah online!

Perl 6 , 31 byte

->$_,\s{S:nth(s){\^|v}=$/~^'('}

Cobalah online!

(-2 byte terima kasih kepada Jo King)

Operator substitusi Perl 6 dengan Smudah mengambil nthkata keterangan yang tidak hanya menerima indeks tunggal untuk melakukan penggantian, tetapi juga daftar mereka, persis seperti yang dibutuhkan di sini.

Pengganti adalah $/ ~^ '(', di mana $/teks yang cocok (salah satu vatau ^), ~^adalah operator atau stringwise eksklusif, dan (merupakan karakter yang bit-bitnya berubah vmenjadi ^dan sebaliknya.

MATL , 29 byte

c!tt45>o2yfi)(2=XK)t106-E-K(!

Cobalah online! Atau verifikasi semua kasus teks .

Input adalah array sel string dan vektor baris angka, dengan pengindeksan berbasis 1. Keluaran diisi dengan benar dengan spasi.

Python 2 , 105 97 91 byte

lambda a,s:reduce(lambda(t,i),c:(t+[c,'^v'[c<'v']][c>'-'and i in a],i+(c>'-')),s,('',0))[0]

Cobalah online!

6 byte disimpan dengan mencuri menggunakan Rin's Fourier transform , c>'-'bukan c in'^v'.

0-indeks

Jelly , 14 byte

⁾^vḟ$€>”-T⁹ịƲ¦

Cobalah online!

Program lengkap.

Ini terasa terlalu panjang ...

Stax , 13 byte

¿╫╦ÜΦ1▌X○!ΩTæ

Jalankan dan debug itu

Ini menggunakan indeks berbasis 0.

1. Temukan semua indeks regex [v^] .
2. Indeks ke dalam array indeks menggunakan input.
3. Di setiap hasil, masukkan kode ascii input dengan 40. Ini xor('v', '^').

Bersihkan , 93 byte

import StdEnv
$i=foldl(\s c=s++[if(any((==)(sum[1\\k<-s|k>'-']))i&&c>'-')if(c>'^')'^''v'c])[]

Cobalah online!

Menentukan fungsi $ :: [Int] -> [Char] -> [Char]mengambil daftar indeks indeks nol dan mengembalikan fungsi yang mengambil string dan mengembalikan string yang diubah.

JavaScript (Node.js) , 101 98 93 91 77 67 byte

a=>s=>[...s].map(c=>t+=c>s?"^v"[a.includes(i++)^c>"^"]:c,t=i=``)&&t

Cobalah online!

10 byte, terima kasih untuk saran oleh Shaggy .

Port jawaban Python saya . Tidak terbiasa bermain golf javascript!

V , 20 byte

ÑñÀ/vüÞ
sv^l?Ö"
xH

Cobalah online!

Menggunakan beberapa fitur baru, seperti Ñyang sangat berguna.

JavaScript, 111 byte

Kode

x=>y=>{x.map(i=>eval(`y=y.replace(/(((v|\\^)[^^v]*){${i}})(v|\\^)/,(a,b,c,d,e)=>b+(e<"v"?"v":"^"))`));return y}

Mengambil input dalam format f (x) (y) di mana x adalah indeks dan y adalah switchboard. Indeks 0 diindeks

Cobalah online!

Penjelasan

Untuk setiap indeks

x.map(i=>...

membangun regex yang menemukan indeks +1 "^" atau "v"

`.../(((v|\\^)[^^v]*){${i}})(v|\\^)/...`

masukkan ke string untuk menggantinya dengan simbol yang berlawanan "v" <-> "^"

y=y.replace(...,(a,b,c,d,e)=>b+(e<"v"?"v":"^"))

kemudian mengevaluasi string sebagai fungsi

eval(...)

Setelah mengulangi indeks untuk beralih, kembalikan papan tombol

return y

Jelly , 17 byte

⁾^vK;`©⁹e€ky@€⁸¦®

Cobalah online!

Program penuh mengambil indeks sebagai argumen pertama dan string sebagai argumen kedua. Mencetak output dengan sakelar yang ditunjukkan terbalik.

Retina 0.8.2 , 66 62 byte

\d+
$*
T`v^`^v`.(?<=\b(?(3)$)(?<-3>1)+(,1+)*(-|¶|(v|\^))+)
1A`

Cobalah online! Tautan termasuk test case. 1-diindeks. Penjelasan:

\d+
$*

Ubah nomor input menjadi unary.

T`v^`^v`.(?<=\b(?(3)$)(?<-3>1)+(,1+)*(-|¶|(v|\^))+)

Transliterasi antara vdan ^semua karakter dengan properti yang jumlah vs dan ^s sejauh ini (inklusif) sama dengan salah satu nomor input.

1A`

Hapus nomor input.

Arang , 23 byte

⭆η⎇№θ⌕ΦＬη№v^§ηλκ§v^⁼vιι

Cobalah online! Tautan adalah untuk mengucapkan versi kode. Diindeks 0. Penjelasan:

 η                      Input string
⭆                       Map over characters and join
  ⎇                     If
   №                    Count of (i.e. exists)
     ⌕                  Index of
               κ        Current index in
       Ｌ                Length of
        η               Input string
      Φ                 Implicit range filtered by
         №              Count of (i.e. exists)
             η          Input string
            §           Indexed by
              λ         Current value
          v^            In literal string `v^`
    θ                   In input list
                 v^     Then literal `v^`
                §       Indexed by
                     ι  Current character
                   ⁼    Equal to
                    v   Literal `v`
                      ι Else current character

Ruby , 56 byte

1-diindeks.

->s,i{j=0;s.gsub(/[v^]/){i==i-[j+=1]?$&:"v^".tr($&,'')}}

Cobalah online!

C # (Visual C # Interactive Compiler) , 73 byte

a=>b=>{int i=0;return a.Select(x=>x>45&&b.Contains(++i)?(char)(x^40):x);}

Cobalah online!

Japt , 15 byte

®c^(Z>V©øT° *#(

Cobalah

®c^(Z>V©ø°T *#(    U = Input String, V = Array of Indices
®                  Map each Z in U
 c^                   XOR Z's charcode by
   (Z>V                 Z is 'v' or '^'
      ©                 Short-circuiting Logical and
       øT°              The current Z's index is in V
             *#(        Multiply the boolean with 40 (false = 0, true = 1)

Japt , 16 14 byte

Ëc^#(*(D>V©øT°

Cobalah

Ë>V©øT° ?Dc^#(:D     :Implicit input of multi-line string U & integer array V
Ë                    :Map each D in U
 >V                  :  Greater than V? (Coerces V to a string and, conveniently, all digits are > "\n" & "-" and < "^" & "v")
   ©                 :  Logical AND with
    ø                :  Does V contain
     T°              :    T (initially 0) postfix incremented
        ?            :  If true
         Dc          :  Charcode of D
           ^#(       :  XOR with 40
              :D     :  Else D