Одинадцять тестів голландського Burgerservicenummer (BSN)


29

Вступ:

Голландська BSN (BurgerServiceNummer) діє, якщо вона відповідає таким правилам:

  • Він містить лише цифри.
  • Довжина повинна бути або 8, або 9.
  • Коли цифри проіндексуються як Aнаскрізь I, результат наступної суми: 9xA + 8xB + 7xC + 6xD + 5xE + 4xF + 3xG + 2xH + -1xI(ПРИМІТКА -1 замість 1!) Повинен бути ділений на 11, а не повинен бути 0.

Виклик:

Введення: рядок або масив char, що представляють BSN.

Вихід: truthy або falsey результат вхід є дійсним BSN.

Правила виклику:

  • Формат введення повинен бути рядком або масивом char. Вам заборонено використовувати внутрішній масив цифр або (можливо, восьмеричне) число. (Вам дозволено самостійно перетворювати його в цілий масив цифр, але не безпосередньо як аргумент.)
  • Незважаючи на обмеження на вхід, вказаний вище, ви можете припустити, що всі тестові випадки будуть містити одну або більше цифр ( [0-9]+)
  • Стосовно BSN довжиною 8 замість 9, голландська Вікіпедія констатує наступне: " Для одинадцяти тесту та для інших практичних цілей додається провідний нуль, щоб зробити число довжиною 9. " ( джерело )

Загальні правила:

  • Це , тому найкоротша відповідь у байтах виграє.
    Не дозволяйте мовам коду-гольфу відштовхувати вас від публікації відповідей з не кодовими гольф-мовами. Спробуйте придумати якомога коротшу відповідь на "будь-яку" мову програмування.
  • Для вашої відповіді застосовуються стандартні правила , тому вам дозволяється використовувати STDIN / STDOUT, функції / метод з відповідними параметрами, повноцінні програми. Твій дзвінок.
  • Лазівки за замовчуванням заборонені.
  • Якщо можливо, додайте посилання з тестом для вашого коду.
  • Також, будь ласка, додайте пояснення, якщо це необхідно.

Тестові приклади:

// Truthy test cases:
111222333
123456782
232262536
010464554
10464554
44016773

// Falsey test cases:
000000000
192837465
247594057
88888888
73
3112223342
000000012

4
Чи правда, що якщо є 8 цифр, то одна опущення Aвід наведеної формули?
isaacg

@isaacg Я додав правило щодо цього за допомогою посилання на сторінку (нідерландська) Вікіпедія. Ви справді маєте рацію, це відхиляється Aвід формули (або в основному додає провідну, 0щоб зробити її довжиною 9, що призводить до того ж результату, що і пропуск A).
Кевін Круїйсен

Тестовий випадок для "суми [...] не повинен бути 0.": 000000012
betseg

@betseg Я додав його до списку
Kevin Cruijssen

Відповіді:


8

05AB1E , 23 21 байт

`()DgLR*OD11Ö89¹gåP0Ê

Спробуйте в Інтернеті! або як тестовий набір

Пояснення

`                        # push input as individual chars onto stack
 (                       # negate top value
  )                      # wrap in list
   DgLR                  # range [len(input) ... 1]
       *O                # multiply with list of digits and sum
         D11Ö            # is evenly divisible by 11
             89¹gå       # len(input) is 8 or 9
                  P      # product of sum/divisible by 11/len in (8,9)
                   0Ê    # not equal to 0

Можливо, завдяки старішій версії 05AB1E, але тепер ви можете зберегти 3 байти, змінивши DgLна āі на Ā. Спробуйте в Інтернеті.
Kevin Cruijssen

12

JavaScript (ES6) 57

Введіть як масив символів. reduceRightекономить день!

s=>!(i=1,t=s.reduceRight((t,v)=>t-v*++i),!t|t%11|(i|1)-9)

Тест

F=
s=>!(i=1,t=s.reduceRight((t,v)=>t-v*++i),!t|t%11|(i|1)-9)


;['111222333','123456782','232262536','010464554','10464554','44016773']
.forEach(t=>{
  var r=F([...t]);console.log(t,r)
})

;['000000000','192837465','247594057','88888888','73','3112223342','3112223342']
.forEach(t=>{
  var r=F([...t]);console.log(t,r)
})


