Điều này được lấy cảm hứng từ một phần của Bài toán nhóm 6 của cuộc thi ARML # 6.

Đây là thách thức:

Bạn được cung cấp một "chuỗi ký tự đại diện", đó là một chuỗi các chữ số và một ký tự khác. Một chuỗi khớp với chuỗi ký tự đại diện này bằng mã giả sau:

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

Ở đâu '?' là một nhân vật của sự lựa chọn của bạn.

Về mặt regex, chỉ cần tưởng tượng '?'để được '.'.

Thách thức là tìm tất cả các số vuông (yêu cầu lên tới 1 triệu) có biểu diễn chuỗi thập phân khớp với chuỗi ký tự đại diện này. "Ký tự đại diện" có thể là bất kỳ ký tự ASCII nào bạn chọn, miễn là nó không phải là một chữ số, rõ ràng.

Ví dụ: 4096khớp 4**6và 4*9*nhưng 4114cũng không khớp.

Đầu vào

Đầu vào sẽ được đưa ra như một chuỗi khớp với biểu thức chính quy [0-9?]+. Đây có thể là một chuỗi, một mảng ký tự hoặc một mảng byte của các ký tự trong ASCII.

Đầu ra

Đầu ra sẽ là một danh sách / tập hợp / mảng số bất kỳ bạn muốn phân tách thành các ô vuông hoàn hảo và khớp với chuỗi ký tự đại diện.

Ví dụ về các đầu vào hợp lệ:

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]

Ví dụ về đầu ra hợp lệ:

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

Vân vân.

Thông số kỹ thuật

• Bạn không được sử dụng nội dung để tìm danh sách các ô vuông trong một phạm vi nhất định
• Áp dụng sơ hở tiêu chuẩn
• Bạn phải có khả năng xử lý lên tới 1 000 000 (1 triệu)
• Nếu được cung cấp với đầu vào 1******, nó là chính xác để in [1000000]. Nó cũng đúng để in[1000000, 1002001, 1004004, 1006009, 1008016, 1010025, ...]
• Trình tự ký tự đại diện sẽ không bao giờ bắt đầu với ký tự đại diện; nghĩa là, chúng sẽ luôn khớp với các chuỗi có cùng độ dài.

Các trường hợp thử nghiệm

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]

Chiến thắng

Gửi ngắn nhất (hợp lệ) (làm việc) trước ngày 14 tháng 2, hòa vốn bằng cách giành chiến thắng sớm nhất.

05AB1E , 22 byte

Có lẽ rất nhiều phòng để cải thiện ở đây.
Bất kỳ chữ số nào cũng được dưới dạng ký tự đại diện.

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

Hãy thử trực tuyến!

Giải thích để đến sau khi chơi golf.

Toán học, 44 byte

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

Đầu vào là danh sách các chữ số có _ký tự đại diện (không có dấu ngoặc kép). ví dụ{4, _, _, 6}

Giải trình

Range@1*^3

Tạo danh sách {1, 2, 3, ... , 1000}

... ^2

Làm vuông nó. (danh sách tất cả các ô vuông từ 1 đến 1.000.000)

IntegerDigits[ ... ]

Chia mỗi hình vuông thành một danh sách các chữ số.

... ~Cases~#

Tìm những cái phù hợp với mẫu được chỉ định bởi đầu vào.

Print@@@ ...

In chúng.

Brachylog , 23 byte

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

Hãy thử trực tuyến!

Giải trình

@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

Định dạng đầu vào khác nhau, 13 byte

Tùy thuộc vào những gì bạn coi là hợp lệ làm đầu vào, bạn có thể làm điều này:

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

Hãy thử trực tuyến!

về cơ bản là phần thứ hai của câu trả lời ở trên, với một danh sách là đầu vào chứa các chữ số và các biến có ký tự đại diện.

Tôi không xem xét điều này hợp lệ mặc dù chỉ có 26 tên biến trong Brachylog (chữ in hoa), vì vậy điều này sẽ không hoạt động nếu bạn có nhiều hơn 26 wilcard.

Perl 6 , 30 26 byte

Cảm ơn @ b2gills cho -4 byte!

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

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

Sử dụng dấu chấm dưới dạng ký tự đại diện, để đầu vào có thể được sử dụng làm biểu thức chính quy:

{                            }   # 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

Hãy thử trực tuyến .

Một biến thể chấp nhận dấu hoa thị dưới dạng ký tự đại diện (như được đề xuất bởi phiên bản trước của mô tả tác vụ) sẽ là 42 byte:

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

Ruby, 54 byte

Hàm có một đối số chuỗi. Hãy thử trực tuyến.

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

Mẻ, 109 byte

@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

Sử dụng ?như ký tự đại diện. Hoạt động bằng cách tạo 1000 tệp. Tên của tệp là số vuông và phần mở rộng của tệp là số vuông có $hậu tố. Điều này là do khớp mẫu của Batch đếm số ?s là tùy chọn, do đó 1?sẽ khớp cả hai 1và 16; các $do đó buộc trận đấu để được chính xác. Tuy nhiên, chúng tôi không muốn xuất ra $, vì vậy chúng tôi chỉ xuất tên tệp mà không có phần mở rộng.

JavaScript (ES6), 68 66 byte

EDIT: Cập nhật giải pháp của tôi dưới đây sau khi được truyền cảm hứng từ câu trả lời của JungHwan Min . Bây giờ nó là tuân thủ ES6.

Đưa đầu vào trong các định dạng '1..4'mà .là ký tự đại diện.

Thay vì lặp lại thành 1e6 và căn bậc hai, cái này lặp lại thành 1e3 và hình vuông.

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 byte

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

Tạo một mảng các số từ 0 đến 1e6 sau đó lọc nó theo các số vuông và khớp với mẫu.

Nó rất chậm vì nó luôn lặp lại thành 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 byte

EDIT: làm rõ bởi Alex, chúng ta có thể sử dụng dấu chấm làm ký tự đại diện để loại bỏ thao tác y //.

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

EDIT: giải pháp sử dụng dấu hoa thị làm ký tự đại diện và mong đợi chuỗi ký tự đại diện trên STDIN

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

Điều này chắc chắn để lại rất nhiều cơ hội để cải thiện, nó khá đơn giản. Biểu thức ký tự đại diện được dự kiến ​​là đối số dòng lệnh, với ký tự đại diện dấu chấm (còn gì nữa không?).

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

Python 3 - 98 97 byte

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

Yêu cầu đầu vào như '4..6'.

k - 28 ký tự

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

Sử dụng ?như ký tự đại diện. Các likesử dụng chức năng ?như một ký tự đại diện, và chức năng này tạo ra một danh sách 1001 hình vuông đầu tiên (được bao gồm để 1M), phôi tất cả chúng thành các chuỗi, và sau đó kiểm tra nơi họ phù hợp với mô hình.

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

bash + tiện ích Unix, 33 byte

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

Cái này sử dụng '.' như nhân vật ký tự đại diện.

Chương trình dc in các số vuông trong một vòng lặp vô hạn:

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.

Đầu ra dc được dẫn đến grep, chỉ in các ô vuông phù hợp với mẫu yêu cầu.

Điều này hoạt động khi tôi chạy nó trên hệ thống Linux hoặc OS X thực tế (nhưng nó không hoạt động tại TIO, có lẽ vì chương trình dc cố gắng lặp lại mãi mãi và tôi nghi ngờ TIO hết dung lượng ngăn xếp cho đệ quy và / hoặc có một vấn đề với đường ống không bao giờ kết thúc).