Це надихнуло частину змагань команд 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&—

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

Пояснення, щоб прийти після подальшого гольфу.

Математика, 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 байт

EDIT: Оновлено моє рішення нижче після того, як надихнувся відповіддю ЮнгХвана Міна . Тепер він сумісний з 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 байт

EDIT: уточнення від Алекса, ми можемо використовувати період як символ підстановки, який голить операцію y //.

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

EDIT: рішення, яке використовує зірочку як символ підстановки та очікує послідовності підстановки на 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 квадратів (включно до 1М), відкидає їх до рядків, а потім перевіряє, де вони відповідають шаблону.

    {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.

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

Це працює, коли я запускаю його на фактичній системі Linux або OS X (але це не працює в TIO, можливо, тому що програма dc намагається повторитись назавжди, і я підозрюю, що у TIO не вистачає місця для стеки для рекурсії та / або проблема з нескінченною трубою).