1
Завжди приємно бачити reduceRightвідповідь!
Ніл

Нарешті знайшов спосіб досягти 58 за допомогою map()лише зрозуміти, що ваша відповідь насправді становить 57 байт :-)
Арнольд

@Arnauld так, я не можу повірити, що я порахував неправильно знову , дякую
edc65

8

R, 86 67 байт

Редагувати: Дякую Ярко Дуббелдам за те, що він запропонував крапковий продукт!

l=length(x<-scan(,""));s=as.double(x)%*%c(l:2,-1);!s%%11&s&l>7&l<10

Читає дані зі stdin та зберігає як масив / вектор символів. Згодом перетворіть на числовий, помножте на вектор 9...2,-1і перевірте всі умови.


Не працює для мене. Ви повинні розділити xяк вектор.
dhhurio

@djhurio Введіть значення, розділені пробілом, і вони неявно зберігаються у векторі символів. Або введіть їх по черзі, натискаючи клавішу Enter.
Billywob

1
if(l<9)x=c(0,x);s=sum(as.double(x)*c(9:2,-1))можна перетворити на s=sum(as.double(x)*c(l:2,-1)). Також сума попарного добутку двох векторів така ж, як їх крапкове множення %*%.
JAD

@JarkoDubbeldam Приємно! Точковий продукт справді розумний.
Billywob

7

JavaScript (ES6), 61 60 59 58 байт

Приймає масив символів як вхідний. Повернення false/ true.

a=>!(a.map(c=>s-=--k?-c*k-c:c,k=a.length&9,s=0)|!s|k|s%11)

Тестові справи


6

C, 112 101 96 98 104 байт

Дякуємо @MartinEnder за збереження 5 3 байт під час виправлення мого коду !

j,i,k,l;f(char*s){l=strlen(s);for(i=l,j=k=0;j<l;)k+=(s[j++]-48)*(i>1?i--:-1);return!(k%11)&&k&&(l^8)<2;}

Повертає 0, якщо недійсний, 1, якщо дійсний. Спробуйте в Інтернеті!


Це 61приймається, хоча воно не має правильної довжини.
Крістіан Сіверс

1
Це не працює з моєю особистою BSN.
roberrrt-s

Сподіваємось виправлено.
betseg

Не виправлено. Не працює і з моєю.
DavidPostill

