Giriş

Bu zorlukta göreviniz, böyle bir kodun var olduğunu varsayarak, ISBN-13 kodunu verilen kitaplar için ISBN-10 kodunu oluşturmaktır. Böyle bir ISBN-13 kodu, aşağıdakilerle ayrılmış birkaç bölümden oluşur -:

978-GG-PPPP-TTT-C

G(Grup), P(yayıncı), T(başlık) ve C(sağlama toplamı) harflerinin tümü bir rakam için kullanılır. Bu zorluğun amacı için gruplandırma ve hesaplama C( bu zorluğa bakınız ) ilginç değildir ve bu görevi daha basit hale getirmek için tüm kısa çizgileri bırakacağız.

Bir ISBN-10 numarasının çok benzer bir düzeni vardır:

GG-PPPP-TTT-c

Harfler G, Pve T13 basamak için olanla aynıdır, ISBN, ancak cfarklı (ve farklı bir algoritma kullanılarak hesaplanır). Rakam c, aşağıdaki denkliğin tutacağı bir şekilde seçilir (sırayla rakam):

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

Örnek

ISBN numarasını dikkate alalım 9780345391803: Karşılık gelen ISBN-10 kodunu almak 978için satır 3başını ve sağlama toplamı değerini düşürelim 034539180.

Sonra yeni sağlama toplamını hesaplamamız gerekiyor:

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

Bir sonraki numara bölünebilir 11olan 187yeni bir sağlama toplamı, bu yüzden 2bu şekilde elde edilen ISBN-10 kod ve 0345391802.

kurallar

• Girişiniz her zaman karşılık gelen ISBN-10 numarasına sahip olacaktır (yani, tam olarak 13 rakam uzunluğunda olan ve ile başlayan 978)
• Giriş mutlaka geçerli bir ISBN-13 olmak zorunda değildir (örn. 9780000000002)
• Elde edilen ISBN’nin bitmeyeceğine dair garanti X
• Girdiyi bir tamsayı veya dize olarak (tire ile veya tire olmadan) alabilirsiniz, ancak önceden hesaplanmış bir rakam listesine izin verilmez.
• Çıktınız geçerli bir ISBN-10 numarası olmalıdır (tire ile veya tire olmadan)
• Çıktınız bir tamsayı veya dize olabilir (yine basamak listesi yok)

testcases

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

_{Baştaki sıfırlara dikkat edin!}

Retina ,  44  39 28 bayt

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

_

Çevrimiçi deneyin!

açıklama

Bazı yeni Retina özelliklerini gösterme zamanı. :)

>,L3,-2`.+

Girdilerin tamamı ile eşleşiriz .+, o eşleşmeyi döndürür L, ancak yalnızca 3 (sıfır temelli) ila -2 (penultimate) dahil, karakterleri seçeriz. Sonucu, satır sonları besleme olmadan da basarız ( >).

Şimdi, Retina'daki şeyleri çıkarmak biraz can sıkıcı. Ama neyse ki, biz modulo 11 çalışıyoruz, bu yüzden sadece lineer kombinasyonun (mod 11) katsayılarını tersine çevirebilir ve her şeyi ekleyebiliriz. Başka bir deyişle, eğer kısıtlama:

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

sonra alırız:

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

Bu, burada işleri çok kolaylaştırıyor:

.
$.>`**

Her karakteri, altındaki şeyle değiştiriyoruz. *Retina'nın tekrarlayan operatörüdür. Bu doğru bir ilişkiseldir ve $&solda ve _sağda gizli operandlar vardır , bu yüzden oyuncu değişikliği aslında kısadır $.>`*$&*_. d alt çizgi $&*_dizesini yaratır , burada d şu anda değiştirmekte olduğumuz basamaktır. Daha sonra dizeye kadar olan ve eşleşmeyi içeren uzunluktur. ^1. Bu nedenle, bir tekli temsil tüm ifade sonuçları N eden bir doğrusal kombinasyonunun dönem,.$.>`

_{11}

Gerçek modüloun ​​yapılması unary olarak önemsizdir: sadece tüm 11 alt çizgi setini bıraktık.

_

Son olarak, kaç tane alt çizgi kaldığını saydık ve sonucu yazdırdık, bu da ISBN-10'u tamamlıyor.

