Codegolf – Найдите Соответствующие Группы Цифр

Недавно моя репутация была

 
 function f
integer N
boolean result

n -> n == n
1230192
true

n -> n != n
42
false

n -> n > 400
420000
false

n -> n > 0
0
false

n -> n -> 0
1
true

n -> sqrt(n) ** 2 == n
25121
true

n -> sqrt(n) ** 2 == n 
4101
false

n -> mod(n, 2) == 0
2902414
true

n -> n % 10 > max(digits(n / 10))
10239120
false

n -> n % 10 > max(digits(n / 10))
123456789
true
 
 

Ваша задача состоит в том, чтобы, учитывая неотрицательное целое число Н и унарное логическое значение Функция черного ящика ж : З^* → Б , дают истинное значение, если каждое значение ж применяется к группам цифр Н правдиво, а в противном случае ложно.

Группы цифр можно найти, разделив число на группы по 3, начиная с правой стороны. Крайняя левая группа может содержать 1, 2 или 3 цифры. Несколько примеров:

Дополнительные правила

• Эта функция может сопоставляться с любыми логическими значениями (например, n -> n == 0 and n -> f(n) ), 0 s and 1 s или любое истинное/ложное значение. Укажите, какой формат(ы) поддерживается вашим ответом.
• В качестве входных данных вы можете взять целое число или целочисленную строку (т. е. строку, состоящую из цифр).
• Вы можете написать программу или функцию.
• При передаче цифровых групп в функцию ж, вам следует обрезать все ненужные ведущие нули. Например., ж, применительно к Н = 123 000 должно быть выполнено как ж(123) и ж(0).

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

Обозначение функции false , e.g., true . Все операторы предполагают целочисленную арифметику. (Например., 12398123 -> 12,398,123 (3 digit groupings) 10 -> 10 (1 digit grouping) 23045 -> 23,045 (2 digit groupings) 100000001 -> 100,000,001 (3 digit groupings) 1337 -> 1,337 (2 digit groupings) 0 -> 0 (1 digit grouping) )

#код-гольф #число #задача принятия решения #функциональное программирование

Брахилог, 8 байт

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 n -> n == n                           X{X==X}
n -> n != n                           X{X!=X}
n -> n > 400                          X{X>400}
n -> n > 0                            X{X>0}
n -> n -> 0                           X{X{0}}
n -> sqrt(n) ** 2 == n                X{Xq v1}
n -> mod(n, 2) == 0                   X{X%2==0}
n -> n % 10 > max(digits(n / 10))     X{X>Xz10 ì rw}
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

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

Функция черного ящика располагается во второй строке (или в нижнем колонтитуле TIO), а целое число считывается из STDIN. Принты V or ò3n)mn eV соответственно.

АПЛ (Диалог), 16 13 байт

Сэкономлено 3 байта благодаря @Adám

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

Как?

`ΛmrC_3 - input the number and encode in base 1000

D,f,@,0.5^i2^A= ; Declares a function 'f' to check if a perfect square ; E.g. 25 -> 1; 26 -> 0 L, ; Declare the main lambda function ; Example argument: [25121] 1000$bb ; Convert to base 1000 STACK = [[25 121]] bUª{f} ; Is 'f' true for all? STACK = [1] - input the function and apply on each

f - reduce with logical and

Желе, 5 байт

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

Аргументом командной строки является число. Строка над строкой, в которой находится эта функция, является основной строкой остальной части программы, то есть кода, который вызывается для каждой из групп. Будьте осторожны, не ссылайтесь на строку (lambda (n f) ; Function with parameters n and f (all ; Return true if all elements of this list are truthy: (map f ; Map the function f to each element of (or ; This list if it is nonempty: (to-base 1000 n) ; Convert n to a list of "digits" in base 1000 (q (0)) ; Or if that list is empty (when n=0), then use the list (0) instead )))) is in! Используемый здесь пример — это пятый тестовый пример.

Питон 2, 46 байт

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

Хаскель, 42 40 38 байт

Функция черного ящика должна вернуть false or 1 .

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

Изменить: -2 -4 байта благодаря @ovs.

С (ГКК), 66 58 48 байт

-10 байт благодаря @Neil!

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

Язык Wolfram (Математика), 30 байт

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

JavaScript (ES6), 40 36 байт

Принимает функцию и значение путем каррирования и возвращает 0 или 1. Изменить: сэкономлено 4 байта благодаря @Shaggy.

Пиф, 9 байт

Попробуйте онлайн! (использует третий тестовый пример)

Предполагается, что функция черного ящика имеет имя Public Function f(ByVal n As Integer) As Boolean Let f = (n Mod 2 = 0) End Function . You can declare such a function using f() (аргумент: t=1:n=[A1]:While n:t=t*-Application.Run(""&[B1],n Mod 1E3):n=Int(n/1E3):Wend:?t ), as shown on TIO. I will implement all the test cases later, if I have time.

Стакс, 8 байт

Программы Stax не имеют вызовов функций или аргументов, поэтому мы сохраняем блок в [A1] register that consumes and produces a single value. This can be done before the program code.

Вот пример используя функцию идеального квадрата.

Чистый, 54 байта

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

Определяет функцию ₄вεI.V}P , expecting a function (defun g(x f)(and(funcall f(mod x 1000))(or(< x 1e3)(g(floor x 1e3)f)))) быть определены в другом месте.

Java (OpenJDK 9), 94 байта

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

Общий Лисп, 73 72 байта

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

05AB1E, 8 байт

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

Объяснение

Принимает число в качестве первой строки ввода, а функцию — во второй.
Выходы 1 за правдивость и 0 за ложь.

Excel VBA, 79 байт

Анонимная оконная функция VBE, которая принимает входные данные, {...}Yd store a block in the Y register that executes ... Vk|E get "digits" of input using base 1000 ym map "digits" to array using y as mapping function |A all elements are truthy? as type integer from range Y и имя общедоступной функции VBA из диапазона Vk|Eym|A .

Пример использования

В общедоступном модуле функция ввода в данном случае L is defined.

Входные переменные установлены.

Затем вызывается непосредственная оконная функция.

Руби, 37 байт

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

Рекурсивная лямбда, принимающая функцию и целое число и возвращающая логическое значение.

36 байт (только положительное n)

Эта версия возвращает False for truthy, True для фейси. К сожалению, это может потерпеть неудачу, когда f#n=f(mod n 1000)&&(n<1||f#div n 1000)

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

Яблочное семя, 51 байт

Анонимная лямбда-функция, которая принимает число и функцию и возвращает логическое значение.

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

Добавить++, 15 байт

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

Требуется функция ∧/ to be declared in the TIO header.

Как это работает

Шелуха, 7 байт

Попробуйте онлайн! Берет Н как строка и ж как функциональный объект. Учитывая число, ж может возвращать любое истинное или ложное значение.

Япт, 9 байты

Пришлось пожертвовать 3 байтами и принять ввод в виде строки, чтобы обработать ∧/⎕¨1e3⊥⍣¯1⊢⎕ test case when ḃ₁₀₀₀ Compute the base-1000 digits of the input. ↰₁ᵐ Map the blackbox predicate over each digit. We don't care about the result of the map, but the predicate must succeed for each digit, otherwise the entire map fails. . Я мог бы вернуть их, если бы было разрешено передавать группировки в функцию в виде строк и при необходимости преобразовывать их в целые числа внутри функции.

Попробуйте это

Функция, как это разрешено консенсусом, заранее присваивается переменной true. on the second line of the header - the empty first line is essential.

Вот все функции тестовых примеров, переписанные для Japt.