1. Forum
  2. USENET
  3. comp.lang.lisp

  • Merging strings

    From B. Pym@Nobody447095@here-nor-there.org to comp.lang.lisp,comp.lang.scheme on Fri Jul 4 14:22:14 2025
    From Newsgroup: comp.lang.lisp

    You have a list contain both strings and numbers.
    Generate a new list in which the adjacent strings
    have been concatenated.

    Scheme

    (define (merge-strings List)
    (reverse
    (fold
    (lambda (e accum)
    (if (and (string? e) (pair? accum) (string? (car accum)))
    (cons (string-append (car accum) e) (cdr accum))
    (cons e accum)))
    '()
    List)))

    (merge-strings '("1" "2" 3 4 "5" "6" 7 8 "9"))
    ===>
    ("12" 3 4 "56" 7 8 "9")
    --- Synchronet 3.21d-Linux NewsLink 1.2