Предпосылка:

Ваша репутация находится в форме обмена стека, если она может быть представлена ​​путем разложения количества ваших медалей (золото, серебро и бронза, подсчитанные отдельно) на их базовые 10 цифр и объединения их в любом заданном порядке с несколькими оговорками.

Разлагая, каждый

• Цифра золотой медали стоит три цифры.
• Серебро стоит две цифры.
• Бронза это одна цифра.
• Кроме того, поскольку SE не отображает тип медали, если у вас его нет, подсчет 0 медалей для типа не приведет к a [0].

Пример:

• [1 Gold, 2 Silvers, 3 Bronzes]будет разлагаться на [1,1,1,2,2,3]. 321112 и 213121 являются двумя примерами номера SE-формы для этих медалей.
• [20 Golds, 0 Silvers, 20 Bronzes]будет разлагаться на [2,2,2,0,0,0,2,0]. 20002022 - это номер SE-формы.
• [11 Golds, 0 Silvers, 0 Bronzes]будет разлагаться на [1,1,1,1,1,1]. 111111 является единственным номером SE-формы для этого.

При рассмотрении номера SE не будет начальных 0. Например, во втором примере, приведенном выше, 00002222 -> 2222номер SE-формы для [20,0,20].

Ввод, вывод:

Входные данные представляют собой список / кортеж / массив / все, [reputation, gold_medals, silver_medals, bronze_medals]что является неотрицательными целыми числами. Это предполагаемый порядок, но его можно изменить. Просто запишите в своем ответе, если вы это сделаете.

Выходными данными являются любые два согласованных значения для true и false.

Правила:

• Ввод всегда будет действительным
• У вас всегда будет хотя бы 1 репутация
• У вас не может быть никаких медалей, которые всегда должны возвращать ложь.
• Подсчет медалей не имеет никакого отношения к реальности. Хорошо иметь несколько сотен золотых и без бронзы.
• Это код-гольф, поэтому выигрывает самый короткий ответ в байтах.

Тестовые случаи:

#[Rep, Gold, Silver, Bronze] -> Output
[4, 0, 0, 4]       -> True
[1447, 0, 4, 17]   -> True
[74414, 4, 0, 17]  -> True
[4444, 4, 0, 4]    -> True
[4455, 0, 54, 0]   -> True
[5355, 5, 0, 3]    -> True
[53535, 5, 3, 0]   -> True
[4444, 0, 0, 4444] -> True
[444, 4, 0, 0]     -> True
[1234, 0, 0, 1234] -> True
[1234, 0, 0, 4321] -> True

[4444, 1, 0, 1]      -> False
[5555, 5, 0, 55]     -> False
[1234, 1, 23, 4]     -> False
[1, 0, 0, 0]         -> False
[1001001, 0, 10, 10] -> False

05AB1E , 16 14 13 11 10 байт

