Это было вдохновлено частью задачи команды № 6 конкурса ARML 2016 года.

Вот проблема:

Вам дана «последовательность символов подстановки», которая представляет собой последовательность цифр и другого символа. Строка соответствует этой последовательности подстановочных знаков следующим псевдокодом:

w = wildcard
s = string
# s matches w iff
for all 0 >= i > wildcard.length, w[i] == '?' or s[i] == w[i]

Куда '?' это персонаж по вашему выбору.

С точки зрения регулярных выражений, просто представьте, что '?'это так '.'.

Задача состоит в том, чтобы найти все квадратные числа (требование до 1 миллиона), чьи десятичные строковые представления соответствуют этой последовательности символов подстановки. «Подстановочный знак» может быть любым символом ASCII по вашему выбору, если, конечно, это не цифра.

Так , например, 4096спички 4**6и , 4*9*но 4114не соответствует ни.

вход

Ввод будет дан как последовательность, соответствующая регулярному выражению [0-9?]+. Это может быть строка, массив символов или байтовый массив символов в ASCII.

Вывод

Выходными данными будет список / набор / массив чисел, которые вы хотите разделить, которые являются идеальными квадратами и соответствуют последовательности символов подстановки.

Примеры допустимых входных данных:

1234567*90
1234567?90
1234567u90
['1', '2', '3', '4', '5', '6', '7', '*', '9', '0']
[49, 50, 51, 52, 53, 54, 55, 42, 57, 48]
[1, 2, 3, 4, 5, 6, 7, '*', 9, 0]

Примеры действительных результатов:

[1, 4, 9]
1 4 9
1, 4, 9
1-4-9

и т.п.

Характеристики

• Вы не можете использовать встроенные функции для поиска списка квадратов в определенном диапазоне.
• Применяются стандартные лазейки
• Вы должны быть в состоянии обработать до 1 000 000 (1 миллион)
• Если предоставляется вход 1******, это правильно для печати [1000000]. Также правильно печатать[1000000, 1002001, 1004004, 1006009, 1008016, 1010025, ...]
• Последовательности подстановочных знаков никогда не начинаются с подстановочного знака; то есть они всегда будут соответствовать строкам одинаковой длины.

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

4**6  ->  [4096, 4356]
1**1  ->  [1521, 1681]
1**  ->  [100, 121, 144, 169, 196]
9****9  ->  [908209, 915849, 927369, 935089, 946729, 954529, 966289, 974169, 986049, 994009]
9*9***  ->  [919681, 929296]
1**0*  ->  [10000, 10201, 10404, 10609, 12100, 14400, 16900, 19600]
9***4  ->  [91204, 94864, 97344]

выигрыш

Самая короткая (действительная) (рабочая) подача до 14 февраля, тай-брейк за самую раннюю подачу.

05AB1E , 22 байта

Вероятно, здесь есть много возможностей для улучшения.
Любой не цифра в порядке подстановочного знака.

3°LnvyS¹)ø€Æ0QPyg¹gQ&—

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

Объяснение, чтобы прийти после дальнейшего игры в гольф.

Mathematica, 44 байта

Print@@@IntegerDigits[Range@1*^3^2]~Cases~#&

Входные данные представляют собой список цифр с _(без кавычек) в качестве подстановочного знака. например{4, _, _, 6}

объяснение

Range@1*^3

Создать список {1, 2, 3, ... , 1000}

... ^2

Квадрат это. (список всех квадратов от 1 до 1 000 000)

IntegerDigits[ ... ]

Разбейте каждый квадрат на список цифр.

... ~Cases~#

Найдите те, которые соответствуют шаблону, указанному на входе.

Print@@@ ...

Распечатайте их.

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

@e:{@$|,}a#0:{c.~^#I,}f

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

объяснение

@e                        Split into a list of characters
  :{@$|,}a                Replace each digit char by the corresponding digit, and each things
                            that are ot digits into variables
          #0              All elements of the resulting list must be digits
            :{       }f   Output is the result of finding all...
              c.            ...concatenations of those digits which...
               .~^#I,       ...result in a number which is the square of an integer #I

Другой формат ввода, 13 байтов

В зависимости от того, что вы считаете допустимым в качестве входных данных, вы можете сделать это:

#0:{c.~^#I,}f

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

это в основном вторая часть ответа выше, со списком в качестве входных данных, содержащим цифры и переменные, в которых используются подстановочные знаки.

Я не считаю это действительным, потому что в Brachylog есть только 26 имен переменных (заглавные буквы), поэтому это не сработает, если у вас будет более 26 wilcards.

Perl 6 , 30 26 байтов

Спасибо @ b2gills за -4 байта!

{grep /^<$_>$/,map * **2,^1e4}

{grep /^<$_>$/,(^1e4)»²}

Использует точку как символ подстановки, так что ввод может использоваться как регулярное выражение:

{                            }   # a lambda
                         ^1e4    # range from 0 to 9999
               map * **2,        # square each value
 grep /      /,                  # filter numbers that match this regex:
        <$_>                     #   lambda argument eval'ed as sub-regex
       ^    $                    #   anchor to beginning and end

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

