pengantar

Dalam tantangan ini, tugas Anda adalah membuat kode ISBN-10 untuk buku-buku yang diberi kode ISBN-13-nya, dengan asumsi kode tersebut ada. Kode ISBN-13 tersebut terdiri dari beberapa bagian yang dipisahkan oleh -:

978-GG-PPPP-TTT-C

Huruf G(grup), P(penerbit), T(judul) dan C(checksum) semuanya merupakan satu digit. Untuk tujuan tantangan ini pengelompokan dan perhitungan C(lihat tantangan ini ) tidak menarik dan kami akan membatalkan semua tanda hubung untuk membuat tugas ini lebih sederhana.

Nomor ISBN-10 memiliki tata letak yang sangat mirip:

GG-PPPP-TTT-c

Huruf-hurufnya G, Pdan Tsama dengan ISBN 13 digit, namun cberbeda (dan dihitung menggunakan algoritma yang berbeda). Digit cdipilih sedemikian rupa sehingga kesetaraan berikut berlaku (angka berurutan):

10*G + 9*G + 8*P + … + 3*T + 2*T + 1*c = 0 (mod 11)

Contoh

Mari kita pertimbangkan nomor ISBN 9780345391803: Untuk mendapatkan kode ISBN-10 yang sesuai, kita cukup meninggalkan yang terdepan 978dan 3menghasilkan checksum 034539180.

Selanjutnya kita perlu menghitung checksum baru:

10*0 + 9*3 + 8*4 + 7*5 + 6*3 + 5*9 + 4*1 + 3*8 + 2*0 = 185

Angka berikutnya yang dapat dibagi 11adalah 187, sehingga checksum baru adalah 2dan dengan demikian menghasilkan kode ISBN-10 0345391802.

Aturan

• Input Anda akan selalu memiliki nomor ISBN-10 yang sesuai (mis. Panjangnya persis 13 digit dan dimulai dengan 978)
• Input tidak harus harus berupa ISBN-13 yang valid (mis. 9780000000002)
• Anda dijamin bahwa ISBN yang dihasilkan tidak akan berakhir dengan X
• Anda dapat mengambil input sebagai integer atau string (dengan atau tanpa tanda hubung) namun daftar digit yang dihitung sebelumnya tidak diizinkan
• Output Anda harus nomor ISBN-10 yang valid (dengan atau tanpa tanda hubung)
• Output Anda mungkin bilangan bulat atau string (sekali lagi tidak ada daftar digit)

Testcases

9780000000002 -> 0000000000
9780201882957 -> 0201882957
9781420951301 -> 1420951300
9780452284234 -> 0452284236
9781292101767 -> 1292101768
9780345391803 -> 0345391802

_{Perhatikan nol terkemuka!}

Retina ,  44  39 28 byte

>,L3,-2`.+
.
$.>`**
_{11}

_

Cobalah online!

Penjelasan

Saatnya memamerkan beberapa fitur Retina baru. :)

>,L3,-2`.+

Kami mencocokkan seluruh input dengan .+, mengembalikan kecocokan itu L, tetapi hanya memilih karakter 3 (berbasis nol) hingga -2 (kedua dari belakang), inklusif. Kami juga mencetak hasilnya tanpa linefeed tambahan ( >).

Sekarang, mengurangi hal-hal di Retina agak menyebalkan. Tapi untungnya, kita sedang bekerja modulo 11, jadi kita bisa membalikkan koefisien kombinasi linear (mod 11) dan menambahkan semuanya. Dengan kata lain, jika batasannya adalah:

10*G + 9*G + 8*P + … + 3*T + 2*T + 1*c = 0 (mod 11)

lalu kita dapatkan:

c = 1*G + 2*G + 3*P + … + 8*T + 9*T (mod 11)

Itu menyederhanakan banyak hal di sini:

.
$.>`**

Kami mengganti setiap karakter dengan hal di bagian bawah. *adalah operator pengulangan Retina. Ini asosiatif-kanan dan memiliki operan implisit $&di sebelah kiri dan _di kanan, sehingga substitusi sebenarnya adalah kependekan $.>`*$&*_. $&*_menciptakan string garis bawah d , di mana d adalah digit yang saat ini kami gantikan. Kemudian $.>`adalah panjang string hingga dan termasuk kecocokan. ¹ Oleh karena itu, seluruh ekspresi menghasilkan representasi unary dari n istilah ke- dari kombinasi linier kami.