∞×0KJ‚€{íË

Принимает входные медали в порядке [bronze, silver, gold]первого ввода и reputationвторого ввода.

-1 байт благодаря @Grimy .

Попробуйте онлайн или проверьте все контрольные примеры .

Объяснение:

∞           # Push an infinite positive list: [1,2,3,...]
 ×          # Repeat the values in the (implicit) input-list that many times as string
            # (since the input-list contains just 3 values, the rest of the infinite
            #  list is ignored)
  0K        # Remove all 0s (so all "0", "00" and "000")
    J       # Join the strings in the list together
     ‚      # Pair this string with the (implicit) second input
      €{í   # Sort the digits in both strings in descending order
         Ë  # And check if both are now equal
            # (after which the result is output implicitly as result)

JavaScript (ES6),  92  74 байта

Принимает вход как (['gold','silver','bronze'])('rep'). Возвращает логическое значение.

b=>r=>[...b.map((n,i)=>n.repeat(+n&&3-i)).join``].sort()+''==[...r].sort()

Попробуйте онлайн!

JavaScript (ES6), 74 байта

Принимает вход как (gold, silver, bronze, 'rep'). Возвращает логическое значение.

(g,s,b,r)=>(F=s=>[...s].sort()+0)(r)==F([g,g,g,s,s,b].filter(x=>x).join``)

Попробуйте онлайн!

MATL , 28 байтов 20 байтов 16 байтов 13 байтов

Возвращает 0 для false и 1 для true. Это может определенно быть в гольфе.

[1,3,2,1]Y"t2:7)XzVXzY@Ums0>

Уменьшение до 16 байт, если оценка репутации может быть взята отдельно, а порядок [бронза, серебро, золото], репутация.
До 13 байтов благодаря Луису Мендо.

3:Y"XzVXzY@Um

Попробуйте онлайн!

Рубин , 69 байт

->r,g,s,b{([g,g,g,s,s,b]-[0]).flat_map(&:digits).sort==r.digits.sort}

Попробуйте онлайн!

J , ^{38 34} 31 байт

-:&(/:~)&":3 2 1;@#*#&.><@":"0 

Попробуйте онлайн!

Japt , 14 13 12 байт

íp fn ¬á øUg

Принимает вход как [rep, bronze, silver, gold]

Попробуйте или проверьте все тесты

Sample input: U = [1447, 17, 4, 0]
íp            Repeats each value of U by it's index amount e.g. ["","17","44","000"]
  fn          Remove all falsy values when converted to a number e.g. ["17","44"]
    ¬         Concatenate e.g. "1744"
     á        All permutations e.g. ["1744","1744","1474","1447","1474","1447","7144","7144","7414","7441","7414","7441","4174","4147","4714","4741","4417","4471","4174","4147","4714","4741","4417","4471"]
      øUg     Does it contain the first item of the input? 

Сетчатка 0.8.2 , 45 байт

,0
,
,(\d*),(\d*),
¶$1$1$1$2$2
%O`.
^(.+)¶\1$

Попробуйте онлайн! Ссылка включает тестовый набор. Объяснение:

,0
,

Удалить ноль баллов.

,(\d*),(\d*),
¶$1$1$1$2$2

Разверните счетчики золота и серебра и преобразуйте разделитель в новую строку.

%O`.

Сортируйте репутацию и расширенные баллы отдельно.

^(.+)¶\1$

Сравните отсортированные цифры.

Желе , 10 байт

xJ$¹ƇV,Ṣ€E

Попробуйте онлайн!

Аргумент 1: [Bronze, Silver, Gold]
Аргумент 2:Rep

Ракетка, 149 107 98 байт

(λ(r b s g[h(λ x(sort(string->list(apply ~a(remq*'(0)x)))char<?))])(equal?(h r)(h b s s g g g)))

Попробуйте онлайн!

Первый раз играю в гольф в ракетке, поэтому все еще ищу улучшения ...

Пояснение (оригинальной более длинной версии, но та же идея):

(λ(r b                              ; take rep and badges as arguments
     [g(λ(x)                        ; helper function g which takes a string
         (sort                      ; and returns the sorted
           (string->list x)         ; list of characters
           char<?))])               ; (sort by ascii code)
  (equal?                           ; compare...
    (g(~a r))                       ; g called on the rep converted to string
    (g                              ; and g called on...
      (string-join                  ; the concatenation of
        (map ~a                     ; the stringified elements of
             (append*               ; the flattened list given by
               (filter              ; the elements of the following list where
                 (λ(x)(>(car x)0))  ; the badge count is nonzero:
                 (map make-list     ; repeat the badge counts
                      '(1 2 3)b)))) ; 1, 2, and 3 times respectively
        ""))))

Древесный уголь , 24 байта

1Ｆ⁴Ｆ↨ＮχＦι⊞υκＦχ¿⁻№υι№θＩι⎚

Попробуйте онлайн! Ссылка на подробную версию кода. Принимает вход в порядке повтор, бронза, серебро, золото и выводит, 1если ответ действителен. Объяснение:

1

Предположим, что ответ действителен.

Ｆ⁴Ｆ↨ＮχＦι⊞υκ

Цикл по четырем входным значениям. Нажмите каждую цифру каждого значения iраз, где iнаходится индекс с 0 индексами значения. Числовое базовое преобразование используется здесь, поскольку оно преобразует 0в пустой массив.

Ｆχ¿⁻№υι№θＩι⎚

Проверьте, что число каждой цифры в массиве совпадает со значением в первом входе. Если они отличаются, очистите холст.

Желе , 18 байт

DẋṠƊ€ẋ"3RU¤FṢ⁼⁴DṢ¤

Попробуйте онлайн!

это немного плохо

Python 2 , 80 79 77 68 байт

lambda r,g,s,b:S((g>0)*3*`g`+(s>0)*2*`s`+(b>0)*`b`)==S(`r`)
S=sorted

Попробуйте онлайн!

Принимает вход как rep, gold, silver, bronze.

Perl 5 -lF , 62 байта

map{@r=sort/./g,@r if($_=<>x$_)>0}1..3;@F=sort@F;say"@r"eq"@F"

Попробуйте онлайн!

Принимает ввод в отдельных строках как

reputation
bronze
silver
gold