reshape - 如何检查APL中的字符串是否被 reshape ？

Question

如何检查字符串是否被 reshape ？示例:“aab”返回 0，因为“a”无法 reshape 为该字符串或任何其他更短的字符串。

另一个例子是“aabbaab”返回 1，因为“aabb”可以被 reshape 为该字符串。

很多例子都可以找到这个:

返回 1

101
abba
abcab
abacedabarab
abcdefedabc
!@#~€!

返回0

aA
~
[][][][]][-
abcac
aecec

是否有 lambda 函数可以完成此任务？

注意:如果您不熟悉 APL，请阅读 this

Answer 1

该任务本质上归结为检查我们是否可以循环给定字符串的某个子字符串，以便我们返回上述字符串。一个简单的解决方案如下:

{(⊂⍵)∊(≢⍵)⍴¨¯1↓,\⍵}

或者，默认:

(⊂∊≢⍴¨¯1↓,\)

让我们解压 dfn:

{(⊂⍵)∊(≢⍵)⍴¨¯1↓,\⍵}
               ,\⍵       prefixes of the input
            ¯1↓          ignore the last one
      (≢⍵)⍴¨             reshape each of the prefixes so
                         that it has the same length as input

 (⊂⍵)∊                   check if input appears anywhere in the list.

前缀是以下操作:

      ,\ 'Hello!'
┌─┬──┬───┬────┬─────┬──────┐
│H│He│Hel│Hell│Hello│Hello!│
└─┴──┴───┴────┴─────┴──────┘