1
@Roberrrt, @DavidPostill; зараз це нормально чи я просто повинен відмовитись? = (
betseg

5

R, 95 79 93 байт

function(x){y=as.double(el(strsplit(x,"")));z=y%*%c((q<-length(y)):2,-1);(z&!z%%11&q>7&q<10)}

Безіменна функція, яка приймає рядок як аргумент. Спочатку я перечитав вимогу мати рядок як введення замість числа, але це добре, оскільки це економить деякі байти при перетворенні.

Я не впевнений, як інтерпретувати масив символів, але якщо це означає, що ви можете використовувати вектор рядкових цифр "1" "2" "3" "4" etcяк вхідний, він стає трохи коротшим навіть:

function(x){y=as.double(x);z=y%*%c((q<-length(y)):2,-1);(z&!z%%11&q>7&q<10)}

Розділяє x на числовий вектор, потім додає 0, якщо довжина дорівнює 8, а потім обчислює добуток вектора y і c(9,8,7,6,5,4,3,2,-1). Тести, якщо результат є ненульовим і роздільним на 11.

Збережено 16 байт завдяки логіці @Enigma, неявно додаючи 0 у створенні вектора c(length(x):2,-1).

Забули додати чек на довжину 8/9, тому +14 байт :(


4

Perl, 58 байт (52 + 6)

@N=(-1,2..9);$r+=$_*shift@N for reverse@F;$_=$r&&/^\d{8,9}$/&&!($r%11)

Бігайте з

perl -F// -lapE

Вхід пройшов через STDIN:

Використання

echo 232262536 | perl -F// -lapE '@N=(-1,2..9);$r+=$_*shift@N for reverse@F;$_=$r&&/^\d{8,9}$/&&!($r%11)'

Вихідні дані 1як значення триату, 0або нічого для значення фальси.


Ви можете зберегти кілька байт на початку: $r+=$_*(-1,2..9)[$i++]for reverse@F. Крім того, -F -pe(і введення, що поставляється без остаточного нового рядка, echo -nнаприклад, з), достатньо (якщо тільки ваш Perl занадто старий, в такому випадку вам знадобиться -a(але в останніх Perls це мається на увазі -F). Нарешті, ваш код був довжиною 70 байт , а не 52;)
Дада

3

C ++ 14, 107 106 байт

-1 байт для intзамість autoциклу для циклу.

Як неназвана лямбда, що повертається за допомогою еталонного параметра. Потрібен вхід, щоб бути std::stringабо контейнером, як, наприклад vector<char>.

[](auto c,int&r){int i=c.size();r=7<i&&i<10?-2*c.back()+96:~1<<9;for(int x:c)r+=(x-48)*i--;r=r%11<1&&r>0;}

Безголівки та використання:

#include<iostream>
#include<string>

auto f=
[](auto c, int& r){
 int i = c.size();
 //if the size is correct, init r to -2*I so we can add I safely later
 //otherwise such a big negative number, that the final test fails
 r = 7<i && i<10 ? -2*c.back()+96 : ~1<<9;
 for (auto x:c)
  r += (x-48)*i--;
 r = r%11<1 && r>0;
}
;

using namespace std;
using namespace std::literals;

int main(){
 int r;
 f("111222333"s,r); std::cout << r << std::endl;
 f("123456782"s,r); std::cout << r << std::endl;
 f("010464554"s,r); std::cout << r << std::endl;
 f("10464554"s,r); std::cout << r << std::endl;
 f("44016773"s,r); std::cout << r << std::endl;
 std::cout << std::endl;
 f("000000000"s,r); std::cout << r << std::endl;
 f("192837465"s,r); std::cout << r << std::endl;
 f("73"s,r); std::cout << r << std::endl;
 f("88888888"s,r); std::cout << r << std::endl;
 f("3112222342"s,r); std::cout << r << std::endl;
 std::cout << std::endl;
 f("99999999"s,r); std::cout << r << std::endl;
 f("999999999"s,r); std::cout << r << std::endl;
}

3

Befunge, 72 байти

>+~>:0`v
^1\-*68_\2/4-!00p*8>1-10p\910gv
@.!+!\%+56:*g00$  _^#!:g01+*-<<

Спробуйте в Інтернеті!

Пояснення

>+~>:0`v            Read characters from stdin until EOF, converting each digit into
^1\-*68_              a number on the stack, and keeping a count of the characters read.

      \2/4-!00p     Save !(count/2-4), which is only true for valid lengths (8 and 9).
               *    Multiply the EOF (-1) with the final digit; this is the initial total.

8>1-10p\910gv       Loop over the remaining 8 digits, multiplying each of them by 9-i and
 ^#!:g01+*-<<         add to the total; i goes from 7 down to 0, so 9-i goes from 2 to 9.

               $    Drop the loop counter.
           *g00     Multiply total by the length calculation (invalid lengths become 0).
      %+65:         Make a copy of the total, and calculate modulo 11.
    !\              Boolean not the other copy to check for zero. 
  !+                !(total%11 + !(total)) is only true for non-zero multiples of 11.
@.                  Output the result and exit.

3

MATL, 36 байт

Не найдовша програма MATL, яку я коли-небудь писав , але мені подобається, як if/ elseзаяви дуже швидко виходять на мовах гольфу. Я вважаю, що це рішення може бути не оптимальним у MATL, але поки що я не можу його оптимізувати. Я думаю десь використати подвійний 0, і, можливо, скорочувати tповсюди.

48-tn8=?0wh]tn9=?P[a2:9]*st11\~Y&}x0

Спробуйте в Інтернеті! Пояснення:

48-                                  % Subtract 48 (ASCII '0')
   tn                                % Duplicate. Get length.
     8=?                             % If length equals 8
        0wh                          %     Prepend 0 to the duplicate
           ]                         % End if.
            t                        % Duplicate again.
             n9=?                    % If length equals 9.
                 P                   %     Reverse the duplicate
                  [a2:9]*            %     Element-wise product with [-1 2 ... 9]
                         s           %     Sum
                          t11\       %     Duplicate sum, modulus 11
                              ~Y&    %     Result on stack: modulus==0 AND sum!=0
                                 }   % Else
                                  x0 %     Remove the duplicate. Put 0 on stack.
                                     % Display implicitly.

