Intro

เรามีฮิสโทแกรมและการนับแต่ไม่แสดงรายการทั้งหมด

ทุก ๆ ปีDyalog Ltd.จัดการแข่งขันสำหรับนักเรียน ความท้าทายคือการเขียนรหัส APL ที่ดี นี่เป็นรุ่นที่ผู้ไม่เชื่อเรื่องภาษารหัสของปัญหาที่หกของปีนี้

ฉันมีสิทธิ์อย่างชัดเจนในการโพสต์ความท้าทายนี้ที่นี่จากผู้เขียนต้นฉบับของการแข่งขัน รู้สึกอิสระที่จะตรวจสอบโดยทำตามลิงค์ที่ให้ไว้และติดต่อผู้เขียน

ปัญหา

คำ k-Mer มักจะหมายถึงทุกสตริงที่เป็นไปได้ของความยาวkที่มีอยู่ในสตริง ในฟังก์ชั่นการคำนวณ k-mers อ้างถึงองค์ประกอบที่เป็นไปได้ทั้งหมด (ความยาว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 (GCC บน POSIX), 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 ไบต์

-3 ไบต์ด้วย ovs (ใช้การเปิด 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 ^TH (0-จัดทำดัชนี) องค์ประกอบเป็นต้นไปในการทดสอบว่ามีองค์ประกอบที่เหลือเพียงพอ (สตริงที่ว่างเปล่าเป็น falsey ในหลาม) - len(a)>=nนี่คือสั้นกว่าเทียบเท่า

• หากมีองค์ประกอบพอที่รายการจะสร้าง[...]กับครั้งแรกnองค์ประกอบของสตริงa[:n]และผลแตกของการเรียกฟังก์ชั่นอีกครั้ง*f(...)กับรุ่น dequeued ของอินพุตปัจจุบัน 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(เรียกว่า infixes)

ฟังก์ชั่น (เรียกว่า "กริยา") uในกรณีนี้คือฟังก์ชั่น,ซึ่งเป็นฟังก์ชั่น" ผนวก " ที่เรียบง่าย:

สร้างอาร์เรย์ที่มีรายการของตามรายการของxy

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

ลองออนไลน์!

โปรแกรมเต็มรูปแบบ:

.:.*

ลองออนไลน์!

(The .*is splat.)

แมงกะพรุนขนาด 7 ไบต์

p
_I
\i

ลองออนไลน์!

มันทำงานอย่างไร

ในเชิงเส้น: p(\(I,i))ที่pคือการพิมพ์และ\ได้รับสตริงที่จำเป็น

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)¶)$)

ลองออนไลน์!

รับค่าสตริงและนับบนบรรทัดแยกกัน สองบรรทัดแรกถูกใช้เพื่อแปลงจำนวนจากทศนิยมเป็น unary ดังนั้นถ้ายอมรับอินพุต unary ดังนั้นจำนวนไบต์จะลดลงเป็น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นี้ซึ่งสั้นกว่ามาตรฐานdouble(s)) และขนาดbคือ[1 n]การได้รับบล็อกnองค์ประกอบในแนวนอน

ผลที่ได้คือ transposed (ใช้สลับซับซ้อนคอมเพล็กซ์ 'ซึ่งสั้นกว่า transpose .') เพื่อเปลี่ยนคอลัมน์เป็นแถวและจากนั้นจะถูกแปลงกลับเป็นถ่าน ( [... '']ซึ่งสั้นกว่ามาตรฐาน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"]

recursion ง่ายๆที่ช่วยให้คนแรกที่ตัวอักษรของสายป้อนที่ยังคงมีหางของสตริงตราบเท่าความยาวไม่น้อยกว่าnn

เซิร์ฟเวอร์ Microsoft Sql, 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 ที่กำหนดฟังก์ชั่นที่ดึงสตริงย่อยที่ต้องการจากแต่ละจุดเริ่มต้นที่ถูกต้อง

บันทึกสองไบต์เนื่องจากไม่จำเป็นต้องเก็บแลมบ์ดา

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 ไบต์)
• เปลี่ยนการเปรียบเทียบและไม่มีเป็น [] ตามที่แนะนำ (-4 ไบต์)

JavaScript (Firefox 30-57), 51 ไบต์

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

64 ไบต์ใน ES6:

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