대부분의 정사각 수는있는 적어도 한 다른 평방 숫자가 Levenshtein 거리가 정확히 주어진 사각형의 경우 1입니다 하는 호출이 조건을 충족하는 각 평방 Levenshtein 이웃 의 . 예를 들어, 은 1의 편집 ( ) 만 필요하므로 의 Levenshtein 이웃입니다 . 그러나 는 최소 2 개의 편집이 필요하기 때문에 16 의 Levenshtein 이웃이 아닙니다 . 선행 0을 갖는 숫자 ( 2025 \ to 025 )는 레 벤슈 테인 이웃 이 아닙니다 .$x$$x$$36$$16$$1 \to 3$$64$$16$$2025 \to 025$

당신의 임무는 입력으로 제곱 수를 취하고 레 벤슈 테인 이웃의 전체 목록을 합리적인 형식으로 출력하는 것입니다. 원하는 경우 목록에 반복 이웃을 포함 할 수 있지만, Levenshtein 이웃이 아니므로 원래 입력을 포함 할 수 없습니다.

합리적인 형식에는 출력 (예 : ,줄 바꿈)과 같은 출력 사이에 일종의 구분 기호가 포함되어야 하며 숫자 자체가 아니라 해당 유니 코드 값 (예 : brainfuck)으로 문자를 출력 할 수 있습니다. 출력 순서는 중요하지 않습니다.

이 입력은 항상 $0$ 보다 큰 제곱 수 입니다. 프로그램에는 이론적 인 제한 이 없어야 하지만 실제 이유로 (예를 들어 32 비트 수를 초과하여) 많은 수로 실패하면 완전히 괜찮습니다.

입력에 Levenshtein 이웃이 없으면 출력은 아무것도 출력하지 않고 빈 배열 / 문자열, 음의 정수, 등을 명확하게 반영해야합니다 .$0$

이것은 code-golf 이므로 바이트 단위의 가장 짧은 코드가 이깁니다.

테스트 사례

다음은 에서 까지 의 제곱에 대한 결과입니다 .$1$$20$

  1: 4, 9, 16, 81
  4: 1, 9, 49, 64
  9: 1, 4, 49
 16: 1, 36, 169, 196
 25: 225, 256, 625
 36: 16, 361
 49: 4, 9
 64: 4
 81: 1, 841
100: 400, 900, 1600, 8100
121: 1521
144: 1444
169: 16, 1369
196: 16, 1296, 1936
225: 25, 625, 1225, 2025, 4225, 7225
256: 25
289: 2809
324: 3249
361: 36, 961
400: 100, 900, 4900, 6400

또한 1024이웃이 없으므로 좋은 테스트 사례입니다.

05AB1E ,  11 10  6 바이트

Grimy 덕분에 -4! (정사각형을 찾는 것보다 먼저 정사각형을 저장하면 3이 절약됩니다. 10 ^ n을 사용하면 1이 절약됩니다)

°Lnʒ.L

정수를 취하고 비어있는 목록을 출력합니다.

온라인으로 사용해보십시오! -이 (가) 사용하기°때문에 매우느립니다9.
또는 약간 더 빠른 버전을 사용해보십시오 -대신 8을 더한8+다음 동일한 접근법을 사용합니다.

방법?

°Lnʒ.L - f(integer)    stack = n
°      - push 10^n             10^n
 L     - range                 [1,2,3,...,10^n]
  n    - square                [1,4,9,...,10^2n]
   ʒ   - filter keep if == 1:
    .L -   Levenshtein distance

망막 0.8.2 , 142 138 바이트

.?
$'¶$`#$&$'¶$`#$'¶$`$&
#
0$%'¶$%`1$%'¶$%`2$%'¶$%`3$%'¶$%`4$%'¶$%`5$%'¶$%`6$%'¶$%`7$%'¶$%`8$%'¶$%`9
A`^0
Dr`
\d+
$*
-2G`(\b1|11\1)+\b
%`1

온라인으로 사용해보십시오! 설명:

.?
$'¶$`#$&$'¶$`#$'¶$`$&

각 숫자에 대해 a) 숫자를 제거하십시오. b) 다른 숫자를 선행하십시오. c) 다른 숫자로 변경하십시오. 현재 다른 숫자는로 표시되어 있습니다 #.

#
0$%'¶$%`1$%'¶$%`2$%'¶$%`3$%'¶$%`4$%'¶$%`5$%'¶$%`6$%'¶$%`7$%'¶$%`8$%'¶$%`9

잠재적 인 다른 숫자 각각에 대해 가능한 각 숫자를 대체하십시오.

A`^0

이제 0으로 시작하는 숫자를 제거하십시오.

Dr`

중복 된 숫자를 모두 제거하십시오. (이것은 단지 줄을 비워 둡니다.)

\d+
$*

단항으로 변환합니다.

-2G`(\b1|11\1)+\b

마지막 숫자 (항상 입력 숫자)를 제외한 모든 제곱 숫자를 유지하십시오.

%`1