Якщо ви можете зробити з вектором стовпців: !Uзамість48-
Луїс Мендо


@LuisMendo Дуже погано. [a2:9]*призводить до множення неелементного множення, тож !знадобиться інше , яке компенсує початкове посилення.
Санчіз

3

MATL , 26 байт

!UGg*R!s0&)s-t11\~Gn8-tg=v

В результаті виходить не порожній вектор стовпця, який є правдою, якщо всі його записи є ненульовими .

Спробуйте в Інтернеті!

Або перевірити всі тестові випадки з кожним результатом в іншому рядку.

Пояснення

Це перевіряє три умови в такому порядку:

  1. Зважена сума - ненульова;
  2. Зважена сума ділиться на 11;
  3. Довжина - 8 або 9.

Розглянемо вхід '8925'для пояснення. ;є роздільником рядків для матриць.

!     % Implicit input. Transpose into a column vecvtor
      % STACK: ['8'; '9'; '2'; '5']
U     % Convert each digit to number
      % STACK: [8; 9; 2; 5]
Gg    % Push a row array of ones as long as the input
      % STACK: [8; 9; 2; 5], [1 1 1 1]
*     % Multiply, element-wise with broadcast
      % STACK: [8 8 8 8; 9 9 9 9; 2 2 2 2; 5 5 5 5]
R     % Upper triangular part
      % STACK: [8 8 8 8; 0 9 9 9; 0 0 2 2; 0 0 0 5]
!     % Transpose
      % STACK: [8 0 0 0;8 9 0 0;8 9 2 0;8 9 2 5]
s     % Sum of each column. This multiplies last element by 1, second-last by 2 etc
      % STACK: [32 27 4 5]
0&)   % Split into last element and remaining elements
      % STACK: 5, [32 27 4]
s     % Sum of array
      % STACK: 5, 63
-     % Subtract
      % STACK: -58. This is the result of condition 1
t11\  % Duplicate. Modulo 11
      % STACK: -58, 8
~     % Logical negation
      % STACK: -58, 0. This gives condition 2
Gn    % Push numnber of entries in the input
      % STACK: -58, 0, 4
8-    % Subtract 8. For valid lengths (8 or 9) this gives 0 or 1
      % STACK: -58, 0, -4
tg    % Duplicate. Convert to logical: set nonzero values to 1
      % STACK: -58, 0, -4, 1
=     % 1 if equal, 0 otherwise. Lenghts 8 or 9 will give 1. This is condition 3
      % STACK: -58, 0, 0
v     % Vertically concatenate the entire stack. This is truthy iff all values 
      % are non-zero. Implicitly display
      % STACK: [-58; 0; 0]

Молодці. Я подумав, що підхід без ?цього, ймовірно, буде більш ефективним, але я не міг зрозуміти, як скоротити довжину на 8 або 9. Ви Gn8-tg=дуже розумні.
Санчіз

1
До речі, чи не введено би векторний стовпець як масив char, що представляє BSN , економивши вас першим !?
Санчіз

@Sanchises Проблема полягає в тому, що потім Gнатискає вектор стовпця, і мені потрібно перенести його, щоб зробити повторенняg*
Луїс Мендо

О, звичайно. Не звертай уваги!
Санчіз

3

Haskell, 116 112 102 байт

f x=div(length x)2==4&&g x>0&&h x
h=((==0).(`mod`11)).g
g=sum.zipWith(*)(-1:[2..]).map(read.(:[])).reverse

gпідраховує суму, використану в одинадцять-профілі h, а fтакож перевіряє правильність довжини і що одинадцять-проф не дорівнює 0. Особливо перевірки fзаймають багато байт.

EDIT: збережено 10 байт завдяки Лінні та divокругленню вниз.


1
Як щодо f x=div(length x)2==4&&g x>0&&h x?
Лінн

@Lynn: це приємно, дякую.
Renzeee

2

Желе , 21 байт

V€U×JN1¦µL:2=4×Sµ11ḍa

СпробуйтеItOnline! або запустити всі тестові приклади

Повернені значення Truthy не нульові (і насправді кратні 11 сумі).

