Bu, 2016 ARML yarışması Takım Sorunu # 6'nın bir parçasıydı.

İşte zorluk:

Size bir rakam dizisi ve başka bir karakter olan bir "joker karakter dizisi" verilir. Bir dize, bu joker karakter dizisiyle aşağıdaki sahte kodla eşleşir:

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

Nerede '?' seçtiğiniz bir karakterdir.

Regex açısından, sadece hayal '?'olmaya '.'.

Zorluk, ondalık dizgi gösterimleri bu joker karakter dizisiyle eşleşen tüm kare sayılarını (gereksinim 1 milyona kadardır) bulmaktır. "Joker karakter", bir rakam olmadığı sürece, seçtiğiniz herhangi bir ASCII karakteri olabilir.

Örneğin, 4096maçları 4**6ve 4*9*fakat 4114ikisinden biri uyuşmuyor.

Giriş

Giriş normal ifadeyle eşleşen bir sıra olarak verilecektir [0-9?]+. Bu, bir dize, bir karakter dizisi veya ASCII'deki karakterlerin bayt dizisi olabilir.

Çıktı

Çıktı, mükemmel kareler olan ve joker karakter dizisiyle eşleşen, istediğiniz sınırlandırılmış liste / küme / sayı dizisi olacaktır.

Geçerli girdi örnekleri:

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]

Geçerli çıktı örnekleri:

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

vb.

Özellikler

• Belirli bir aralıktaki karelerin bir listesini bulmak için yerleşikleri kullanamazsınız
• Standart Loopholes Uygula
• 1 000 000'e (1 milyon) kadar işlem yapabilmelisiniz
• Giriş ile birlikte verilirse 1******, yazdırmak doğrudur [1000000]. Yazdırmak da doğru[1000000, 1002001, 1004004, 1006009, 1008016, 1010025, ...]
• Joker karakter dizileri hiçbir zaman joker karakterle başlamaz; yani, her zaman aynı uzunlukta dizelerle eşleşeceklerdir.

Test Durumları

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]

Kazanan

14 Şubat'a kadar en kısa (geçerli) (çalışan) gönderim, en erken gönderim kazanarak eşitlik.

05AB1E , 22 bayt

Muhtemelen burada iyileştirilmesi için bol yer.
Sayı olmayan tüm karakterler joker karakter olarak kullanılabilir.

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

Çevrimiçi deneyin!

Daha fazla golf sonrası gelecek açıklama.

Mathematica, 44 bayt

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

Girdi, _joker karakter olarak (tırnak işaretleri olmadan) rakamların listesidir . Örneğin{4, _, _, 6}

açıklama

Range@1*^3

Liste oluştur {1, 2, 3, ... , 1000}

... ^2

Kare. (1 ile 1.000.000 arasındaki tüm karelerin listesi)

IntegerDigits[ ... ]

Her kareyi bir rakam listesine bölün.

... ~Cases~#

Giriş tarafından belirtilen desenle eşleşenleri bulun.

Print@@@ ...

Yazdırın.

Brachylog , 23 bayt

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

Çevrimiçi deneyin!

açıklama

@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

Farklı giriş formatı, 13 bayt

Girdi olarak geçerli olarak değerlendirdiğiniz şeye bağlı olarak, bunu yapabilirsiniz:

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

Çevrimiçi deneyin!

temel olarak yukarıdaki cevabın ikinci kısmıdır ve joker karakterlerin bulunduğu basamakları ve değişkenleri içeren girdi olarak bir liste içerir.

Bunu geçerli bulmuyorum çünkü Brachylog'da (büyük harfler) sadece 26 değişken ismi var, bu yüzden 26'dan fazla wilcards varsa bu işe yaramaz.

Perl 6 , 30 26 bayt

-4 baytlık @ b2gills sayesinde!

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

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

Girdinin normal ifade olarak kullanılabilmesi için noktayı joker karakter olarak kullanır:

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

Çevrimiçi deneyin .

Yıldız işaretini joker karakter olarak kabul eden bir varyant (görev açıklamasının önceki bir düzeltmesiyle önerildiği gibi) 42 bayt olur:

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

Ruby, 54 bayt

Dize bağımsız değişkenini alan işlev. Çevrimiçi deneyin.

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

Toplu, 109 bayt

@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

?Joker karakter olarak kullanır . 1000 dosya oluşturarak çalışır. Dosyanın adı kare numarasıdır ve dosyanın uzantısı $sonek içeren kare numarasıdır . Sondaki toplu en desen eşleştirme sayar Bunun nedeni ?opsiyonel olarak s, böylece 1?hem eşleşir 1ve 16; bu $nedenle maçı kesin olmaya zorlar. Ancak, çıktısını almak istemiyoruz $, bu yüzden dosya adını sadece uzantı olmadan çıkarıyoruz.

JavaScript (ES6), 68 66 bayt

EDIT: JungHwan Min'in cevabından ilham aldıktan sonra aşağıdaki çözümümü güncelledim . Artık ES6 uyumlu.

Joker karakterin '1..4'bulunduğu formatta girdi alır ..

1e6'ya yineleme ve kare köklenme yerine bu 1e3 ve karelere yinelenir.

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 bayt

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

0 ile 1e6 arasında bir sayı dizisi oluşturur, ardından kare ve desene uygun sayılarla filtreler.

Korkunç derecede yavaştır, çünkü her zaman 1e6'ya kadar yinelenir.

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 bayt

DÜZENLEME: Alex tarafından açıklama, bu dönemi y // işlemini kesen joker karakter olarak kullanabiliriz.

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

EDIT: yıldız işareti joker karakter olarak kullanan ve STDIN üzerinde joker sıra beklemek çözüm

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

Bu hiç şüphesiz iyileştirme için çok fazla alan bırakıyor, oldukça basit. Joker karakter ifadesinin nokta joker karakteriyle (başka ne?) Komut satırı bağımsız değişkeni olması beklenir.

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

Python 3-98 97 bayt

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

'4..6' gibi giriş gerektirir.

k - 28 karakter

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

Kullanımları ?joker karakter olarak. likeFonksiyon kullanımları ?joker olarak ve bu fonksiyon ilk 1001 karelerinden oluşan bir liste yapar, sonra da kalıpla eşleşen çekleri dizeleri hepsini atmalarını ve (1M dahil olmak üzere).

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

bash + Unix yardımcı programları, 33 bayt

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

Bu '.' joker karakter olarak.

Dc programı kare sayıları sonsuz bir döngü halinde yazdırır:

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 çıkışı grep'e borudur, bu da sadece gerekli desene uyan kareleri yazdırır.

Bu, gerçek bir Linux veya OS X sisteminde çalıştırdığımda çalışır (ancak muhtemelen DC programı sonsuza kadar geri almaya çalıştığı için TIO'da çalışmaz ve TIO'nun özyineleme için yığın alanının bitmesinden ve / veya hiç bitmeyen bir boru ile ilgili bir sorun).