나머지 숫자를 다시 십진수로 변환하십시오.

R , 42 41 바이트

$(9n)^2$

function(n,y=(1:(9*n))^2)y[adist(n,y)==1]

온라인으로 사용해보십시오!

$n$$91n$$1\to 91$$100\to9100$$(9n)^2=81n^2$$n>1$, $81n^2>91n$그래서 우리는 괜찮습니다. 에 대한$n=1$,이 경계는 한 레 벤슈 테인 이웃을 그리워합니다. $1\to91$; 이후$91$ 사각형이 아닙니다, 우리는 괜찮습니다.

사이의 모든 제곱 수를 나열합니다 $1$ 과 $(9n)^2$Levenshtein 거리를 1로 유지합니다.

파이썬 (2) , 173 (167) 149 148 147 144 139 138 바이트

lambda n,I=int:{(I(I(v)**.5)**2==I(v))*I(v)for v in[`n`[:i]+`j-1`[:j]+`n`[i+k:]or 0for j in range(11)for i in range(n)for k in 0,1]}-{0,n}

온라인으로 사용해보십시오!

19 + 3 + 5 + 1 = 28! 바이트는 Jonathan Allan 에게 thx .

Oracle SQL, 93 바이트

select level*level from t where utl_match.edit_distance(x,level*level)=1connect by level<10*x

SQL * PLus에서 테스트하십시오.

SQL> set heading off
SQL> with t(x) as (select 225 from dual)
  2  select level*level from t where utl_match.edit_distance(x,level*level)=1connect by level<10*x
  3  /

         25
        625
       1225
       2025
       4225
       7225

6 rows selected.

PHP , 62 바이트

for(;$argn*92>$n=++$i**2;levenshtein($argn,$n)==1&&print$n._);

온라인으로 사용해보십시오!

이 스크립트 _는 후행 구분 기호로 구분 된 입력의 Levenshtein 이웃을 인쇄 하며, 이웃이 없으면 아무 것도 인쇄하지 않습니다.

행복하게 PHP에는 Levenshtein 거리 에 대한 내장 기능이 있습니다 ! input * 91유효한 모든 Levenshtein 이웃 (거리 1)이 해당 범위에 있기 때문에이 스크립트는 1에서 모든 제곱 수를 반복 합니다. 그런 다음 입력과 함께 Levenshtein 거리가 1 인 해당 범위의 모든 숫자를 인쇄합니다.

자바 스크립트 (V8) ,  129 (125)  123 바이트

입력을 문자열로받습니다. 레 벤슈 테인 이웃을 STDOUT에 인쇄합니다.

s=>{for(t=9+s;t;t--)(t+='')**.5%1||(g=m=>m*n?1+g(m,--n)*(g(--m)-(s[m]==t[n++]))*g(m):m+n)(s.length,n=t.length)-1||print(t)}

온라인으로 사용해보십시오!

댓글

s => {                        // s = input
  for(                        // loop:
    t = 9 + s;                //   start with t = '9' + s
    t;                        //   repeat while t > 0
    t--                       //   decrement t after each iteration
  )                           //
    (t += '')                 //   coerce t to a string
    ** .5 % 1 ||              //   abort if t is not a square
    ( g =                     //   g is a recursive function to test whether the
                              //   Levenshtein distance between s and t is exactly 1
      m =>                    //   m = pointer into s (explicit parameter)
                              //   n = pointer into t (defined in the global scope)
        m * n ?               //     if both m and n are greater than 0:
          1 +                 //       add 1 to the final result and add the product of:
          g(m, --n) * (       //         - a recursive call with m and n - 1
            g(--m) -          //         - a recursive call with m - 1 and n - 1
            (s[m] == t[n++])  //           minus 1 if s[m - 1] = t[n - 1]
          ) *                 //
          g(m)                //         - a recursive call with m - 1 and n
        :                     //       else:
          m + n               //         stop recursion and return m + n
    )(s.length, n = t.length) //   initial call to g with m = s.length, n = t.length
    - 1 ||                    //   abort if the final result is not 1
    print(t)                  //   otherwise, print t
}                             //

젤리 , 53 38 바이트

D;Ɱ⁵ṭJœP,œṖjþ⁵Ẏṭ@ḢF${ʋʋ€$ƲẎ%⁵1ị$ƇḌƲƇḟ

온라인으로 사용해보십시오!

Levenshtein 거리에 대한 내장 기능이 없으므로 가능한 모든 1- 거리 편집을 생성 한 다음 0이 선행하는 것을 제외하고 완벽한 정사각형 만 유지합니다. 중복을 필터링하지 않습니다 (허용 된대로).

Wolfram Language (Mathematica) , 62 59 바이트

f@n_:=Select[Range[9n]^2,EditDistance@@ToString/@{n,#}==1&]

온라인으로 사용해보십시오!

R 답변 에서 바운드를 사용합니다 .