Як?

V€U×JN1¦µL:2=4×Sµ11ḍa - Main link: string of digits  e.g. "111222333"
V€                    - eval each - effectively cast each to an integer (keeps leading zeros)
  U                   - upend                        e.g. [ 3, 3, 3, 2, 2, 2, 1, 1, 1]
    J                 - range(length)                e.g. [ 1, 2, 3, 4, 5, 6, 7, 8, 9]
   ×                  - multiply                     e.g. [ 3, 6, 9, 8,10,12, 7, 8, 9]
      1¦              - apply to index 1 (first element)
     N                -     negate                   e.g. [-3, 6, 9, 8,10,12, 7, 8, 9]
        µ             - monadic chain separation   e.g. z=[-3, 6, 9, 8,10,12, 7, 8, 9]
         L            - length(z)                    e.g. 9
          :2          - integer divide by 2          e.g. 4
            =4        - equals 4?                    e.g. 1
               S      - sum(z)                       e.g. 66
              ×       - multiply                     e.g. 66
                µ     - monadic chain separation   e.g. z=66
                 11ḍ  - divides(11, z)               e.g. 1
                    a - and z (for z=0 case)         e.g. 66 (truthy)

На жаль , я можу тільки взяти один відповідь замість двох, так як ваш має той же 21 байт-лічильник як @Emigna 05AB1E відповідь «s . Але оскільки Енігма відповів швидше (і його редагування на 21 байт також було швидше), я прийняв його.
Kevin Cruijssen

Це звучить справедливо для мене!
Джонатан Аллан

2

Python 2, 102 байти

def f(i):S=sum(a*b for a,b in zip([-1]+range(2,10),map(int,i)[::-1]));return(7<len(i)<10)*(S%11<1)*S>0

2

Python 2, 96 байт

def g(s):u=7<len(s)<10and sum(x*int(('0'+s)[-x])for x in range(2,10))-int(s[-1]);print(u%11<1)*u

Приймає рядок як вхідний. Функція додає a '0'на передню частину рядка, потрібна вона чи ні, і використовує негативні індекси Python для додавання елементів, починаючи з кінця рядка і працюючи «назад до спереду».

-1xIОбробляється окремо, використовуючи другий виклик int(). Я не міг зрозуміти, як цього уникнути, не витративши більше байтів, ніж заощадив.

def g(s):u=7<len(s)<10and sum(x*int(('0'+s)[-x])for x in range(10))-2*int(s[-1]);print(u%11<1)*uвін би працював так само добре, оскільки додав би 1рази, s[-1]але потім відніме його двічі, а також додасть 0рази (щось), що, звичайно, не вплине на суму.


2

Мозг-Флак , 345 байт

Включає +3 для -a

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

Truthy - 1, Falsy - 0 у верхній частині стека.

Спробуйте в Інтернеті!

Я майже впевнений, що існує коротший спосіб зробити множення в циклі, але я його ще не знайшов.

#reverse and subtract 48 from all numbers (ASCII -> decimal)
([]){{}({}[((((()()()){}){}){}){}]<>)<>([])}{}<> 

([][(()()()()){}])       #height - 8
{({}[()]){               #if not 0 subtract 1
   ([]){{}{}([])}        #if still not 0 pop everything
}}{}                     #this loop pops everything unless there are 8 or 9 digits

([{}])                   # -I
({}({}){})               # H*2
({}({})({}){})           # G*3
({}(({}){}){})           # F*4
({}(({})({})){}{})       # E*5
({}(({})({}){}){})       # D*6
({}((({}))({}){}){}{})   # C*7
({}((({}){}){}){})       # B*8
(({}(((({})){}){}){}{}{} # A*9 pushed twice with:
<(((()()())()){}{})>))   # 11 under it


{{} #if not 0
({}(<>))<>{(({})){({}[()])<>}{}}{}<>([{}()]{}   # mod 11
[{}]<(())>){((<{}{}>))}{}                       # logical not
(<()>)                                          # push 0 to exit loop
}{}
                                                # implicit print

2

PowerShell v2 +, 96 байт

param($n)$i=8-($n.count-eq8);!(($b=($n|%{(-"$_",(($i+1)*+"$_"))[!!$i--]})-join'+'|iex)%11)-and$b

