แก้ไข: หากคุณใช้เสียงกระเพื่อมฉันได้ให้แนวทางบางอย่างที่ด้านล่างในการนับไบต์

วัตถุประสงค์:สร้างฟังก์ชันที่สั้นที่สุดที่แยกสตริงที่ไม่ใช่ตัวเลขและส่งกลับอาร์เรย์ที่ประกอบด้วยตัวเลขเท่านั้นในแต่ละสตริงโดยไม่ต้องใช้นิพจน์ทั่วไปใด ๆ เลขศูนย์นำหน้าจะรวมอยู่ในแต่ละสาย

อันดับปัจจุบัน (แยกเป็นหมวดหมู่):

• C / C ++ / C # / Java: 68 (C) ....
• GolfScript / APL / J: 13 (APL)
• อื่น ๆ ทั้งหมด: 17 (Bash, use tr), 24 (Ruby)

กฎ:

(ฉันขอโทษสำหรับความยาว)

1. รูปแบบต้องเป็นฟังก์ชันที่มีอาร์กิวเมนต์สตริงเดี่ยว อาจมีการเพิ่มอาร์กิวเมนต์เพิ่มเติมได้สองรายการหากจำเป็นสำหรับการส่งคืนอาเรย์ที่เหมาะสม (เช่น sh / csh / DOS Batch ต้องการการอ้างอิงตัวแปรเพิ่มเติมเพื่อกลับมาเป็นต้น)
2. การประกาศฟังก์ชั่นหลักไม่นับรวมและจะไม่นำเข้าไลบรารีมาตรฐานอื่น ๆ `# include`s` import`s และ `using`s ไม่นับ ทุกอย่างอื่นทำ ซึ่งรวมถึงฟังก์ชั่น `# define` และผู้ช่วย ขอโทษสำหรับความสับสน. อ้างถึงสิ่งนี้เป็นคำแนะนำที่เป็นประโยชน์ว่าอะไร / ไม่นับ (เขียนในรูปแบบ C-style)

   // ไม่นับรวมทั้งหมดอาจถูกละเว้นยกเว้น
   // ไม่ชัดเจนเหมือนครึ่งหนึ่งของไลบรารี่มาตรฐานของ Java
   #include <stdio.h>
   
   นำเข้า some.builtin.Class // ไม่นับดูด้านบน
   
   #define printf p // นับรวมทั้งหมด
   
   / * คำสั่งตัวประมวลผลล่วงหน้าอื่น ๆ นับรวม * /
   
   int i = 0; // นับ
   
   someFunction (); // นับ
   
   ถ่าน [] [] myMainSplitFunction (ถ่าน [] [] อาร์เรย์) {// ไม่นับ
     // ทุกสิ่งในที่นี้นับ
     return returnArray; // แม้แต่สิ่งนี้ก็นับ
   } // ไม่นับ
   
   / * ทุกอย่างในที่นี้นับรวมถึงการประกาศ * /
   ถ่าน [] [] สตริง someHelperFunction (ถ่าน []) {
     // stuff
   } // แม้แต่สิ่งนี้ก็นับ
   

3. เอาต์พุตจะต้องเป็นอาเรย์สตริงหรือคล้ายกัน (รายการ Array ใน Java และที่คล้ายกันนั้นเป็นที่ยอมรับได้) ตัวอย่างของการส่งออกได้รับการยอมรับ: String[], char[][], Array, ListและArray(วัตถุ)
4. อาร์เรย์ต้องมีเพียงค่าดั้งเดิมของสตริงที่มีความยาวผันแปรหรือวัตถุสตริง ไม่ควรมีสตริงว่างในการส่งคืนโดยมีข้อยกเว้นด้านล่าง หมายเหตุ:สตริงจะต้องมีสตริงของการจับคู่แบบต่อเนื่องเช่นอินพุตตัวอย่างและเอาต์พุตด้านล่าง
5. หากไม่มีการจับคู่ดังนั้นฟังก์ชั่นร่างกายควรกลับมาnullอาร์เรย์ / รายการที่ว่างเปล่าหรืออาร์เรย์ / รายการที่มีสตริงที่ว่างเปล่า
6. ไม่อนุญาตให้ใช้ไลบรารีภายนอก
7. จุดสิ้นสุดของบรรทัด DOS จะนับเป็นหนึ่งไบต์ไม่ใช่สอง (รวมอยู่ในเมตาดาต้า แต่ต้องการเน้น)
8. และกฎที่ใหญ่ที่สุดที่นี่: ไม่อนุญาตให้มีการแสดงออกปกติ

นี่เป็นคำถามเกี่ยวกับการเล่นรหัสดังนั้นขนาดที่เล็กที่สุดชนะ โชคดี!

และนี่คือตัวอย่างอินพุตและเอาต์พุต (ที่มี Escape C-style):

