Clojure LeetCode Online Judge: Reverse Words in a String

(defun rev-sent (txt)
 (let* ((tmp (output (reverse (input (strCat "(" txt ")")))))
        (l (strLen tmp)))
   (strMid tmp 2 (- l 2))))
 
==> rev-sent
 
(rev-sent "Мой дядя самых честных правил")
 
==> "правил честных самых дядя Мой"

(defun cleave (s)
  (mapcar #'string (read-from-string
                    (concatenate 'string "(" s ")"))))
 
(defun reverse-sentence (s)
  (string-right-trim " " (format nil "~{~a ~}"
                                 (reverse (cleave s)))))
 
> (reverse-sentence "ab cd")
"CD AB"

(defun cleave (s)
  (mapcar #'string (read-from-string
                    (concatenate 'string "(" s ")"))))
 
(defun reverse-sentence (s)
  (string-right-trim '(#\Space)
                     (format nil "~{~a ~}"
                             (reverse (cleave s)))))
 
> (reverse-sentence "ab cd")
"CD AB"

(ns aeon.core
  (:require [clojure.string :refer [split join]]))
 
(defn task [s]
  (->> (split s #" ") reverse (join \space)))
;; => #'aeon.core/task
 
(task "ab cd")
;; => "cd ab"
(task "ab     cd")
;; => "cd     ab"

(cdl-list->string
  (reverse
    (cdl-string->list "Ìîé äÿäÿ ñàìûõ ÷åñòíûõ ïðàâèë" " ")
  )
  " "
)
 
"ïðàâèë ÷åñòíûõ ñàìûõ äÿäÿ Ìîé"
_$ 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
(defun cdl-string->list (s p / i)
  (if (setq i (vl-string-search p s))
    (cons (substr s 1 i)
      (cdl-string->list (substr s (+ (strlen p) i 1)) p)
    )
    (list s)
  )
)
 
(defun cdl-list->string (lst p / tmp)
  (substr
    (setq tmp (apply 'strcat (mapcar '(lambda (x) (strcat x p)) lst)))
    1
    (- (strlen tmp) (strlen p))
  )
)

(defun cleave (s)
  (mapcar #'string (read-from-string
                    (concatenate
                     'string "("
                     (delete-if-not #'(lambda (x)
                                        (or (alpha-char-p x)
                                            (equal x #\space)
                                            (equal x #\-)))
                                    s) ")"))))
 
(defun reverse-sentence (s)
  (string-right-trim '(#\Space)
                     (format nil "~{~a ~}"
                             (reverse (cleave s)))))
 
> (reverse-sentence "ab, cd; ef")
"EF CD AB"

(defun cleave (s)
  (mapcar #'string (read-from-string
                    (concatenate
                     'string "("
                     (delete-if #'(lambda (x)
                                    (or (equal x #\()
                                        (equal x #\))
                                        (equal x #\,)
                                        (equal x #\')
                                        (equal x #\`)
                                        (equal x #\|)
                                        (equal x #\:)
                                        (equal x #\\)
                                        (equal x #\;)))
                                s) ")"))))
 
(defun reverse-sentence (s)
  (string-right-trim '(#\Space)
                     (format nil "~{~a ~}"
                             (reverse (cleave s)))))
 
> (reverse-sentence "a, b; c@ d# e$ f% g^ h& i* j_ k+ l/ m[ n] o{ p} q< r> s. t? u( v) z, z' z` z| z: z\ z;")
"Z Z Z Z Z Z Z V U T? S. R> Q< P} O{ N] M[ L/ K+ J_ I* H& G^ F% E$ D# C@ B A"