(explode) enhancement

[Fanda]

Hello!
I would like to do something like this:
"keep it together" => ("keep" "it" "together")

> (explode "keep it together")
("k" "e" "e" "p" " " "i" "t" " " "t" "o" "g" "e" "t" "h" "e" "r")

Is it possible to add one more parameter to 'explode'?
> (explode "keep it together" " ")
("keep" "it" "together")
> (explode "keep,it,together" ",")
("keep" "it" "together")

> (explode "first_last@name.com" "_@.")
("first" "last" "name" "com")

Thank you, Fanda

PS: See 'split' in Tcl.

[HPW]

What about:

> (parse "keep it together" " ")
("keep" "it" "together")
>

[Fanda]

That will do ;-)

Sorry, I couldn't find it yesterday.

Fanda

[Fanda]

This is what I did with it:

Code: Select all

#
# Split function from Tcl
#
(define (parse-no-empty str c)
  (filter (lambda (x) (not (empty? x))) (parse str c)))

(define (split str-data str-break)
  (if (empty? str-break)
    (explode str-data)
    (begin
      (setq str-data (list str-data))
      (dolist (c (explode str-break))
        (setq str-data (flat (map (lambda (s) (parse-no-empty s c)) str-data)))))))

> (split "Simple sentence, but useful!" ",! ")
("Simple" "sentence" "but" "useful")

> (split "http://www.yahoo.com" ":/.")
("http" "www" "yahoo" "com")

> (split "Hi++++Hello-----Bye!" "+-!")
("Hi" "Hello" "Bye")

Fanda

[Fanda]

And finally the reason why I thought I would need it:

Code: Select all

#
# Word jumble :-)
#

; mix inside of the word   ("hello" -> "hlelo")
(define (mix str)
  (if (> (length str) 3)
    (append (str 0) (join (randomize (explode (1 (- (length str) 2) str)))) (str -1))
    str))

; jumble the words in the sentence
(define (jumble str)
  (let (w "" break ",. -:?!()[]{}+/\|=*&^%$#@!~`'<>" result "")
    (dolist (c (explode str))
      (if (find c break)
        (begin
          (write-buffer result (append (mix w) c))
          (setq w ""))
        (write-buffer w c)))
    (write-buffer result (mix w))
    result))


(setq str "According to research at Cambridge University, it doesn't matter in what order the letters in a word are, the only important thing is that the first and last letter be in the right place. The rest can be a total mess and you can still read it without a problem. This is because the human mind does not read every letter by itself, but the word as a whole.")

(println "\n" (jumble str) "\n")

=> Aidoccrng to racerseh at Cibamdgre Urtisevniy, it dosen't mtaetr in waht oredr the lettres in a wrod are, the olny imoapnrtt tnhig is taht the frsit and lsat letter be in the rhigt pcale. The rset can be a tatol mses and you can sltil raed it wtihuot a pbolrem. Tihs is bascuee the hmuan mnid deos not raed eevry letetr by isetlf, but the wrod as a wolhe.

Fanda :-)

[Lutz]

You may also want to look into 'parse' with regular expressions in the break string. See examples in the manual.

Lutz