Гаразд, визнаю, це виглядає як повний безлад. І це якось є. Але візьміть мене зі собою, і ми переберемо це.

Ми беремо введення $n(як- charмасив) і встановлюємо $iрівне 8мінус булеве значення для того, чи є в ньому 8 елементів $n. Значення, якщо є 8 предметів, то $iбуло б 7.

Наступний розділ поєднує обчислення з нашим результатом. Працюючи зсередини, ми пров'язуємо $nс $n|%{...}. При кожній ітерації ми використовуємо псевдотермінал, щоб створити один з двох результатів - -"$_"або (($i+1)*+"$_"). Індекс базується на тому, $iє 0чи ні (тобто ми потрапили у -1xIвипадок із рівняння виклику), який стає наступним зменшенням для наступного раунду. Усі вони зібралися в паренах і -joinразом з ними +. Наприклад, із введенням даних 111222333у цей момент ми мали б 9+8+7+12+10+8+9+6+-3. Це трубопровід до iex(короткий Invoke-Expressionта подібний до eval), перш ніж зберігатися в $b. Тоді ми беремо це %11і виконуємо булеве не!(...)на цьому (тобто, якщо воно ділиться на 11, ця частина є $true). Це в поєднанні з тим, -and$bщоб переконатися, що $bце не нуль. Цей булевий результат залишається на конвеєрі, а вихід неявний.

Приклади

PS C:\Tools\Scripts\golfing> 111222333,123456782,232262536,010464554,10464554,44016773|%{"$_ -> "+(.\dutch-burgerservicenummer.ps1 ([char[]]"$_"))}
111222333 -> True
123456782 -> True
232262536 -> True
10464554 -> True
10464554 -> True
44016773 -> True

PS C:\Tools\Scripts\golfing> 000000000,192837465,247594057,88888888,73,3112223342,000000012|%{"$_ -> "+(.\dutch-burgerservicenummer.ps1 ([char[]]"$_"))}
0 -> False
192837465 -> False
247594057 -> False
88888888 -> False
73 -> False
3112223342 -> False
12 -> False

2

PHP 139 128 байт

 $u=-1;$i=$argv[1];while($u<=strlen($i)){$c+=($u*(substr($i,-(abs($u)),1)));$u +=$u<0?3:1;}echo($c>0&&!($c%11)&&$u>8&&$u<11?1:0);

Не вдалося змусити CLI просто повторити істинну помилку. Довелося зробити так. Будь-які ідеї?

128 байт: "1" і "false" перетворилися на 1 і 0.


2

C #, 120 115 байт

Цей цикл через char[]це отримує як вхід і повертає істинне або хибне:

bool b(char[]n){int r=0,k,i=0,l=n.Length;for(;i<l;i++){k=i==l-1?-1:l-i;r+=k*(n[i]-48);}return r>0&r%11<1&l<10&l>7;}

Fiddle: https://dotnetfiddle.net/3Kaxrt

Я впевнений, що зможу вишкребти кілька байт, особливо в безладді return . Будь-які ідеї вітаються!

Редагувати: Збережено 5 байт завдяки Кевіну. Я не мав ідеї, яку я міг би використовувати &замість &&!


1
+1! r>0&&r%11==0&&l<10&&l>7можна в гольф r>0&r%11<1&l<10&l>7( &&до &і r%11==0до r%11<1). І -'0'можна в гольф -48.
Kevin Cruijssen

2

PHP, 86 85 84 83 83 79 79 байт

Примітка: використовує PHP 7.1 для негативних рядкових індексів.

for($l=log10($a=$argn);~$c=$a[-++$x];)$s+=$x>1?$x*$c:-$c;echo$s%11<1&$l>7&$l<9;

Бігайте так:

echo 010464554 | php -nR 'for($l=log10($a=$argn);~$c=$a[-++$x];)$s+=$x>1?$x*$c:-$c;echo$s%11<1&$l>7&$l<9;';echo
> 1

Версія для PHP <7.1 (+10 байт)

echo 010464554 | php -nR 'for($l=log10($a=$argn);~$c=$a[strlen($a)-++$x];)$s+=$x>1?$x*$c:-$c;echo$s%11<1&$l>7&$l<9;';echo

Пояснення