Вариант, который принимает звездочку как подстановочный знак (как было предложено в предыдущей редакции описания задачи), составляет 42 байта:

{grep /^<{.trans("*"=>".")}>$/,(^1e4)»²}

Рубин, 54 байта

Функция, которая принимает строковый аргумент. Попробуйте онлайн.

->s{(0..1e3).map{|i|"#{i**2}"[/^#{s.tr ?*,?.}$/]}-[p]}

Пакетный, 109 байтов

@for /l %%i in (0,1,999)do @set/aj=%%i*%%i&call copy nul %%j%%.%%j%%$>nul
@for %%s in (%1.%1$)do @echo %%~ns

Используется ?как подстановочный знак. Работает, создав 1000 файлов. Имя файла - это квадратное число, а расширение файла - это квадратное число с $суффиксом. Это связано с тем, что сопоставление с образцом в Batch считает трейлинг ?s необязательным, поэтому 1?будет совпадать 1и с 16; $поэтому заставляет матч , чтобы быть точным. Однако мы не хотим выводить $, поэтому мы просто выводим имя файла только без расширения.

JavaScript (ES6), 68 66 байт

РЕДАКТИРОВАТЬ: Обновил мое решение ниже, после того, как вдохновил ответ JungHwan Мин . Теперь он совместим с ES6.

Принимает ввод в формате '1..4'где .подстановочный знак.

Вместо итерации до 1e6 и квадратного укоренения эта итерация до 1e3 и квадратов.

p=>[...Array(1e3)].map((_,n)=>''+n*n).filter(n=>n.match(`^${p}$`))

F=p=>[...Array(1e3)].map((_,n)=>''+n*n).filter(n=>n.match(`^${p}$`))

const update = () => {
  console.clear();
  console.log(F(input.value));
}

submit.onclick = update;
update();

<input id="input" type="text" value="9....9" style="width: 100%; box-sizing: border-box" /><button id="submit">submit</button>

JavaScript (ES7), 71 69 байт

p=>[...Array(1e6).keys()].filter(n=>n**.5%1?0:(''+n).match(`^${p}$`))

Создает массив чисел от 0 до 1e6, затем фильтрует его по квадратам и соответствует шаблону.

Это ужасно медленно, потому что оно всегда повторяется до 1e6.

F=p=>[...Array(1e6).keys()].filter(n=>n**.5%1?0:(''+n).match(`^${p}$`))

const update = () => {
  console.clear();
  console.log(F(input.value));
}

submit.onclick = update;
update();

<input id="input" type="text" value="9....9" style="width: 100%; box-sizing: border-box" /><button id="submit">submit</button>

Perl, 42 45 38 байт

РЕДАКТИРОВАТЬ: разъяснение Алекса, мы можем использовать точку в качестве символа подстановки, который сбрасывает операцию y //.

perl -pe 's|.*|@{[grep/^$&$/,map$_*$_,1..1e3]}|'

РЕДАКТИРОВАТЬ: решение, которое использует звездочку в качестве символа подстановки и ожидает последовательность символов подстановки на STDIN

perl -pe 'y/*/./;s|.*|@{[grep/^$&$/,map$_*$_,1..1e3]}|'

Этот, несомненно, оставляет много возможностей для улучшения, это довольно просто. Подстановочный знак ожидается в качестве аргумента командной строки с подстановочным знаком точки (что еще?).

say"@{[grep/^$ARGV[0]$/,map$_*$_,1..1e3]}"

Python 3 - 98 97 байт

import re;print(re.findall(r"\b"+input()+r"\b",("\n".join([str(x*x) for x in range(1,1001)]))))

Требуется ввод наподобие «4..6».

k - 28 символов

{s(&:)($:s:s*s:!1001)like x}

Пользы ? как символ подстановки. В likeфункции используется в ?качестве шаблона, и эта функция делает список первых 1001 квадратов (быть включены до оГО), отбрасывают их все строки, а затем проверяет , где они соответствуют шаблону.

    {s(&:)($:s:s*s:!1001)like x} "1??"
100 121 144 169 196

утилиты bash + Unix, 33 байта

dc<<<'0[2^pv1+lax]dsax'|grep ^$1$

Это использует "." в качестве символа подстановки.

Программа dc печатает квадратные числа в бесконечном цикле:

0     Push 0 on the stack.

[     Start a macro (called a).

2^    Square the number at the top of the stack.

p     Print the number at the top of the stack, followed by a newline.

v     Replace the number at the top of the stack (a square number) with its square root.

1+    Increment the number at the top of the stack.

lax   Run the macro again (looping).

]     End of the macro.

dsax  Store the macro in register a and run it.

Вывод dc передается в grep, который печатает только квадраты, которые соответствуют требуемому шаблону.

Это работает, когда я запускаю его в реальной системе Linux или OS X (но это не работает в TIO, возможно, потому что программа dc пытается рекурсировать вечно, и я подозреваю, что TIO не хватает места в стеке для рекурсии и / или имеет проблема с нескончаемой трубой).