介绍

我们有直方图和计数，但没有列出全部。

每年，Dyalog有限公司都会举办一次学生比赛。面临的挑战是编写好的 APL代码。这是今年第六个问题的与语言无关的高尔夫版本。

我得到比赛原作者的明确许可，可以在此处发布此挑战。跟随提供的链接并与作者联系，以进行验证。

问题

术语k-mer通常是指字符串中包含的所有可能的长度为k的子字符串。在计算基因组学中，k-mer指通过DNA测序获得的读数中所有可能的子序列（长度为k）。编写一个函数/程序，该函数需要一个字符串和一个k（子字符串长度），并返回/输出原始字符串的k-mers的向量。

例子

[4,"ATCGAAGGTCGT"] → ["ATCG","TCGA","CGAA","GAAG","AAGG","AGGT","GGTC","GTCG","TCGT"]

k >字符串长度？不返回任何结果/任何空结果：
[4,"AC"]→ []或""或[""]

果冻，1 字节

ṡ

果冻对此操作只有一个字节的二元原子

在线尝试！（页脚用换行符分隔结果列表，以避免打印出模糊的表示形式。）

八度，28字节

@(N,s)s((1:N)+(0:nnz(s)-N)')

在线尝试！

对于k>，字符串长度在Octave 4.2.1-windows中有效，但在tio（Octave 4.0.3）中无效。

创建连续元素的数字索引，并以此索引字符串。

s= "ATCGAAGGTCGT"
N = 4
idx = (1:N)+(0:nnz(s)-N)'
 =
    1    2    3    4
    2    3    4    5
    3    4    5    6
    4    5    6    7
    5    6    7    8
    6    7    8    9
    7    8    9   10
    8    9   10   11
    9   10   11   12

s(idx) =

ATCG
TCGA
CGAA
GAAG
AAGG
AGGT
GGTC
GTCG
TCGT

05AB1E，2个字节

码：

Ν

说明：

Π     # Get all substrings of the input
 ù     # Only keep the substrings of length the second input

使用05AB1E编码。

在线尝试！

C（POSIX上的GCC），67 66 63字节

-3个字节，感谢@LeakyNun！

f(i,s,j)char*s;{for(;j+i<=strlen(s);puts(""))write(1,s+j++,i);}

在线尝试！

Brachylog，3个字节

s₎ᶠ

在线尝试！

眼镜：

• 输入： ["ATCGAAGGTCGT",4]
• 参数： Z
• 输出： Z = ["ATCG","TCGA","CGAA","GAAG","AAGG","AGGT","GGTC","GTCG","TCGT"]

怎么运行的

s₎ᶠ
s    Output is a substring of first element of input,
 ₎   with length specified by second element of input.
  ᶠ  Find all solutions.

Python 3中， 47个45 42字节

多亏了ovs -3个字节（使用Python 3的解压缩以a[n-1:]在尾部重用。）

f=lambda a,n:a[n-1:]and[a[:n],*f(a[1:],n)]

一个递归函数，它接收字符串，a切片长度n，并返回切片列表或空字符串。

a[n-1:]从第n-1 ^个（索引为0的元素）开始获取当前字符串的一部分，以测试是否剩余足够的元素（在Python中，空字符串为false）-这比等效字符串短len(a)>=n。

• 如果有足够的元素，则构造一个列表[...]，其中包含n字符串的第一个元素a[:n]，以及再次调用该函数的解压缩结果，以及*f(...)当前输入的出队版本（不包含第一个元素）a[1:]。

• 如果没有足够的元素，则在a[n-1:]返回时到达递归的尾部（在这种情况下为空字符串）。

在线尝试！

45（对于Python 2或3），具有：

f=lambda a,n:a[n-1:]and[a[:n]]+f(a[1:],n)or[]

J，2个字节

,\

它不是完整的程序，而是具有操作员的功能。

这样称呼它：

echo 4 ,\ 'ATCGAAGGTCGT'

在线尝试！

怎么运行的

运算符（称为“连接词”）\（名为“中缀 ”）的用法如下：

(x u\ y)将动词应用于u列表的连续部分y（称为中缀）。

u这种情况下的功能（称为“动词”）,是一个简单的“ 附加 ”功能：

创建一个数组，其中包含的项，x后跟的项y。

Mathematica，21个字节

##~StringPartition~1&

匿名函数。以一个字符串和一个数字（按此顺序）作为输入，并返回一个字符串列表作为输出。

R，65 61字节

-2个字节，感谢MickyT

-2个字节，通过更改索引

返回一个匿名函数。

function(s,n,x=nchar(s))`if`(n>x,'',substring(s,x:n-n+1,n:x))

substring循环浏览索引（substr与之1相反），如果起始索引小于1，则默认为，因此它检查并返回空字符串。

x:n-n+1等价于，1:(x-n+1)因为:优先于和/差

在线尝试！

Pyth，2个字节

.:

它不是一个完整的程序，而是一个内置函数。

这样称呼它：

.:"ATCGAAGGTCGT"4

在线尝试！

完整程序：

.:.*

在线尝试！

（.*是摔得痛。）

水母，7个字节

p
_I
\i

在线尝试！

怎么运行的

在linear：中p(\(I,i))，哪里p是print并\获取所需的子字符串。

I是原始的第一输入，i而是评估的第二输入。

在水母中，每个函数和运算符都有两个自变量，一个自右，一个自底。在这里，该函数p从的输出获取参数_，这是我们要使用运算符\获取子字符串所必需的。

Python 2，54个字节

lambda x,n:map(''.join,zip(*[x[b:]for b in range(n)]))

在线尝试！

Java（OpenJDK 8），92字节

void f(String s,int n){for(int i=n;i<=s.length();)System.out.println(s.substring(i-n,i++));}

在线尝试！

Clojure，19个字节

好吧，这很方便：

#(partition % 1 %2)

例子：

(def f #(partition % 1 %2))
(println [(f 4 "ATCGAAGGTCGT")
          (f 4 "abc")])

[((A T C G) (T C G A) (C G A A) (G A A G) (A A G G) (A G G T) (G G T C) (G T C G) (T C G T))
 ()]

CJam，4个字节

{ew}

希望在堆栈上保留参数的匿名块，之后将结果留在堆栈上。

在线尝试！

ew 是内置的，可以完全满足要求。

视网膜，41 38字节

.*$
$*
!&`(.)+(?=.*¶(?<-1>.)+(?(1)¶)$)

在线尝试！

取字符串并在单独的行上计数。前两行用于计数从十进制转换为一元，因此，如果一元输入是可以接受的，则字节数将减少到34 31。编辑：保存3字节由于@FryAmTheEggman。或者，如果您愿意，可以使用48字节的版本来处理字符串中的换行符，尽管这会产生令人困惑的输出：

.*$
$*
!&`(\S|\s)+(?=[\S\s]*¶(?<-1>.)+(?(1)$.)$)

带图像包的八度，29字节

@(s,n)[im2col(+s, [1 n])' '']

在线尝试！

说明

该函数im2col(m,b)采用矩阵m，b从矩阵中提取大小的块，并将其排列为列。默认情况下，块是滑动的（与众不同）。在这里，矩阵m是输入字符串的ASCII码的行向量s（这是通过来完成的+s，它比standard短double(s)），其大小b是[1 n]为了获得n元素的水平滑动块。

将结果转置（使用'比transpose短的complex-conjugate transpose .'）将列转换为行，然后将其转换回char（[... '']比标准短char(...)）。

OK，2个字节

':

oK有滑动窗口操作器！

Python 3，49个字节

f=lambda a,n:[a[i:i+n]for i in range(len(a)-n+1)]

在线尝试！

一种非递归的解决方案，尽管不短。

与Python 2兼容。

PHP，75字节

在线版本

for([,$n,$s]=$argv;$i+$n-1<strlen($s);)$r[]=substr($s,$i++,$n);print_r($r);

80个字节，没有双精度值

for([,$n,$s]=$argv;$i+$n-1<strlen($s);)$r[$p=substr($s,$i++,$n)]=$p;print_r($r);

Haskell，39个字节

n#s|length s<n=[]|1<2=take n s:n#tail s

用法示例：4 # "ABCDEF"-> ["ABCD","BCDE","CDEF"]。在线尝试！

一个简单的递归，只要n输入字符串的长度不小于，就可以保持输入字符串的前一个字符和字符串的尾部n。

Microsoft Sql Server，199字节

create function dbo.f(@s nvarchar(max),@ int)returns table as return
with v as(select 2 p,left(@s,@)g where len(@s)>=@ union all
select p+1,substring(@s,p,@)from v where len(@s)>p-2+@)select g from v

检查。

PowerShell，70个字节

$b={$c,$s=$args;[regex]::matches($s,"(?=(.{$c}))")|%{''+$_.groups[1]}}

在线尝试！

堆叠，7个字节

infixes

在线尝试！

很标准。没有此内置函数，它将变为20个字节：

{%x#'y-#+:>y#-#>x\#}

这是：

{%x#'y-#+:>y#-#>x\#}
{%                 }   dyad; first arg: x, second arg: y
  x#'                  length of x (the array)
     y-                minus y (the skew)
       #+              plus 1
         :>            range [x, y]
           y#-         y minus 1
              #>       range from [[x, y], [x, y] + y]
                x\#    get indices from x

MATL，3个字节

YC!

在线尝试！

说明

YC   % Sliding blocks of input string with input size, arranged as columns
!    % Transpose

C＃89字节

void a(string s,int n){for(int i=n;i<=s.Length;)Console.WriteLine(s.Substring(i++-n,n));}

在线尝试！

我在C＃中可以找到的最佳方法与Java基本相同

Ruby，48个 46字节

->(s,k){0.upto(s.size-k).map{|i|s[i..i+k-1]}}

没有特别的技巧，只是一个stabby-lambda定义了一个函数，该函数从每个有效的起始点提取所需的子字符串。

保存了两个字节，因为似乎不需要存储lambda。

V，16字节

òÀ|ly0Ïp
"_xòkVp

恐怕打的不是很好，打了“如果k> len（str）删除线”。输入在文件中，k是参数。解释前打高尔夫球

在线尝试！

标准ML（mosml），109 65 61字节

fun f(n,x)=if n>length(x)then[]else List.take(x,n)::f(n,tl x)

接受一个数字和一个字符列表（在SML世界中，这是字符串的常见替代品）。（确实适用于所有列表。）

用法：

- f(3,explode("ABCDEFGH"));
> val it =
    [[#"A", #"B", #"C"], [#"B", #"C", #"D"], [#"C", #"D", #"E"],
     [#"D", #"E", #"F"], [#"E", #"F", #"G"], [#"F", #"G", #"H"]] :
  char list list
- f(7, explode("ABCD"));
> val it = [] : char list list

变更日志：

• 是的，有一个标准库。（-44字节）
• 按照建议将比较和nil更改为[]（-4字节）

JavaScript（Firefox 30-57），51个字节

(s,n,t='')=>[for(c of s)if((t+=c)[n-1])t.slice(-n)]

ES6中的64个字节：

(s,n,t=s.slice(0,--n))=>[...s.slice(n)].map(c=>(t+=c).slice(~n))