Cho một số nguyên không âm hoặc một danh sách các chữ số, xác định xem có bao nhiêu số có thể được hình thành bằng cách ghép các số vuông, có thể có các số 0 đứng đầu.

Ví dụ

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]

Quy tắc

• Áp dụng sơ hở tiêu chuẩn
• Đây là môn đánh gôn, vì vậy câu trả lời ngắn nhất bằng byte sẽ thắng

Haskell , 135 byte

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]

Hãy thử trực tuyến!

Có lẽ chưa chơi golf tốt nhưng đây là một vấn đề khó khăn đáng ngạc nhiên

Thạch , 8 byte

ŒṖḌƲẠ€S

Một liên kết đơn âm lấy một danh sách các chữ số và trả về một số nguyên không âm.

Hãy thử trực tuyến! hoặc xem bộ thử nghiệm .

Làm sao?

ŒṖḌƲẠ€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

Haskell , 88 byte

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

Xác định hàm flấy một chuỗi và trả về float. Rất chậm. Hãy thử trực tuyến!

Giải trình

Tôi đang sử dụng mẹo Haskell của mình để tính toán tất cả các phân vùng của một chuỗi với mapMvà words. Đoạn mã mapM(\c->[[c],c:" "])xthay thế mọi ký tự s thay vì s; đây là lý do tại sao loại kết quả là một float.'c' của chuỗi xbằng chuỗi một phần tử "c"hoặc chuỗi hai phần tử "c "và trả về danh sách tất cả các kết hợp có thể. Nếu tôi lấy một trong các kết quả, ynối nó và gọi wordskết quả, nó sẽ được phân chia tại các khoảng trắng được chèn bởi mapM. Theo cách này, tôi có được tất cả các phân vùng xthành các chuỗi liên tiếp. Sau đó, tôi chỉ đếm những kết quả trong đó mỗi phần tử phân vùng là một hình vuông hoàn hảo (bằng cách tìm thấy nó trong danh sách [0,1,4,9,..,x^2]). Một lưu ý là mỗi phân vùng được tính hai lần, có và không có dấu cách, vì vậy tôi lấy tổng của0.51

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.

Bình , 16 byte

lf!f!sI@sjkY2T./

Bộ thử nghiệm .

Trăn 3 , 148 139 135 134 byte

10 byte nhờ Arnold Palmer.

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)

Hãy thử trực tuyến!

Toán học, 141 byte

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

đầu vào (một danh sách các chữ số)

[{1,6,4}]

Python 2 , 173 163 byte

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}])

Hãy thử trực tuyến!

Chỉnh sửa: Đã lưu 10 byte do ArnoldPalmer