_{11}

Melakukan modulo yang sebenarnya adalah sepele di unary: kami hanya membuang semua set lengkap 11 garis bawah.

_

Akhirnya, kami menghitung berapa banyak garis bawah yang tersisa dan mencetak hasilnya, yang melengkapi ISBN-10.

¹ Bagaimana cara $.>`memberikan panjang string hingga dan termasuk kecocokan? Anda mungkin terbiasa dengan $`substitusi regex, yang memberi Anda string hingga (tetapi tidak termasuk) pertandingan. Dengan menyisipkan >, kita bisa menggeser konteks $`ke pemisah antara pertandingan saat ini dan berikutnya (yang merupakan string kosong antara digit saat ini dan berikutnya). Pemisah itu $`akan mencakup pertandingan saat ini. Begitu $>`juga cara menulis yang lebih pendek $`$&. Akhirnya, untuk semua $xelemen subtitusi semua jenis, Retina memungkinkan Anda memasukkan .setelah $untuk mendapatkan panjangnya.

05AB1E , 17 15 13 12 byte

¦¦¦¨DSƶO11%«

Cobalah online!

Penjelasan

¦¦¦            # remove the first 3 characters
   ¨           # remove the last character
    D          # duplicate
     S         # split to list of digits
      ƶ        # multiply each by its 1-based index
       O       # sum
        11%    # mod by 11
           «   # concatenate

PowerShell , 96 84 byte

$y=-(([char[]]($x="$args"-replace'^978|.$')|%{--$a*[int]"$_"})-join'+'|iex)%11;$x+$y

Cobalah online!

Mengambil input "$args", melakukan regex -replaceuntuk mendapatkan hanya bagian yang bersangkutan, menyimpannya menjadi $xstring. Lalu kami memberikannya sebagai char-array dan loop melalui setiap huruf. Di dalam loop, kami melakukan pra-pengurangan $a(yang default-nya 0) dan berkembang biak sesuai dengan perhitungan checksum. Perhatikan gips untuk int, kalau tidak ini akan menggunakan nilai ASCII.

Kami kemudian -joinangka-angka itu bersama-sama dengan +dan pipa itu ke iex( Invoke-Expressiondan mirip dengan eval). Kami menerima %11dan menyimpan checksum itu $y. Akhirnya, kami merangkai string $x + $y, dan meninggalkannya di saluran pipa. Output tersirat.

Disimpan 12 byte berkat Emigna.

Oktaf , 46 41 39 37 byte

