Zostało to zainspirowane częścią konkursu ARML 2016 Problem zespołu nr 6.

Oto wyzwanie:

Otrzymujesz „sekwencję symboli zastępczych”, która jest sekwencją cyfr i innego znaku. Ciąg pasuje do tej sekwencji symboli wieloznacznych według następującego pseudokodu:

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

Gdzie '?' jest postacią twojego wyboru.

Jeśli chodzi o wyrażenia regularne, wyobraź sobie, że '?'jest '.'.

Wyzwanie polega na znalezieniu wszystkich liczb kwadratowych (wymaganie to do 1 miliona), których ciąg dziesiętny odpowiada ciągowi symboli zastępczych. „Znak wieloznaczny” może być dowolnym wybranym przez ciebie znakiem ASCII, o ile oczywiście nie jest cyfrą.

Na przykład, 4096mecze 4**6i 4*9*ale 4114nie pasuje albo.

Wejście

Dane wejściowe zostaną podane jako sekwencja pasująca do wyrażenia regularnego [0-9?]+. Może to być ciąg znaków, tablica znaków lub tablica bajtów znaków w ASCII.

Wynik

Wynikiem będzie dowolna lista / zestaw / tablica liczb, które są idealnymi kwadratami i pasują do sekwencji symboli wieloznacznych.

Przykłady prawidłowych danych wejściowych:

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]

Przykłady prawidłowych wyników:

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

itp.

Dane techniczne

• Nie można używać wbudowanych funkcji do znajdowania listy kwadratów w określonym zakresie
• Obowiązują standardowe luki
• Musisz być w stanie obsłużyć do 1 000 000 (1 milion)
• Jeśli jest wyposażony w dane wejściowe 1******, drukowanie jest prawidłowe [1000000]. Prawidłowe jest również drukowanie[1000000, 1002001, 1004004, 1006009, 1008016, 1010025, ...]
• Sekwencje symboli wieloznacznych nigdy nie zaczynają się od znaku wieloznacznego; oznacza to, że zawsze będą pasować do ciągów o tej samej długości.

Przypadki testowe

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]

Zwycięski

Najkrótsze (ważne) (działające) zgłoszenie do 14 lutego, rozstrzygnięcie po wygraniu najwcześniejszego zgłoszenia.

05AB1E , 22 bajty

Prawdopodobnie jest tu dużo miejsca na ulepszenia.
Każda cyfra nie będąca cyfrą jest odpowiednia jako symbol wieloznaczny.

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

Wypróbuj online!

Wyjaśnienie, które nastąpi po dalszej grze w golfa.

Mathematica, 44 bajty

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

Dane wejściowe to lista cyfr z _symbolem wieloznacznym (bez cudzysłowów). na przykład{4, _, _, 6}

Wyjaśnienie

Range@1*^3

Wygeneruj listę {1, 2, 3, ... , 1000}

... ^2

Wyprostuj to. (lista wszystkich kwadratów od 1 do 1 000 000)

IntegerDigits[ ... ]

Podziel każdy kwadrat na listę cyfr.

... ~Cases~#

Znajdź te, które pasują do wzorca określonego przez dane wejściowe.

Print@@@ ...

Wydrukuj je.

Brachylog , 23 bajty

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

Wypróbuj online!

Wyjaśnienie

@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

Inny format wejściowy, 13 bajtów

W zależności od tego, co uważasz za ważne jako dane wejściowe, możesz to zrobić:

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

Wypróbuj online!

który jest w zasadzie drugą częścią powyższej odpowiedzi, z listą jako danymi wejściowymi zawierającymi cyfry i zmienne, w których znajdują się symbole wieloznaczne.

Nie uważam tego za ważne, ponieważ w Brachylog jest tylko 26 nazw zmiennych (wielkie litery), więc nie zadziałałoby, gdybyś miał więcej niż 26 wilcards.

Perl 6 , 30 26 bajtów

Dzięki @ b2gills za -4 bajty!

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

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

Używa kropki jako znaku wieloznacznego, dzięki czemu dane wejściowe można wykorzystać jako wyrażenie regularne:

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

Wypróbuj online .

Wariant, który akceptuje gwiazdkę jako symbol wieloznaczny (jak sugerowano w poprzedniej wersji opisu zadania), miałby 42 bajty:

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

Rubinowy, 54 bajty

Funkcja, która pobiera argument ciągu. Wypróbuj online.

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

Partia, 109 bajtów

@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

Używa ?jako symbolu wieloznacznego. Działa, tworząc 1000 plików. Nazwa pliku to liczba kwadratowa, a rozszerzenie pliku to liczba kwadratowa z $sufiksem. Wynika to z faktu, że dopasowanie wzorca Batch liczy końcowe ?s jako opcjonalne, więc 1?dopasuje oba 1i 16; $dlatego zmusza mecz mają być dokładne. Jednak nie chcemy $wyprowadzać pliku, więc po prostu wypisujemy nazwę pliku tylko bez rozszerzenia.

JavaScript (ES6), 68 66 bajtów

EDYCJA: Zaktualizowałem moje rozwiązanie poniżej po zainspirowaniu odpowiedzią JungHwan Min . Jest teraz zgodny z ES6.

Pobiera dane wejściowe w formacie, w '1..4'którym .znajduje się symbol wieloznaczny.

Zamiast iteracji do 1e6 i kwadratowego zrootowania ten iteruje do 1e3 i kwadratów.

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 bajtów

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

Tworzy tablicę liczb od 0 do 1e6, a następnie filtruje ją według liczb, które są kwadratowe i pasują do wzorca.

Jest strasznie powolny, ponieważ zawsze iteruje do 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 bajtów

EDYCJA: wyjaśnienie Alexa, możemy użyć kropki jako znaku wieloznacznego, który goli operację y //.

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

EDYCJA: rozwiązanie wykorzystujące gwiazdkę jako znak wieloznaczny i oczekuje sekwencji symboli wieloznacznych na STDIN

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

Ten pozostawia niewątpliwie dużo miejsca na ulepszenia, jest całkiem prosty. Wyrażenie symbolu wieloznacznego jest oczekiwane jako argument wiersza polecenia, z kropkowym znakiem wieloznacznym okresu (co jeszcze?).

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

Python 3 - 98 97 bajtów

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

Wymaga danych wejściowych takich jak „4..6”.

k - 28 znaków

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

Używa ?jako znaku wieloznacznego. Do likezastosowania funkcyjne ?jak maska, a funkcja ta tworzy listę pierwszych 1001 kwadratów (być inclusive do 1M), rzuca je wszystkie do ciągów, a następnie sprawdza, gdzie oni pasują do wzorca.

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

narzędzia bash + Unix, 33 bajty

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

To używa „.” jako znak wieloznaczny.

Program DC drukuje liczby kwadratowe w nieskończonej pętli:

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.

Wyjście prądu stałego jest przesyłane w potoku do grep, który drukuje tylko kwadraty pasujące do wymaganego wzorca.

Działa to, gdy uruchamiam go na rzeczywistym systemie Linux lub OS X (ale to nie działa w TIO, prawdopodobnie dlatego, że program dc próbuje powtarzać się w nieskończoność, i podejrzewam, że TIO zabrakło miejsca na stos dla rekurencji i / lub ma problem z niekończącą się rurą).