อินพุต: "abc123def456"
ผลลัพธ์: ["123", "456"]

อินพุต: "aitew034snk582: 3c"
เอาต์พุต: ["034", "582", "3"]

อินพุต: "as5493tax54 \\ 430-52@g9.fc"
เอาท์พุท: ["5493", "54", "430", "52", "9"]

อินพุต: "sasprs] tore \" re \\ forz "
เอาต์พุต: null, [], [""] หรือคล้ายกัน

โปรดระบุจำนวนไบต์ที่ใช้โดยคำตอบของคุณและเช่นเคยมีความสุขกับการเล่นกอล์ฟ!

แนวทางสำหรับเสียงกระเพื่อม

นี่คือสิ่งที่ไม่และไม่นับในภาษา Lisp:

;;; ตัวเลือกที่ 1

(defun แยก - สตริง (ab); ไม่นับ
  (เนื้อหา) ;;; ทุกสิ่งในที่นี้นับ
); ไม่นับ

;;; ตัวเลือก 2

(defun แยกสตริง (สตริง & aux (เริ่มต้น 0) (สิ้นสุด 0)) ไม่นับ
  (เนื้อหา) ;;; ทุกสิ่งในที่นี้นับ
); ไม่นับ

APL, 13 ตัวอักษร

(หรือ 28/30 ไบต์อ่านด้านล่าง)

{⍵⊂⍨⍵∊∊⍕¨⍳10}

ฉันเห็นว่าคุณห้าม GolfScript จากคำถามของคุณ ฉันเข้าใจความรู้สึกของคุณ แต่ฉันหวังว่าชุมชนนี้จะไม่แบน APL เพราะมันเป็นภาษาการเขียนโปรแกรมที่น่าทึ่งอย่างแท้จริงที่มีประวัติยาวนานไม่ต้องพูดถึงความสนุกในการเขียนรหัสบางทีอาจจะเป็นคะแนนที่แตกต่างกัน รู้สึกว่าการแข่งขันไม่เป็นธรรม ฉันจะโพสต์ความคิดของฉันในเรื่องนี้ไปยังเธรดที่คุณเชื่อมโยง

ในโทเค็นเดียวกันนั้นฉันได้เพิ่มเชิงอรรถลงในโพสต์ APL ของฉันเสมอโดยอ้างว่าสามารถทำคะแนน APL ได้เป็น 1 ถ่าน = 1 ไบต์ การอ้างสิทธิ์ของฉันขึ้นอยู่กับความจริงที่ว่าการใช้งาน APL (เชิงพาณิชย์ส่วนใหญ่) ไม่กี่ตัวยังคงสนับสนุนการเข้ารหัสไบต์เดียวแบบดั้งเดิมด้วยสัญลักษณ์ APL ที่แมปกับค่า 128 ไบต์บน แต่นี่อาจจะยืดได้มากเกินไปซึ่งในกรณีนี้คุณอาจต้องการให้คะแนนรายการนี้เป็น 28 ไบต์ใน UTF-16 หรือ 30 ไบต์ใน UTF-8

คำอธิบาย