¹ Nasıl yok $.>`etmek ve maçı da dahil olmak üzere yukarı dize uzunluğunu verir? $`Regex ikamelerinde aşina olabilirsiniz , ki bu size dizgiye denk gelir (ama hariç). Bir ekleyerek >, biz bağlamını kayabilir $`için ayırıcı (güncel rakam ve bir sonraki arasındaki boş bir dize) geçerli maçın ve bir sonraki arasında. Bu ayracın $`geçerli eşleşmesini içerecektir. Bu yüzden $>`yazmak için daha kısa bir yoldur $`$&. Son olarak, tüm $xtip ikame elemanları için, Retina uzunluğu almak için bir .sonraki eklemenizi sağlar $.

05AB1E , 17 15 13 12 bayt

¦¦¦¨DSƶO11%«

Çevrimiçi deneyin!

açıklama

¦¦¦            # 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 bayt

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

Çevrimiçi deneyin!

Girdiyi alır "$args", -replaceyalnızca ilgili kısmı almak için bir regex yapar, onu bir dizge olarak depolar $x. Sonra onu bir chardizi olarak yazdık ve her harfin içine girdik. Döngü içinde, ön azaltma $a(varsayılan olarak 0) olur ve sağlama toplamı hesaplamasına göre çarpılır. İçin döküm int, aksi takdirde bu ASCII değerlerini kullanır.

Daha sonra -joinbu rakamları birlikte +ve bununla iex( Invoke-Expressionve ona benzer eval) yönlendiriyoruz. Bunu alırız %11ve bu sağlama toplamı deposuna koyarız $y. Sonunda dize bitiştirir $x + $yve onu boru hattında bırakırız. Çıktı kapalı.

Emigna sayesinde 12 bayt kurtarıldı.

Octave , 46 41 39 37 bayt

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

Çevrimiçi deneyin!

Kod bir dize olarak girdi alır ve bir dize döndürür.

Kod aşağıdaki gibi bozuluyor:

@(a) isimsiz bir işlev yaratır.

İle [c=a(4:12) ... ]biz bir kopyasını kaydetme, ana kod oluşturan karakterleri ayıklamak cdaha sonra kullanılmak üzere ve son çıkış dizesine başka bir kopyasını ekleyerek.

Takas MartinEnter akıllıcaymış yolda @ dayanarak 10:-1:2içine 1:10, biz kolayca aralığını oluşturmak ve bir sütun vektörü almak için devrik olabilir. c*(1:10)'Satır vektörü cve aralık sütunu vektörünün dizi çarpımını yapar . Bu, eleman bazında çarpma işlemine eşdeğerdir ve sonra toplanır.

Sağlama toplamı normalde mod(11-sum,11)toplamın 11'in katı olması için gereken sayıyı hesaplamak olacaktır . Ancak, cbir karakter dizgisi olduğundan, toplam gerçekte 2592 (48 * 54) olması gerekenden daha büyük olacaktır çünkü sayılarla çarptık Bu gerçek değerden 48 daha büyüktü.

Modulo yaptığımızda, bu 2592'den 7'si dışında otomatik olarak kurtulur 48+mod(7+sum,11). Bir ASCII karakterine dönüştürmek için sonuca 48 ekleriz.

Sağlama toplamı karakteri sonucun sonuna eklenir ve değer döndürülür.

Jöle , 12 bayt

ṫ4ṖȮV€xJS%11

Bu, G / Ç için dizeleri kullanan tam bir programdır.

Çevrimiçi deneyin!

Nasıl çalışır

ṫ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 bayt

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))

@ Shaggy'nin önerisi sayesinde -3 bayt .

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

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

Çevrimiçi deneyin!

Pyth , 16 bayt

%s.e*ksbpP>Q3hT

Burada dene!

Pyth , 17 bayt

%s*VsMKpP>Q3SlK11

Burada dene!

açıklama

%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 bayt

Geçen gece pub aşağı geldi ve her şeyi unuttum.

s3J
U+¬x_*°TÃuB

Dene

• ETHproductions'a 1 bayt kazandı

Altıgen , 77 61 bayt

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

Çevrimiçi deneyin!

Renkli:

