これは、2016 ARMLコンテストチーム問題＃6の一部に触発されました。

ここに課題があります：

数字と別の文字のシーケンスである「ワイルドカードシーケンス」が与えられます。文字列は、次の疑似コードによってこのワイルドカードシーケンスと一致します。

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

どこ '？' お好みのキャラクターです。

正規表現に関しては、を想像し'?'てみてください'.'。

問題は、10進数の文字列表現がこのワイルドカードシーケンスと一致するすべての平方数（要件は最大100万個）を見つけることです。「ワイルドカード文字」は、明らかに数字でない限り、任意の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（100万）を処理できる必要があります。
• 入力とともに提供されている場合は、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]

勝利

2月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@@@ ...

それらを印刷します。

Brachylog、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

オンラインでお試しください！

これは基本的に上記の回答の2番目の部分であり、数字とワイルドカードがある変数を含む入力としてのリストがあります。

ただし、ブラキログ（大文字）には変数名が26個しかないため、これを有効とは見なしません。

Perl 6の、30の 26バイト

-4バイトの@ b2gillsに感謝！

{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)»²}

Ruby、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バイト

編集：ジョンファンミンの答えに触発された後、以下の私のソリューションを更新しました。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個の正方形（1Mを含む）のリストを作成し、それらすべてを文字列にキャストしてから、それらがパターンに一致する場所をチェックします。

    {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が再帰のためにスタック領域を使い果たしているか、または終わらないパイプの問題）。