음수가 아닌 정수 또는 자릿수 목록이 주어지면 선행 제로가있을 수있는 제곱 수를 연결하여 숫자를 얼마나 많은 방식으로 형성 할 수 있는지 결정하십시오.

예

input -> output # explanation
164 -> 2 # [16, 4], [1, 64]
101 -> 2 # [1, 01], [1, 0, 1]
100 -> 3 # [100], [1, 00], [1, 0, 0]
1 -> 1 # [1]
0 -> 1 # [0]
164900 -> 9 # [1, 64, 9, 0, 0], [1, 64, 9, 00], [1, 64, 900], [16, 4, 900], [16, 4, 9, 0, 0], [16, 4, 9, 00], [16, 49, 0, 0], [16, 49, 00], [16, 4900]

규칙

• 표준 허점 적용
• 이것은 코드 골프 이므로 바이트 단위의 최단 답변이 이깁니다.

하스켈 , 135 바이트

s x=any((x==).(^2))[0..x]
c(a:b:x)=a*10+b:x
c x=x
h[x]=1>0
h x=(s.head)x
f x@(_:_:_)|y<-until h c x=f(tail y)+f(c y)
f x=sum[1|any s x]

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

아마 아직 골프는 아니지만 이것은 놀랍게도 어려운 문제입니다

젤리 , 8 바이트

ŒṖḌƲẠ€S

숫자 목록을 가져와 음이 아닌 정수를 반환하는 모나드 링크.

온라인으로 사용해보십시오! 또는 테스트 스위트를 참조하십시오.

어떻게?

ŒṖḌƲẠ€S - Link: list of digits              e.g. [4,0,0,4]
ŒṖ       - all partitions                         [[4,0,0,4],[4,0,[0,4]],[4,[0,0],4],[4,[0,0,4]],[[4,0],0,4],[[4,0],[0,4]],[[4,0,0],4],[4,0,0,4]]
  Ḍ      - convert from decimal list (vectorises) [[4,0,0,4],[4,0,   4 ],[4,    0,4],[4,      4],[   40,0,4],[   40,    4],[    400,4],     4004]
   Ʋ    - is square? (vectorises)                [[1,1,1,1],[1,1,   1 ],[1,    1,1],[1,      1],[    0,1,1],[    0,    1],[      1,1],        0]
     Ạ€  - all truthy? for €ach                   [        1,          1,          1,          1           0,            0,          1,        0]
       S - sum                                    5

하스켈 , 88 바이트

f x=sum[0.5|y<-mapM(\c->[[c],c:" "])x,all((`elem`map(^2)[0..read x]).read).words$id=<<y]

f문자열을 가져와 float를 반환 하는 함수 를 정의합니다 . 아주 느린. 온라인으로 사용해보십시오!

설명

내가 사용하고 내 하스켈 팁을 가진 문자열의 모든 파티션을 계산 mapM하고 words. 이 코드 조각 mapM(\c->[[c],c:" "])x은 'c'문자열의 모든 문자 를 한 x요소 문자열 "c"또는 두 요소 문자열로 바꾸고 "c "가능한 모든 조합의 목록을 반환합니다. 결과 중 하나를 가져 와서 y연결 words하고 결과를 호출 하면에 의해 삽입 된 공백이 분할됩니다 mapM. 이런 식으로 나는 x연속 된 부분 문자열로의 모든 파티션을 얻습니다 . 그런 다음 각 파티션 요소가 완벽한 정사각형 인 목록 (목록에서 찾음 [0,1,4,9,..,x^2])을 계산합니다. 경고는 각 파티션이 후행 공백 유무에 관계없이 두 번 계산된다는 것입니다.0.5s 대신 1s; 이것이 결과 유형이 부동 소수점 인 이유입니다.

f x=                       -- Define f x as
 sum[0.5|                  -- the sum of 0.5 for
  y<-                      -- every y drawn from
  mapM(\c->[[c],c:" "])x,  -- this list (explained above)
                           -- (y is a list of one- and two-element strings)
  all(...)                 -- such that every element of
                 id=<<y]   -- concatenated y
          .words$          -- split at spaces satisfies this:
                           -- (the element is a string)
   (...).read              -- if we convert it to integer
    `elem`                 -- it is an element of
    map(^2)                -- the squares of
    [0..read x]            -- the numbers in this list.

Pyth , 16 바이트

lf!f!sI@sjkY2T./

테스트 스위트 .

파이썬 (3) , 148 (139) 135 134 바이트

Arnold Palmer 덕분에 10 바이트.

def f(a):
 s=[a[:1]]
 for i in a[1:]:s=sum([[x+[i],x[:-1]+[x[-1]*10+i]]for x in s],[])
 return sum({n**.5%1for n in x}=={0}for x in s)

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

Mathematica, 141 바이트

Count[FreeQ[IntegerQ/@Sqrt[FromDigits/@#],1<0]&/@(FoldPairList[TakeDrop,s,#]&/@Flatten[Permutations/@IntegerPartitions[Length[s=#]],1]),1>0]&

입력 (숫자 목록)

[{1,6,4}]

파이썬 2 , 173 163 바이트

lambda s:len([l for l in[''.join(sum(zip(s,[','*(n>>i&1)for i in range(len(s))]+['']),())).split(',')for n in range(2**~-len(s))]if {int(x)**.5%1for x in l}=={0}])

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

편집 : ArnoldPalmer로 인해 10 바이트가 절약되었습니다.