for(
  $l=log10(         # Take the log of the input number.
    $a=$argn        # Set input to $a
  );
  ~$c=$a[-++$x];    # Iterate over digits of input (reverse). Negate to
                    # change every char to extended ASCII (all truthy),
                    # without changing empty sting (still falsy, ending
                    # the loop).
)
  $s+=$x>1?         # Add current char to the sum...
     ?$x*$c:-$c;    # multiplied by $x, unless $x is 1; subtract it.
echo
  $s%11<1 &         # Check if sum is divisible by 11, and
  $l>7   &          # log of the input is greater than 7, and
  $l<9;             # log of the input is less than 9. Outputs 0 or 1.

Налаштування

  • Коротший спосіб відрізнити порожній рядок від і "0" збережений байт
  • Оскільки 10000000він недійсний, не потрібно порівнювати його greater than or equals,greater than недостатньо , зберігаючи байт
  • Коротший спосіб відняти найменш значну цифру
  • Негативні знаки замість XOR, економлячи байт
  • Збережено 3 байти, використовуючи, -Rщоб зробити $argnдоступними

2

Java 8, 115 98 байт

b->{int l=b.length,i=0,r=0,x;for(;l>7&l<10&i<l;r+=(b[i++]-48)*(x<2?-1:x))x=l-i;return r>0&r%11<1;}

Я здивований, що ще ніхто не опублікував відповідь на Java, тому ось одна.

Пояснення:

Спробуйте тут.

b->{                  // Method with character-array as parameter and boolean return-type
  int l=b.length,     //  Length of the array
      i=0,            //  Index-integer, starting at 0
      r=0,            //  The result-sum, starting at 0
      x;              //  Temp integer `x`
  for(;l>7&l<10       //  Start looping if the length is either 8 or 9
       &i<l;          //  And continue looping while the index is smaller than the length
      r+=             //    After every iteration, increase the result-sum by:
         (b[i++]-48)  //     The current digit
         *(           //     Multiplied by:
           x<2?       //      If `x` is 1:
            -1        //       Multiply by -1
           :          //      Else:
            x))       //       Simply multiply by `x` 
    x=l-i;            //   Set `x` to the length minus the current index
                      //  End of loop (implicit / single-line body)
  return r>0          //  Return if the result-sum is larger than 0,
    &r%11<1;          //   and if the result-sum is divisible by 11
}                     // End of method

1

Clojure, 114 байт

Що ж, це щось, -підсумовуючи решту аргументів від першого, щоб вирішити особливий вагомий випадок -1. Ця функція повертається nilдля входів невірної довжини, але в ifпунктах вони працюють так само, як і false. (#{8 9}(count v))повертається, nilякщо довжина vне 8 або 9.

(fn[v](if(#{8 9}(count v))(#(and(< % 0)(=(mod % 11)0))(apply -(map *(range 1 10)(reverse(map #(-(int %)48)v)))))))

Тестові приклади:

(pprint (group-by f (map str [123456782 232262536 "010464554" 10464554 44016773 "000000000" 192837465 247594057 88888888 73 3112223342 "000000012"])))
{true  ["123456782" "232262536" "010464554" "10464554" "44016773"],
 false ["000000000" "192837465" "247594057" "88888888" "000000012"],
 nil   ["73" "3112223342"]}


1

Стакс , 23 байти

╪╦µΘç}<╔▼◘╞i∟~¿≥←║▐√ 4u

Запуск та налагодження в Інтернеті!

Пояснення

Використовує розпаковану версію для пояснення.

i%8A:byr{]ei^*mBN+|+c11%!L|A
i                               Suppress implicit eval
 %8A:b                          Length is 8 or 9 (Element #1 on the final stack)
      yr                        Reverse input
        {     m                 Map each element with
         ]e                         Its numerical value
           i^*                      Multiplied current 1-based loop index
               BN+              Negate the first element
                  |+            Sum (Element #2 on the final stack)
                    c11%!       Sum is multiple of 11 (Element #3 on the final stack)
                         L|A    Collect all the three elements and `and` them.
Використовуючи наш веб-сайт, ви визнаєте, що прочитали та зрозуміли наші Політику щодо файлів cookie та Політику конфіденційності.
Licensed under cc by-sa 3.0 with attribution required.