Chức năng tách chuỗi

Question

Tôi chỉ tự hỏi liệu có chức năng chia chuỗi không? Một cái gì đó như:

> (string-split "19 2.14 + 4.5 2 4.3/- *") 
'("19" "2.14" "+" "4.5" "2" "4.3" "/" "-" "*") 

Tôi chưa tìm thấy nó và tạo của riêng tôi. Tôi thỉnh thoảng sử dụng Đề án vì vậy tôi sẽ biết ơn nếu bạn sửa chữa và đề xuất giải pháp tốt hơn:

#lang racket 

(define expression "19 2.14 + 4.5 2 4.3/- *") 

(define (string-split str) 

    (define (char->string c) 
    (make-string 1 c)) 

    (define (string-first-char str) 
    (string-ref str 0)) 

    (define (string-first str) 
    (char->string (string-ref str 0))) 

    (define (string-rest str) 
    (substring str 1 (string-length str))) 

    (define (string-split-helper str chunk lst) 
    (cond 
    [(string=? str "") (reverse (cons chunk lst))] 
    [else 
    (cond 
     [(char=? (string-first-char str) #\space) (string-split-helper (string-rest str) "" (cons chunk lst))] 
     [else 
     (string-split-helper (string-rest str) (string-append chunk (string-first str)) lst)] 
     ) 
    ] 
    ) 
) 

    (string-split-helper str "" empty) 
) 

(string-split expression) 

Answer 1

Oh my! Đó là rất nhiều công việc. Nếu tôi hiểu vấn đề của bạn một cách chính xác, tôi sẽ sử dụng regexp-chia cho điều này:

 
#lang racket 
(regexp-split #px" " "bc thtn odnth") 

=>

 
Language: racket; memory limit: 256 MB. 
'("bc" "thtn" "odnth") 

Answer 2

Cũng giống như một tài liệu tham khảo cho mưu khác, tôi đã làm điều này trong Gà Đề án sử dụng irregex trứng :

(use irregex) 

(define split-regex 
    (irregex '(+ whitespace))) 

(define (split-line line) 
    (irregex-split split-regex line)) 

(split-line "19 2.14 + 4.5 2 4.3/- *") => 
("19" "2.14" "+" "4.5" "2" "4.3" "/" "-" "*") 

Answer 3

Vâng, bạn có thể sử dụng đồng bằng cũ chuỗi-chia

> (string-split "19 2.14 + 4.5 2 4.3/- *") 
'("19" "2.14" "+" "4.5" "2" "4.3" "/" "-" "*") 

Nó là một phần của vợt http://docs.racket-lang.org/reference/strings.html#%28def._%28%28lib._racket%2Fstring..rkt%29._string-split%29%29