สิ่งนี้ได้รับแรงบันดาลใจจากส่วนหนึ่งของปัญหาการแข่งขัน ARML ประจำปี 2559

นี่คือความท้าทาย:

คุณได้รับ "ลำดับตัวแทน" ซึ่งเป็นลำดับตัวเลขและตัวละครอื่น สตริงตรงกับลำดับ wildcard นี้โดย pseudocode ต่อไปนี้:

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

ที่ไหน '?' เป็นตัวละครที่คุณเลือก

ในแง่ของการ regex เพียงจินตนาการที่จะเป็น'?''.'

ความท้าทายคือการหาหมายเลขสแควร์ทั้งหมด (ความต้องการสูงถึง 1 ล้าน) ซึ่งมีการแทนสตริงสตริงตรงกับลำดับสัญลักษณ์ตัวแทนนี้ "อักขระตัวแทน" สามารถเป็นอักขระ ASCII ใด ๆ ที่คุณเลือกได้ตราบใดที่ไม่ใช่ตัวเลข

ตัวอย่างเช่น4096จับคู่4**6และ4*9*แต่4114ไม่ตรงกัน

อินพุต

การป้อนข้อมูลจะได้รับการจับคู่เป็นลำดับ [0-9?]+regex นี่อาจเป็นสตริงอาร์เรย์อักขระหรืออาร์เรย์ไบต์ของอักขระใน 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@@@ ...

พิมพ์พวกเขา

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

ลองออนไลน์!

ซึ่งโดยทั่วไปเป็นส่วนที่สองของคำตอบข้างต้นโดยมีรายการเป็นอินพุตที่มีตัวเลขและตัวแปรที่เป็นสัญลักษณ์แทน

ฉันไม่คิดว่าสิ่งนี้ถูกต้องเพราะมีเพียง 26 ชื่อตัวแปรใน Brachylog (ตัวอักษรตัวพิมพ์ใหญ่) ดังนั้นสิ่งนี้จะไม่ทำงานหากคุณมีวิลการ์ดมากกว่า 26 ตัว

Perl 6 , 30 26 ไบต์

ขอบคุณ @ b2gills สำหรับ -4 ไบต์!

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

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

ใช้จุดเป็นอักขระตัวแทนเพื่อให้อินพุตสามารถใช้เป็น regex:

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

ลองมันออนไลน์

ตัวแปรที่ยอมรับเครื่องหมายดอกจันเป็น wildcard (ตามที่แนะนำโดยการแก้ไขคำอธิบายภารกิจก่อนหน้านี้) จะมีขนาด 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

การใช้ประโยชน์ ?เป็นสัญลักษณ์แทน ทำงานโดยสร้างไฟล์ 1,000 ไฟล์ ชื่อของไฟล์คือหมายเลขสแควร์และนามสกุลของไฟล์เป็นหมายเลขสแควร์ที่มี$คำต่อท้าย นี่เป็นเพราะการจับคู่รูปแบบของแบทช์นับการติดตาม?เป็นตัวเลือกดังนั้น1?จะจับคู่ทั้งสอง1และ16; $จึงบังคับให้การแข่งขันเป็นที่แน่นอน อย่างไรก็ตามเราไม่ต้องการส่งออก$ดังนั้นเราเพียงแค่ส่งชื่อไฟล์โดยไม่มีนามสกุล

JavaScript (ES6) 68 66 ไบต์

แก้ไข:อัปเดตโซลูชันของฉันด้านล่างหลังจากได้รับแรงบันดาลใจจากคำตอบของ JungHwan Minคำตอบที่จองฮวานมินตอนนี้เป็นไปตามมาตรฐาน ES6

ใช้อินพุตในรูปแบบ '1..4'ที่.เป็นสัญลักษณ์แทน

แทนที่จะวนซ้ำเป็น 1e6 และกำลังสองเป็นราก

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 สี่เหลี่ยมแรก (จะรวม 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.

เอาต์พุต dc ถูกไพพ์ไปที่ grep ซึ่งจะพิมพ์เฉพาะสี่เหลี่ยมที่ตรงกับรูปแบบที่ต้องการ

ใช้งานได้เมื่อฉันเรียกใช้บนระบบ Linux หรือ OS X จริง ๆ (แต่มันไม่ทำงานที่ TIO อาจเป็นเพราะโปรแกรม dc พยายามที่จะเรียกคืนตลอดไปและฉันสงสัยว่า TIO หมดพื้นที่สแต็กสำหรับการเรียกซ้ำและ / หรือมี ปัญหากับท่อไม่สิ้นสุด)