@(a)[c=a(4:12) 48+mod(7+c*(1:9)',11)]

Cobalah online!

Kode mengambil input sebagai string, dan mengembalikan string.

Kode rusak sebagai berikut:

@(a) menciptakan fungsi anonim.

Dengan [c=a(4:12) ... ]kami mengekstrak karakter yang membentuk kode utama, menyimpan salinanc untuk digunakan nanti, dan menambahkan salinan lain ke string hasil akhir.

Berdasarkan @ cara cerdas MartinEnter ini swapping 10:-1:2ke 1:10, kita dapat dengan mudah menghasilkan berbagai itu dan memindahkannya untuk mendapatkan vektor kolom. c*(1:10)'melakukan perkalian array dari vektor baris cdan vektor rentang kolom. Ini setara dengan melakukan perkalian elemen-bijaksana kemudian menjumlahkan.

Checksum biasanya akan mod(11-sum,11)menghitung jumlah yang diperlukan untuk jumlah menjadi kelipatan 11. Namun, karena ckarakter string, jumlah sebenarnya akan lebih besar daripada yang seharusnya pada 2592 (48 * 54) karena kami dikalikan dengan angka yang 48 lebih besar dari nilai sebenarnya.

Ketika kita melakukan modulo, modulo itu akan secara otomatis menghilangkan semua kecuali 7 dari 2592 itu. Dengan demikian, dan memperhitungkan negasi dari rentang, perhitungan aktual menjadi 48+mod(7+sum,11). Kami menambahkan pada 48 hasil untuk mengkonversi kembali ke karakter ASCII.

Karakter checksum ditambahkan ke akhir hasil, dan nilai dikembalikan.

Jelly , 12 byte

ṫ4ṖȮV€xJS%11

Ini adalah program lengkap yang menggunakan string untuk I / O.

Cobalah online!

Bagaimana itu bekerja

ṫ4ṖȮV€xJS%11  Main link. Argument: s (string of length 13)

ṫ4            Tail 4; discard the first three characters.
  Ṗ           Pop; discard the last characters.
   Ȯ          Output; print the result to STDOUT and return it.
    V€        Eval each; turn digit characters into digits.
       J      Indices; yield [1, ..., 13].
      x       Repeat the first digit once, the second digit twice, etc.
        S%11  Take the sum, modulo 11.
              (implicit) Print the checksum to STDOUT.

JavaScript (ES6), 59 56 byte

s=>(s=s.slice(3,-1))+[...s].reduce(n=>n+s[i++]*i,i=0)%11

f=
s=>(s=s.slice(3,-1))+[...s].reduce(n=>n+s[i++]*i,i=0)%11
//s=>(s=s.slice(3,-1))+(n=0,[...s].map((c,i)=>n+=c*-~i),n)%11
//s=>(s=s.slice(3,-1))+(n=0,[...s].map(c=>n+=c*i++,i=1),n)%11
//s=>(n=0,[...(s=s.slice(3,-1))].map((c,i)=>n+=c*-~i),s+n%11)
//s=>(s=s.slice(3,-1,n=i=0))+eval(`for(c of s)n+=c*-~i++`)%11

console.log(...[
  '9780000000002',
  '9780201882957',
  '9781420951301',
  '9780452284234',
  '9781292101767',
  '9780345391803'
].map(f))

-3 byte terima kasih atas saran @ Shaggy .

Perl 5 , 49 + 1 ( -p) = 50 byte

s/^...|.$//g;$\=(eval s/./"-$&0+".$i++*$&/ger)%11

Cobalah online!

Pyth , 16 byte

%s.e*ksbpP>Q3hT

Coba di sini!

Pyth , 17 byte

%s*VsMKpP>Q3SlK11

Coba di sini!

Penjelasan

%s.e*hksbpP>Q3hT || Full program. Uses string for input and output.

            Q    || The input.
           > 3   || With elements at indexes smaller than 3 trimmed.
          P      || Pop (remove the last item).
         p       || Print the result without a linefeed, but also return it.
  .e             || Enumerated map. For each (index, value), assign two variables (k, b).
       sb        || b converted to an integer.
    *hk          || And multiplied by k + 1.
 s               || Summation.
%                || Modulo by:
               T || The literal 10.
              h  || Incremented by 1.

Japt , 16 15 byte

Datang dengan ini di pub malam itu dan lupa semua tentang itu.

s3J
U+¬x_*°TÃuB

Cobalah

• 1 byte disimpan berkat ETHproductions

Hexagony , 77 61 byte

,,,,'~'11=\.A&.=\./';"-'"{4.8}}\'.A.>.,<\'+'%!@}/=+'+{./&{{&/

Cobalah online!

Berwarna:

Ini adalah versi yang lebih besar. Ada beberapa jalur penyeberangan, tetapi karena semua sel itu .(tidak ada dalam Hexagony), Anda tidak perlu khawatir tentang mereka:

(Saya juga mencoba menyimpan cermin lama, tetapi kadang-kadang saya perlu mengubah sesuatu)

Perintah linear yang dijalankan adalah:

,,,,'48}}
,
while memory > 0:
    ';"-'"{+'+{=A&=''A
    if memory < 0:
        undefined behavior
    &{{&}
    ,
'"''+~'11='%!@

Penjelasan: Alih-alih menjaga penghitung dan melakukan penggandaan di setiap digit, program ini:

• pertahankan variabel "jumlah parsial" dan variabel "jumlah total" ( pdan t)
• untuk setiap digit baca: tambahkan ke jumlah parsial, dan tambahkan jumlah parsial ke jumlah total.
• cetak (-p-t)%11, di mana %selalu mengembalikan hasil positif.

K (oK) , 29 25 24 23 byte

Larutan:

x,$11!7+/(1+!9)*x:-1_3_

Cobalah online!

Contoh:

x,$11!7+/(1+!9)*x:-1_3_"9780000000002"
"0000000000"
x,$11!7+/(1+!9)*x:-1_3_"9780345391803"
"0345391802"
x,$11!7+/(1+!9)*x:-1_3_"9781292101767"
"1292101768"
x,$11!7+/(1+!9)*x:-1_3_"9780452284234"
"0452284236"

Penjelasan:

Evaluasi dilakukan dari kanan ke kiri.

Dua trik diambil dari solusi lain:

• kalikan dengan 1 2 3 ... bukannya 10 9 8 ...
• gandakan nilai ASCII dan kemudian tambahkan 7 ke jumlah untuk menyeimbangkan

Kerusakan:

x,$11!7+/(1+!9)*x:-1_3_ / the solution
                     3_ / drop three items from the start
                  -1_   / drop one item from the end
                x:      / save this as variable x
               *        / multiply by
         (    )         / all this together
            !9          / til, !9 => 0 1 2 3 4 5 6 7 8
          1+            / add 1 => 1 2 3 4 5 6 7 8 9
      7+/               / sum (+) over (/), start from 7
   11!                  / mod by 11
  $                     / convert back to a string
x,                      / join with x

Catatan:

• -4 bytes terima kasih kepada Martin Enders " hanya membalikkan koefisien sihir ".
• -1 byte terima kasih kepada Tom Carpenter karena telah menghapus kebutuhan untuk mengkonversi ke integer (dengan menambahkan 7jumlahnya)
• -1 byte mulai akumulator pada 7

C (gcc), 96 95 87 86 85 byte

(-1 terima kasih kepada ceilingcat)

*f(s,r,c,d)char*s,*r;{for(d=13;--d;s+=*++s<48)r=d>8?c=3,s:r,c-=~d**s;*s=58-c%11;s=r;}

Cobalah online!

Untuk disebut sebagai f(s), di mana sadalah penunjuk ke elemen pertama dari array karakter yang dapat dimodifikasi. Memodifikasi array input, mengembalikan pointer ke array input.

Python 2 , 62 byte

lambda n:n[3:12]+`-sum(i*int(n[13-i])for i in range(2,11))%11`

Cobalah online!

Mengambil string sebagai input; dan menghasilkan string.

Jelly , 14 byte

ṫ4ṖµV€×JS%11;@

Suite uji!

Jelly , 17 byte

Ṛḣ⁵µVD×JḊSN%11;ḊṚ

Cobalah online! atau Test suite!

Mengambil input dan output sebagai string.

ECMAScript 6 , 86 67 byte

a=>(c=a.substr(3,9))+([...c].map(v=>g+=--i*v,e=i=g=11)?(e-g%e)%e:0)

Cobalah online!

Terima kasih untuk komentar Arnauld ini , beralih dari reduceke mapdan menyingkirkan returnkata kunci.

Retina 0.8.2 , 72 51 byte

...(.*).
$1¶$1
r`.\G
$&$'
r`.\G
$*
1{11}

¶(1*)
$.1

Cobalah online! Karena saya belum belajar Retina 1.0. Penjelasan:

...(.*).
$1¶$1

Hapus karakter yang tidak diinginkan dan buat salinan kedua dari angka yang sesuai.

r`.\G
$&$'

Sufiks setiap digit pada salinan kedua dengan sufiksnya. Ini secara efektif mengulangi setiap digit dalam suffix dengan posisinya.

r`.\G
$*

Konversikan digit pada salinan kedua menjadi unary sehingga menambahkannya bersama-sama.

1{11}

Kurangi modulo 11. (Hanya ada 9 digit di salinan pertama, jadi ini tidak akan pernah mempengaruhinya.)

¶(1*)
$.1

Ubah hasilnya kembali menjadi desimal dan hapus baris baru lagi.

APL (Dyalog Unicode) , 26 24 byte

∊⍕¨(⊢,11|⊢+.×⍳∘≢)3↓¯1↓⍎¨

Cobalah online!

Fungsi awalan Tacit. Mengambil input sebagai string.

2 byte disimpan berkat @ngn.

Bagaimana?

∊⍕¨(⊢,11|⊢+.×⍳∘≢)3↓¯1↓⍎¨    ⍝ Main function.
                       ⍎¨    ⍝ Execute each; turns the string into a vector of digits.
                 3↓¯1↓       ⍝ Drop (↓) the last (¯1) and the first 3 digits.
   (           ≢)            ⍝ Tally; returns the number of digits in the vector.
             ⍳∘               ⍝ Then (∘) index (⍳) from 1
            ×                ⍝ Multiply the resulting vector [1..9]
         ⊢+.                 ⍝ Dot product with sum with the original vector;
                             ⍝ This will multiply both vectors, and sum the resulting vector.
      11|                    ⍝ Mod 11
     ,                       ⍝ Concatenate
    ⊢                        ⍝ With the original vector
 ⍕¨                          ⍝ Format each; returns a vector of digits as strings.
∊                            ⍝ Flatten to get rid of the spaces.

Bersih , 104 102 98 byte

import StdEnv
$s#s=s%(3,11)
#i=sum[digitToInt d*p\\d<-s&p<-[10,9..]]+10
=s++[toChar(i/11*11-i+58)]

Cobalah online!

Kotlin , 83 byte

i.drop(3).dropLast(1).let{it+(11-(it.mapIndexed{i,c->(10-i)*(c-'0')}.sum()%11))%11}

Yg diperindahkan

i.drop(3).dropLast(1).let {
    it + (11 - (it.mapIndexed { i, c -> (10 - i) * (c - '0') }.sum() % 11)) % 11
}

Uji

data class Test(val input: String, val output: String)

fun f(i: String) =

i.drop(3).dropLast(1).let{it+(11-(it.mapIndexed{i,c->(10-i)*(c-'0')}.sum()%11))%11}

val tests = listOf(
        Test("9780000000002", "0000000000"),
        Test("9780201882957", "0201882957"),
        Test("9781420951301", "1420951300"),
        Test("9780452284234", "0452284236"),
        Test("9781292101767", "1292101768"),
        Test("9780345391803", "0345391802")
)

fun main(args: Array<String>) {
    for (c in tests) {
        val answer = f(c.input)
        val good = answer == c.output
        println("$good ${c.input} -> ${c.output} | $answer")
    }
}

TIO

TryItOnline

Ruby , 69 68 64 byte

->n{v=n[3,9];c=11;v+"#{(c-v.chars.map{|i|i.to_i*c-=1}.sum)%11}"}

Cobalah online!

PHP, 64 byte

Sayangnya, dalam PHP (-$c)%11sama dengan -($c%11); jadi saya harus mendapatkan perbedaan setidaknya jumlah terbesar yang mungkin (55 * 9 = 495 = 45 * 11) daripada hanya menggunakan -$c%11.

for($f=11;--$f>1;print$d)$c+=$f*$d=$argn[13-$f];echo(495-$c)%11;

atau

for($c=45*$f=11;--$f>1;print$d)$c-=$f*$d=$argn[13-$f];echo$c%11;

Jalankan sebagai pipa dengan -nRatau coba online .

Java 10, 110 byte

l->{var s=l+"";int c=0,i=3;for(;i<12;)c+=(13-i)*(s.charAt(i++)-48);return(l-(long)978e10)/10*10+(11-c%11)%11;}

Mengambil input dan output sebagai longinteger. Cobalah online di sini .

Versi tidak disatukan:

l -> { // lambda taking a long as argument
    var s = l + ""; // convert the input to a String
    int c = 0, // the check digit
    i = 3; // variable for iterating over the digits
    for(; i < 12 ;) // go from the first digit past 978 to the one before the check digit
        c += (13 - i) * (s.charAt(i++) - 48); // calculate the check sum
    return (l - (long) 978e10) // remove the leading 978
           /10 *10 // remove the original check digit
           + (11 - c % 11) % 11; // add the new check digit
}