İşte daha büyük bir versiyon. Bazı yol geçişleri var, ancak bu hücrelerin tümü .(Hexagony'de çalışmaz) olduğundan, onlar için endişelenmenize gerek yok:

(Eski aynaları tutmaya da çalıştım, ama bazen bir şeyi değiştirmem gerek)

Yürütülen doğrusal komut:

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

Açıklama: Bu program bir sayaç tutmak ve her basamakta çarpma yapmak yerine, bu program:

• "kısmi toplam" değişkenini ve "toplam toplam" değişkenini ( pve t) saklayın
• her basamak için okunur: kısmi toplama ekleyin ve kısmi toplamı toplam toplama ekleyin.
• yazdırmak (-p-t)%11nerede, %her zaman pozitif sonuçlar döndürebilir.

K (OK) , 29 25 24 23 bayt

Çözüm:

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

Çevrimiçi deneyin!

Örnekler:

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"

Açıklama:

Değerlendirme sağdan sola yapılır.

Diğer çözümlerden alınan iki numara:

• 10 9 8 yerine 1 2 3 ...
• ASCII değerlerini çarpın ve sonra dengelemek için toplamı 7 ekleyin

Yıkmak:

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

Notlar:

• Martin Enders'in “ sadece katsayıları ters çevir ” büyüsü sayesinde -4 bayt .
• Tam sayılara dönüştürme ihtiyacını ortadan kaldırdığı için Tom Carpenter sayesinde -1 bayt ( 7toplamı ekleyerek )
• -1 bayt , akümülatörü 7'de başlatır.

C (gcc), 96 95 87 86 85 bayt

(-1 ceilingcat sayesinde)

*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;}

Çevrimiçi deneyin!

Olarak adlandırılabilir için f(s)burada, sdeğiştirilebilir bir karakter dizisinin ilk elemanı bir işaretçidir. Giriş dizisini değiştirir, giriş dizisine bir işaretçi döndürür.

Python 2 , 62 bayt

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

Çevrimiçi deneyin!

Giriş olarak bir dize alır; ve bir dizge çıktılar.

Jöle , 14 bayt

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

Test odası!

Jöle , 17 bayt

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

Çevrimiçi deneyin! veya Test takımı!

Girdi alır ve dizge olarak çıktı verir.

ECMAScript 6 , 86 67 bayt

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

Çevrimiçi deneyin!

İçin teşekkürler Arnauld yorumuyla , anahtarlamalı reduceiçin mapve kurtuldum returnanahtar kelime.

Retina 0.8.2 , 72 51 bayt

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

¶(1*)
$.1

Çevrimiçi deneyin! Çünkü henüz Retina 1.0'ı öğrenmedim. Açıklama:

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

İstenmeyen karakterleri silin ve uygun rakamların ikinci bir kopyasını alın.

r`.\G
$&$'

İkinci basamağın her basamağını sonekiyle birlikte ekleyin. Bu, sonekteki her rakamı pozisyonuna göre etkili bir şekilde tekrarlar.

r`.\G
$*

İkinci kopyadaki rakamları unary'e dönüştürerek birleştirin.

1{11}

Modulo 11'i azaltın. (İlk kopyada sadece 9 rakam var, bu yüzden onu asla etkileyemez.)

¶(1*)
$.1

Sonucu tekrar ondalık sayıya dönüştürün ve yeni satırı tekrar kaldırın.

APL (Dyalog Unicode) , 26 24 bayt

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

Çevrimiçi deneyin!

Tam önek işlevi. Girdiyi string olarak alır.

@Ngn sayesinde 2 bayt kaydedildi.

Nasıl?

∊⍕¨(⊢,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.

Temiz , 104 102 98 bayt

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)]

Çevrimiçi deneyin!

Kotlin , 83 bayt

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

Beautified

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

Ölçek

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 bayt

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

Çevrimiçi deneyin!

PHP, 64 bayt

Ne yazık ki, PHP'de (-$c)%11aynı -($c%11); bu yüzden farkı sadece kullanmak yerine mümkün olan en büyük toplamla (55 * 9 = 495 = 45 * 11) bulmalıyım -$c%11.

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

veya

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

Pipe ile çalıştırın -nRveya çevrimiçi deneyin .

Java 10, 110 bayt

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;}

Giriş ve çıkışları bir longtamsayı olarak alır. Burada çevrimiçi deneyin .

Ungolfed versiyonu:

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
}