{        ⍳10}  make an array of naturals from 1 to 10
       ⍕¨      convert each number into a string
      ∊        concatenate the strings into one (it doesn't matter that there are two 1s)
    ⍵∊         test which chars from the argument are contained in the digit string
 ⍵⊂⍨           use it to perform a partitioned enclose, which splits the string as needed

ตัวอย่าง

      {⍵⊂⍨⍵∊∊⍕¨⍳10} 'ab5c0x'
 5  0 
      {⍵⊂⍨⍵∊∊⍕¨⍳10}  'z526ks4f.;8]\p'
 526  4  8 

รูปแบบเอาต์พุตเริ่มต้นสำหรับอาเรย์ของสตริงไม่ได้ทำให้ชัดเจนว่ามีสตริงจำนวนเท่าใดในอาเรย์และจำนวนช่องว่าง แต่การจัดการเพื่อเพิ่มคำพูดอย่างรวดเร็วควรทำให้ชัดเจนเพียงพอ:

      {q,⍵,q←'"'}¨ {⍵⊂⍨⍵∊∊⍕¨⍳10} 'ab5c0x'
 "5"  "0" 
      {q,⍵,q←'"'}¨ {⍵⊂⍨⍵∊∊⍕¨⍳10}  'z526ks4f.;8]\p'
 "526"  "4"  "8" 

Python 47

การดำเนินงาน

f=lambda s:"".join([' ',e][e.isdigit()]for e in s).split()

การสาธิต

>>> sample=["abc123def456","aitew034snk582:3c","as5493tax54\\430-52@g9.fc","sasprs]tore\"re\\forz"]
>>> [f(data) for data in sample]
[['123', '456'], ['034', '582', '3'], ['5493', '54', '430', '52', '9'], []]

ขั้นตอนวิธี

แปลงอักขระที่ไม่ใช่ตัวเลขแต่ละตัวเป็นช่องว่างแล้วแยกสตริงที่เป็นผลลัพธ์ วิธีการที่ง่ายและชัดเจน

และทางออกที่สนุกกับ itertools (71 ตัวอักษร)

f1=lambda s:[''.join(v)for k,v in __import__("itertools").groupby(s,key=str.isdigit)][::2]

ทับทิม, 70

f=->(s){s.chars.chunk{|c|c.to_i.to_s==c}.select{|e|e[0]}.transpose[1]}

เวอร์ชั่นออนไลน์สำหรับการทดสอบ

เนื่องจากการแปลงอักขระที่ไม่ใช่ตัวเลขใด ๆ ให้เป็น int จะส่งกลับค่า 0 ใน Ruby (with to_i) การแปลงถ่านทุกตัวเป็น int และกลับไปที่ char เป็นวิธีที่ไม่ใช่ regex ในการตรวจสอบตัวเลข ...

bash, 26 (เนื้อหาฟังก์ชั่น: 22 + ค่าใช้จ่ายในการกำหนดอาร์เรย์ 4)

นี่จะไม่เอาชนะคำตอบอื่น ๆbashแต่น่าสนใจเพราะอาจทำให้คุณซ้ำซ้อน:

f()(echo ${1//+([!0-9])/ })

การใช้งานคือ:

$ a=(`f "ab5c0x"`); echo ${a[@]}
5 0
$ a=(`f "z526ks4f.;8]\p"`); echo ${a[@]}
526 4 8
$ 

ในภาพรวมครั้งแรก//+([!0-9])/ดูเหมือนว่าจะมีการทดแทน regexp มากมาย แต่ไม่ใช่ มันเป็นการขยายพารามิเตอร์ bashซึ่งเป็นไปตามกฎการจับคู่รูปแบบแทนที่จะเป็นกฎการแสดงออกปกติ

การคืนค่าประเภทอาเรย์ของ bash ที่แท้จริงจากฟังก์ชั่น bash เป็นความเจ็บปวดดังนั้นฉันเลือกที่จะส่งคืนรายการที่คั่นด้วยช่องว่างแทนจากนั้นแปลงเป็นอาเรย์ในการกำหนดอาเรย์ภายนอกการเรียกใช้ฟังก์ชัน ดังนั้นเพื่อประโยชน์ของความเป็นธรรมฉันรู้สึกว่า(` `)ควรจะรวมฟังก์ชั่นการโทรรอบ ๆ ไว้ในคะแนนของฉัน

Mathematica 32

StringCases[#,DigitCharacter..]&

การใช้

inps ={"abc123def456", "aitew034snk582:3c", "as5493tax54\\430-52@g9.fc", 
        "sasprs]tore\"re\\forz"}  
StringCases[#,DigitCharacter..]&/@inps

{{"123", "456"}, 
 {"034", "582", "3"}, 
 {"5493", "54", "430", "52", "9"}, 
 {}
}

การใช้ regexes ที่เทียบเท่านั้นมีความยาวกว่ามาก!:

StringCases[#, RegularExpression["[0-9]+"]] &

Bash, 21 ไบต์ 17/21 ไบต์ (ปรับปรุงโดยDigitalTrauma )

สร้างรายการที่คั่นด้วยช่องว่างด้วย tr

function split() {
tr -c 0-9 \ <<E
$1
E
}

แทนที่ที่ไม่ใช่ตัวเลขใด ๆ ด้วยช่องว่าง

การใช้

$ for N in $(split 'abc123def456'); do echo $N; done
123
456

แก้ไข

ตามที่แสดงความคิดเห็นด้านล่างรหัสสามารถปล้นได้ถึง 17 ไบต์:

function split() (tr -c 0-9 \ <<<$1)

และเนื่องจากผลลัพธ์ไม่ได้พูดอาร์เรย์ของ Bash อย่างเข้มงวดการใช้ควรเป็น

a=(`split "abc123def456"`); echo ${a[@]}

และ(``)ควรนับส่วนเกิน

Smalltalk (Smalltalk / X), 81

f := [:s|s asCollectionOfSubCollectionsSeparatedByAnyForWhich:[:ch|ch isDigit not]]

ค่า f: 'abc123def456' -> OrderedCollection ('123' '456')

ค่า f: 'aitew034snk582: 3c' -> OrderedCollection ('034' '582' '3')

ค่า f: 'as5493tax54 \ 430-52@g9.fc' -> OrderedCollection ('5493' '54' '430' '52' '9')

ค่า f: 'sasprs] tore \ "re \ forz' -> OrderedCollection ()

ถอนหายใจ - Smalltalk มีแนวโน้มที่จะใช้ชื่อฟังก์ชันยาว veeeery ...

R, 81

f=function(x){
s=strsplit(x,"",T)[[1]]
i=s%in%0:9
split(s,c(0,cumsum(!!diff(i))))[c(i[1],!i[1])]
}

ฟังก์ชั่นยอมรับสตริงและส่งคืนรายการสตริง

ตัวอย่าง:

> f("abc123def456")
$`1`
[1] "1" "2" "3"

$`3`
[1] "4" "5" "6"

-

> f("aitew034snk582:3c")
$`1`
[1] "0" "3" "4"

$`3`
[1] "5" "8" "2"

$`5`
[1] "3"

-

> f("as5493tax54\\430-52@g9.fc")
$`1`
[1] "5" "4" "9" "3"

$`3`
[1] "5" "4"

$`5`
[1] "4" "3" "0"

$`7`
[1] "5" "2"

$`9`
[1] "9"

-

> f("sasprs]tore\"re\\forz")
$<NA>
NULL

หมายเหตุ: $xเป็นชื่อขององค์ประกอบรายการ

Perl, 53

แก้ไข:ไม่จับคู่ตอนนี้ส่งคืนรายการที่มีสตริงว่าง (แทนรายการว่าง) ตามต้องการ

นอกจากนี้ยังหลีกเลี่ยงการแยกอักขระช่องว่างเดียวเนื่องจากจะทำให้เกิดการแยก 'กับพื้นที่สีขาว'ซึ่งอาจเป็นการละเมิดกฎ ฉันสามารถใช้/ /ตัวคั่นซึ่งจะแยกในพื้นที่เดียว แต่จะขัดแย้งกันดูเหมือนว่าใช้รูปแบบ regexp ฉันสามารถใช้unpackอักขระพิเศษบางอย่างและกำจัดการsplitโต้เถียงออกไปโดยสิ้นเชิง แต่ฉันคิดว่าสิ่งที่ฉันจบด้วยการแยกอักขระที่เป็นตัวอักษร (นอกเหนือจากช่องว่าง) ก็โอเค

sub f{shift if(@_=split a,pop=~y/0-9/a/csr)[0]eq''and$#_;@_}

และไม่ใช่ตัวดำเนินการทับศัพท์ของ Perl ไม่แสดงผลปกติ ฉันสามารถยกเลิกช่วง 0-9 ถึง0123456789หากเป็นปัญหา

C, 68 ไบต์ (เฉพาะเนื้อหาของฟังก์ชัน)

void split (char *s, char **a) {
int c=1;for(;*s;s++)if(isdigit(*s))c?*a++=s:0,c=0;else*s=0,c=1;*a=0;
}

อาร์กิวเมนต์แรกคือสตริงอินพุตส่วนที่สองคืออาร์เรย์เอาต์พุตซึ่งเป็นอาร์เรย์สตริงที่สิ้นสุดด้วยค่า NULL หน่วยความจำเพียงพอจะต้องสงวนไว้สำหรับaก่อนที่จะเรียกฟังก์ชัน (กรณีที่เลวร้ายที่สุด: sizeof(char*)*((strlen(s)+1)/2))

ฟังก์ชั่นสายป้อนข้อมูลจะถูกปรับเปลี่ยนโดยฟังก์ชั่น (ตัวละครที่ไม่ใช่ตัวเลขทุกตัวจะถูกแทนที่ด้วย'\0')

ตัวอย่างการใช้งาน

#include <stdio.h>
#include <stdlib.h>
#include <ctype.h>

void split (char *s, char **a) {
int c=1;for(;*s;s++)if(isdigit(*s))c?*a++=s:0,c=0;else*s=0,c=1;*a=0;
}   

void dump(char **t) {
    printf("[ ");for(;*t;t++)printf("%s ", *t);printf("]\n");
}   

int main() {
    char **r = malloc(1024);
    char test1[] = "abc123def456";
    char test2[] = "aitew034snk582:3c";
    char test3[] = "as5493tax54\\430-52@g9.fc";
    char test4[] = "sasprs]tore\"re\\forz";
    split(test1,r); 
    dump(r);
    split(test2,r); 
    dump(r);
    split(test3,r); 
    dump(r);
    split(test4,r); 
    dump(r);
    return 0;
}

เอาท์พุต

[ 123 456 ]
[ 034 582 3 ]
[ 5493 54 430 52 9 ]
[ ]

รุ่นที่ไม่ตีกอล์ฟ:

void split (char *s, char **a) {
    int c=1; // boolean: the latest examined character is not a digit
    for(;*s;s++) {
        if(isdigit(*s)) {
            if(c) *a++ = s; // stores the address of the beginning of a digit sequence
            c=0;
        } else {
            *s=0; // NULL-terminate the digit sequence
            c=1;
        }   
    }   
    *a = 0; // NULL-terminate the result array
} 

VBScript, 190 (164 โดยไม่มีการประกาศฟังก์ชัน)

Function f(i)
For x=1 To Len(i)
c=Mid(i,x,1)
If Not IsNumeric(c) Then
Mid(i,x,1)=" "
End If
Next
Do
l=Len(i)
i=Replace(i,"  "," ")
l=l-Len(i)
Loop Until l=0
f=Split(Trim(i)," ")
End Function

ในขณะที่ไม่สามารถแข่งขันได้ทั้งหมดฉันประหลาดใจที่ VBScript ออกมาสั้น ๆ เกี่ยวกับเรื่องนี้เนื่องจากความละเอียด (13 ไบต์สำหรับ CRs เพียงอย่างเดียว) มันวนรอบสตริงแทนที่อักขระที่ไม่ใช่ตัวเลขด้วยช่องว่างจากนั้นลดช่องว่างทั้งหมดเป็นช่องว่างเดียวแล้วใช้ตัวคั่นช่องว่างเพื่อแบ่ง

กรณีทดสอบ

Input: "ab5c0x"
Output: 5,0

Input: "z526ks4f.;8]\p"
Output: 526,4,8

Common Lisp (1 ตามตัวอักษร; ≈173ตามวิญญาณ)

นี่คือรุ่นที่อ่านได้ จำนวนไบต์ค่อนข้างสูงเนื่องจากชื่อยาวในสิ่งที่ชอบdigit-char-pและposition-ifและvector-push-extendและ

(defun extract-numeric-substrings (string &aux (start 0) (end 0) (result (make-array 0 :adjustable t :fill-pointer 0)))
  (loop 
     (unless (and end (setq start (position-if #'digit-char-p string :start end)))
       (return result))
     (setq end (position-if (complement #'digit-char-p) string :start (1+ start)))
     (vector-push-extend (subseq string start end) result)))

(extract-numeric-substrings "abc123def456")
#("123" "456")

(extract-numeric-substrings "aitew034snk582:3c")
#("034" "582" "3")

(extract-numeric-substrings "as5493tax54\\430-52@g9.fc")
#("5493" "54" "430" "52" "9")

(extract-numeric-substrings "sasprs]tore\"re\\forz")
#()

แนวคิดของ "การประกาศฟังก์ชั่น" นั้นค่อนข้างคลุมเครือ นี่คือรุ่นที่มีเพียงหนึ่งไบต์ (ตัวละครxในส่วนของฟังก์ชั่น); ทุกอย่างรวมอยู่ในตัวแปรเสริมของรายการ lamba ของฟังก์ชั่น (ส่วนหนึ่งของการประกาศฟังก์ชั่น):

(defun extract-numeric-substrings (string 
                                   &aux (start 0) (end 0) 
                                   (result (make-array 0 :adjustable t :fill-pointer 0))
                                   (x (loop 
                                         (unless (and end (setq start (position-if #'digit-char-p string :start end)))
                                           (return result))
                                         (setq end (position-if (complement #'digit-char-p) string :start (1+ start)))
                                         (vector-push-extend (subseq string start end) result))))
  x)

จำนวนไบต์ที่เกิดขึ้นจริงจะขึ้นอยู่กับจำนวนของการประกาศเสริมจะต้องถูกย้ายเข้าไปในร่างกายเพื่อที่จะถือว่าเป็นที่ยอมรับ การเปลี่ยนชื่อฟังก์ชั่นในตัวเครื่องบางอย่างก็ช่วยได้เช่นกันposition-ifเนื่องจากปรากฏสองครั้งใช้ตัวแปรตัวอักษรเดี่ยว ฯลฯ )

การแสดงผลของโปรแกรมนี้มี 220 ตัวอักษร:

(LOOP(UNLESS(AND END(SETQ START(POSITION-IF #'DIGIT-CHAR-P STRING :START END)))(RETURN RESULT))(SETQ END(POSITION-IF(COMPLEMENT #'DIGIT-CHAR-P)STRING :START(1+ START)))(VECTOR-PUSH-EXTEND(SUBSEQ STRING START END)RESULT))

หากไม่มีสิ่งอื่นใดสิ่งนี้ควรส่งเสริม ตัวแปร & Lisp ของ Common Lispและตัวแปร

สิ่งนี้สามารถเขียนได้กระชับยิ่งขึ้นด้วย loopแน่นอน:

(defun extract-numeric-substrings (s &aux (b 0) (e 0) (r (make-array 0 :fill-pointer 0)))
  (loop 
     with d = #'digit-char-p 
     while (and e (setq b (position-if d s :start e)))
     finally (return r)
     do 
       (setq e (position-if-not d s :start (1+ b)))
       (vector-push-extend (subseq s b e) r)))

loopรูปแบบกับพื้นที่พิเศษลบออกได้ 173 ตัวอักษร:

(LOOP WITH D = #'DIGIT-CHAR-P WHILE(AND E(SETQ B(POSITION-IF D S :START E)))FINALLY(RETURN R)DO(SETQ E(POSITION-IF-NOT D S :START(1+ B)))(VECTOR-PUSH-EXTEND(SUBSEQ S B E)R))

จาวาสคริปต์, 240 ไบต์

และสำหรับคนที่อยากรู้อยากเห็นนี่คือสนามกอล์ฟขนาดใหญ่ของฉัน:

function split(a) { // begin function
function f(c){for(var a=-1,d=9;d--;){var e=c.indexOf(d+"");0
>e||e<a&&(a=e)}return 0<a?a:null}var c=f(a);if(null==c)retur
n null;var d=[];for(i=0;;){a=a.substring(c);d[i]||(d[i]="");
c=f(a);if(null==c)break;d[i]+=a.charAt(c);0<c&&i++}return d;
} // end function

ข้างต้นในการพิมพ์สวย:

function split(a) {
    function f(c) {
        for (var a = -1, d = 9;d--;) {
            var e = c.indexOf(d + "");
            0 > e || e < a && (a = e);
        }
        return 0 < a ? a : null;
    }
    var c = f(a);
    if (null == c) return null;
    var d = [];
    for (i = 0;;) {
        a = a.substring(c);
        d[i] || (d[i] = "");
        c = f(a);
        if (null == c) break;
        d[i] += a.charAt(c);
        0 < c && i++;
    }
    return d;
}

ด้านบนในรหัสอธิบายปกติ

function split(a) {
    function findLoop(string) {
        var lowest = -1;
        var i = 9;
        while (i--) {
            var index = string.indexOf(i + '');
            if (index < 0) continue;
            if (index < lowest) lowest = index;
        }
        return (lowest > 0) ? lowest : null;
    }
    var index = findLoop(a);
    if (index == null) return null;
    var ret = [];
    i = 0;
    for ( ; ; ) {
        a = a.substring(index);
        if (!ret[i]) ret[i] = '';
        index = findLoop(a);
        if (index == null) break;
        ret[i] += a.charAt(index);
        if (index > 0) i++;
    }
    return ret;
}

PHP 134

function f($a){
$i=0;while($i<strlen($a)){!is_numeric($a[$i])&&$a[$i]='-';$i++;}return array_filter(explode('-',$a),function($v){return!empty($v);});
}

C, 158

#define p printf
char s[100],c;int z,i;int main(){while(c=getchar())s[z++]=(c>47&&c<58)*c;p("[");for(;i<z;i++)if(s[i]){p("\"");while(s[i])p("%c",s[i++]);p("\",");}p("]");}

เนื่องจาก C ไม่มีฟังก์ชั่นการพิมพ์อาเรย์ในตัวฉันจึงต้องทำงานด้วยตัวเองดังนั้นฉันจึงขอโทษที่มีเครื่องหมายจุลภาคสุดท้ายในทุกผลลัพธ์ เป็นหลักสิ่งที่รหัสทำมันอ่านสตริงถ้าไม่ใช่ตัวเลขมันแทนที่ด้วย '\ 0' แล้วฉันวนรอบรหัสและพิมพ์โซ่ทั้งหมดของตัวเลข (EOF = 0)

อินพุต: ab5c0x
เอาต์พุต: ["5", "0",]

อินพุต: z526ks4f.; 8] \ p
เอาต์พุต: ["526", "4", "8",]

C #, 98

static string[] SplitAtNonDigits(string s)
{
    return new string(s.Select(c=>47<c&c<58?c:',').ToArray()).Split(new[]{','},(StringSplitOptions)1);
}

ก่อนอื่นใช้.Select()วิธีการขยายLINQ เพื่อเปลี่ยนตัวเลขที่ไม่ใช่ตัวเลขทั้งหมดให้เป็นเครื่องหมายจุลภาค string.Replace()จะดีกว่าเพราะมันส่งกลับstringมากกว่าIEnumerable<char>แต่string.Replace()สามารถใช้ถ่านเดียวหรือสตริงและไม่สามารถทำให้การใช้คำกริยาเหมือนหรือchar.IsDigit()47<c&c<58

ดังที่ได้กล่าว.Select()ไปแล้วการประยุกต์ใช้กับสตริงจะส่งคืนค่าIEnumerable<char>ดังนั้นเราต้องเปลี่ยนกลับเป็นสตริงโดยเปลี่ยนเป็นอาร์เรย์และส่งผ่านอาร์เรย์ไปยังตัวstringสร้าง

string.Split()สุดท้ายเราแยกสตริงที่ใช้จุลภาค (StringSplitOptions)1เป็นวิธีที่สั้นกว่าในการพูดStringSplitOptions.RemoveEmptyEntriesซึ่งจะดูแลเครื่องหมายจุลภาคและเครื่องหมายคอมม่าหลายรายการติดต่อกันโดยอัตโนมัติที่จุดเริ่มต้น / สิ้นสุดของสตริง

JS / โหนด: 168 162 147 138 ตัวอักษร

function n(s){
var r=[];s.split('').reduce(function(p,c){if(!isNaN(parseInt(c))){if(p)r.push([]);r[r.length-1].push(c);return 0;}return 1;},1);return r;
}

รุ่นสวยงาม:

function n(s) {
  var r = [];
  s.split('').reduce(function (p, c) {
    if (!isNaN(parseInt(c))) {
      if (p) {
        r.push([]);
      }
      r[r.length - 1].push(c);
      return 0;
    }
    return 1;
  }, 1);
  return r;
}

ทับทิม, 24

f=->s{s.tr("
-/:-~",' ').split}

กำหนดตัวเลขโดยใช้ช่องว่างลบภายในช่วง ASCII ที่พิมพ์ได้

php , 204

function s($x){$a=str_split($x);$c=-1;$o=array();
for($i= 0;$i<count($a);$i++){if(ord($a[$i])>=48&&ord($a[$i])<=57)
{$c++;$o[$c]=array();}while(ord($a[$i])>=48&&ord($a[$i])<=57)
{array_push($o[$c],$a[$i]);$i++;}}return $o;}

รหัสอธิบาย:

function splitdigits($input){

    $arr = str_split($input);
    $count = -1;
    $output = array();
    for($i = 0; $i < count($arr); $i++){


    if(ord($arr[$i]) >= 48 && ord($arr[$i]) <= 57){
        $count++;
        $output[$count] = array();
    }

    while(ord($arr[$i]) >= 48 && ord($arr[$i]) <= 57){
        array_push($output[$count], $arr[$i]);
        $i++;
    } 

}

return $output;
}

นี่คือรหัสที่ค่อนข้างยาวและฉันแน่ใจว่าจะมี php เวอร์ชันสั้นกว่ามากสำหรับกอล์ฟรหัสนี้ นี่คือสิ่งที่ฉันสามารถเกิดขึ้นใน PHP

หลาม

def find_digits(_input_):
    a,b = [], ""
    for i in list(_input_):
        if i.isdigit(): b += i
        else:
            if b != "": a.append(b)
            b = ""
    if b != "": a.append(b)
    return a

Python 104 83

def f(s, o=[], c=""):
    for i in s:
        try:int(i);c+=i
        except:o+=[c];c=""
    return [i for i in o+[c] if i]

@Abhijit คำตอบนั้นฉลาดมากนี่เป็นเพียงรุ่น "ย่อ" ของสิ่งที่ฉันมีอยู่ในใจ

assert f("abc123def456") == ["123", "456"]
assert f("aitew034snk582:3c") == ["034", "582", "3"]
assert f("as5493tax54\\430-52@g9.fc") == ["5493", "54", "430", "52", "9"]
assert f("sasprs]tore\"re\\forz") == []

สิ่งนี้จะไม่มีเอาต์พุตดังนั้นโค้ดจะทำงานหากรันทีละตัวเนื่องจากตัวแปรบางตัวถูกกำหนดที่การประกาศ

PHP 98 89

ในคำตอบทุบตีของ DigitalTrauma สิ่งนี้ไม่ได้ใช้ regex

function f($x) {
// Only the following line counts:
for($h=$i=0;sscanf(substr("a$x",$h+=$i),"%[^0-9]%[0-9]%n",$j,$s,$i)>1;)$a[]=$s;return@$a;
}

กรณีทดสอบ:

php > echo json_encode(f("abc123def456")), "\n";
["123","456"]
php > echo json_encode(f("aitew034snk582:3c")), "\n";
["034","582","3"]
php > echo json_encode(f("as5493tax54\\430-52@g9.fc")), "\n";
["5493","54","430","52","9"]
php > echo json_encode(f("sasprs]tore\"re\\forz")), "\n";
null

Haskell 31

{-# LANGUAGE OverloadedStrings #-}
import Data.Char (isDigit)
import Data.Text (split)

f=filter(/="").split(not.isDigit)

มันแยกสตริงกับตัวละครที่ไม่ใช่ตัวเลขทั้งหมดและลบสตริงว่างที่สร้างขึ้นโดยตัวคั่นต่อเนื่อง

VBA 210, 181 โดยไม่มีการประกาศฟังก์ชัน

Function t(s)
Dim o()
For Each c In Split(StrConv(s,64),Chr(0))
d=IsNumeric(c)
If b And d Then
n=n&c
ElseIf d Then:ReDim Preserve o(l):b=1:n=c
ElseIf b Then:b=0:o(l)=n:l=l+1:End If:Next:t=o
End Function

Rebol (66 ตัวอักษร)

remove-each n s: split s complement charset"0123456789"[empty? n]s

Ungolfed และห่อในการประกาศฟังก์ชั่น:

f: func [s] [
    remove-each n s: split s complement charset "0123456789" [empty? n]
    s
]

โค้ดตัวอย่างใน Rebol console:

>> f "abc123def456"
== ["123" "456"]

>> f "aitew035snk582:3c"
== ["035" "582" "3"]

>> f "as5493tax54\\430-52@g9.fc"
== ["5493" "54" "430" "52" "9"]

>> f {sasprs]torer"re\\forz}
== []

JavaScript, 104 97 89

แข็งแรงเล่นกอล์ฟ:

แก้ไข:เมื่อลูปเดินออกจากจุดสิ้นสุดของอาเรย์cคือundefinedซึ่งเป็นเท็จและยุติการวนซ้ำ

2/27:การใช้?:บันทึก wordiness if/elseของ

function nums(s) {
s+=l='length';r=[''];for(k=i=0;c=s[i];i++)r[k]+=+c+1?c:r[k+=!!r[k][l]]='';
r[l]--;return r
}

การคืนรถในร่างกายมีไว้เพื่อให้อ่านได้และไม่ได้เป็นส่วนหนึ่งของการแก้ปัญหา

Ungolfed:

แนวคิดคือการผนวกอักขระแต่ละตัวในรายการสุดท้ายในอาร์เรย์ถ้าเป็นตัวเลขและเพื่อให้แน่ใจว่ารายการอาร์เรย์สุดท้ายเป็นสตริงมิฉะนั้น

function nums(s) {
    var i, e, r, c, k;
    k = 0;
    s+='x'; // ensure the input does not end with a digit
    r=[''];
    for (i=0;i<s.length;i++) {
        c=s[i];
        if (+c+1) { // if the current character is a digit, append it to the last entry
            r[k] += c;
        }
        else { // otherwise, add a new entry if the last entry is not blank
            k+=!!r[k].length;
            r[k] = '';
        }
    }
    r.length--; // strip the last entry, known to be blank
    return r;
}

Javascript, 72

function f(a){
 a+=".",b="",c=[];for(i in a)b=+a[i]+1?b+a[i]:b?(c.push(b),""):b;return c
}

Ungolfed

a+=".",b="",c=[];        //add '.' to input so we dont have to check if it ends in a digit
for(i in a)
    b=+a[i]+1?           //check if digit, add to string if it is
        b+a[i]:         
    b?                   //if it wasnt a digit and b contains digits push it
        (c.push(b),""):  //into the array c and clear b
    b;                   //else give me b back
return c

ตัวอย่างอินพุต / เอาต์พุต

console.log(f("abc123def456"));
console.log(f("aitew034snk582:3c"));
console.log(f("as5493tax54\\430-52@g9.fc"));
console.log(f("sasprs]tore\"re\\forz"));

["123", "456"]
["034", "582", "3"]
["5493", "54", "430", "52", "9"]
[] 

JSFiddle

R 52

This function splits strings by character class (this is not regex! :)) class is N - numeric characters and P{N} means negation of this class. o=T means omit empty substrings.

x
## [1] "wNEKbS0q7hAXRVCF6I4S" "DpqW50YfaDMURB8micYd" "gwSuYstMGi8H7gDAoHJu"
require(stringi)
stri_split_charclass(x,"\\P{N}",o=T)
## [[1]]
## [1] "0" "7" "6" "4"

## [[2]]
## [1] "50" "8" 

## [[3]]
## [1] "8" "7"

PHP 99

<?php

$a = function($s) {
foreach(str_split($s)as$c)$b[]=is_numeric($c)?$c:".";return array_filter(explode('.',implode($b)));
};

var_dump($a("abc123def456"));
var_dump($a("aitew034snk582:3c"));
var_dump($a("as5493tax54\\430-52@g9.fc"));
var_dump($a("sasprs]tore\"re\\forz"));

Output

array(2) {
  [3]=>
  string(3) "123"
  [6]=>
  string(3) "456"
}
array(3) {
  [5]=>
  string(3) "034"
  [8]=>
  string(3) "582"
  [9]=>
  string(1) "3"
}
array(5) {
  [2]=>
  string(4) "5493"
  [5]=>
  string(2) "54"
  [6]=>
  string(3) "430"
  [7]=>
  string(2) "52"
  [9]=>
  string(1) "9"
}
array(0) {
}

JavaScript 88

88 chars when not counting function n(x){}

function n(x){
y=[],i=0,z=t=''
while(z=x[i++])t=!isNaN(z)?t+z:t&&y.push(t)?'':t
if(t)y.push(t)
return y
}