स्ट्रिंग स्प्लिट फ़ंक्शन

Question

मैं बस सोच रहा हूं कि स्ट्रिंग स्प्लिट फ़ंक्शन है या नहीं? कुछ ऐसा:

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

मुझे यह नहीं मिला है और मैंने अपना खुद का निर्माण किया है। मैं समय-समय पर योजना उपयोग करती हैं इसलिए मैं आभारी अगर आप इसे ठीक करने और बेहतर समाधान का सुझाव दिया जाएगा:

#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

हे! यह बहुत काम है। अगर मैं आपकी समस्या को सही ढंग से समझ, मैं इस के लिए regexp-विभाजन का प्रयोग करेंगे:

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

=>

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

Answer 2

, मैं irregex अंडे का उपयोग कर चिकन योजना में ऐसा किया बस अन्य Schemers के लिए एक संदर्भ के रूप :

(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

ठीक है, आप सादे पुराने स्ट्रिंग विभाजित उपयोग कर सकते हैं

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

यह रैकेट http://docs.racket-lang.org/reference/strings.html#%28def._%28%28lib._racket%2Fstring..rkt%29._string-split%29%29