[Yura Agafonov]

Имеется текст с четным количеством слов. Из него нужно получить список точечных пар этих слов.
ПРИМЕР:
Дано:

Код:

[Выделить все]

 "слово1 слово2 слово3 слово4 слово5 слово6 слово7 слово8 "

Результат:

Код:

[Выделить все]

 (list ("слово1" . "слово2") ("слово3" . "слово4") ("слово5" . "слово6") ("слово7" . "слово8"))

[Do$]

Выглядит, как задание...
Тогда еще надо сроки озвучить

[Yura Agafonov]

Задание? эээ...
А строки произвольные, то есть число слов любое но всегда четное, слова любые...

[Кулик Алексей aka kpblc]

Код:

[Выделить все]

 (defun test (/ _kpblc-conv-string-to-list str fun)

  (defun _kpblc-conv-string-to-list (string separator / i)
    (cond
      ((= string "") nil)
      ((vl-string-search separator string)
       ((lambda (/ pos res)
          (while (setq pos (vl-string-search separator string))
            (setq res    (cons (substr string 1 pos) res)
                  string (substr string (+ (strlen separator) 1 pos))
                  ) ;_ end of setq
            ) ;_ end of while
          (reverse (cons string res))
          ) ;_ end of lambda
        )
       )
      ((wcmatch (strcase string) (strcat "*" (strcase separator) "*"))
       ((lambda (/ pos res _str prev)
          (setq pos  1
                prev 1
                _str (substr string pos)
                ) ;_ end of setq
          (while (<= pos (1+ (- (strlen string) (strlen separator))))
            (if (wcmatch (strcase (substr string pos (strlen separator))) (strcase separator))
              (setq res    (cons (substr string 1 (1- pos)) res)
                    string (substr string (+ (strlen separator) pos))
                    pos    0
                    ) ;_ end of setq
              ) ;_ end of if
            (setq pos (1+ pos))
            ) ;_ end of while
          (if (< (strlen string) (strlen separator))
            (setq res (cons string res))
            ) ;_ end of if
          (if (or (not res) (= _str string))
            (setq res (list string))
            (reverse res)
            ) ;_ end of if
          ) ;_ end of lambda
        )
       )
      (t (list string))
      ) ;_ end of cond
    ) ;_ end of defun

  (defun fun (lst)
    (cond
      ((and (listp lst) (= (length lst) 2))
       (list (cons (car lst) (cadr lst)))
       )
      ((and (listp lst) (= (length lst) 1)) (list (car lst)))
      (t
       (append (list (cons (car lst) (cadr lst))) (fun (cddr lst)))
       )
      ) ;_ end of cond
    ) ;_ end of defun
(setq str "слово1 слово2 слово3 слово4 слово5 слово6 слово7 слово8 ")
  (fun (_kpblc-conv-string-to-list (vl-string-trim " " str) " "))
  ) ;_ end of defun

[Yura Agafonov]

вот спасибо. Кулик как всегда спасает

[Эдуард]

И немножко попроще.

Код:

[Выделить все]

 
(defun es_lstsort (lst)
  (if (> (length lst) 1)
    (cons (cons (car lst) (cadr lst)) (es_lstsort (cddr lst)))
  )
)

Код:

[Выделить все]

 
(es_lstsort(mapcar 'vl-symbol-name(read(strcat "("  "слово1 слово2 слово3 слово4 слово5 слово6 слово7 слово8 " ")"))))

[Олег (jr.)]

Блеск, Эдуард!
Я бы добавил проверку на четность типа

Код:

[Выделить все]

(defun es_lstsort (lst)
  (if (zerop (rem (length lst) 2))
  (if (> (length lst) 1)
    (cons (cons (car lst) (cadr lst)) (es_lstsort (cddr lst)))
  )
    (alert "Добавь / убавь членов...")
)
  )

[Дима_]

Offtop: Как-то я тему эту пропустил - ибо Алексей здесь явно намудрил.
По примеру Эдуарда (if (> (length lst) 1)...) - это ихмо некошерно - (if (cdr lst)...)

[gomer]

покажите мн пример, когда безопасные массивы в автокаде не кратны трем? а то что здесь обсуждается это от верблюда...

[Кулик Алексей aka kpblc]

(setq aa(vlax-safearray-fill (vlax-make-safearray vlax-vbDouble '(0 . 1)) '(1. 2.)))

[gomer]

kpblc, это в другую сторону верблюда. я говорю об извлечении списка из б/масива, полученного из стандартной лисп-функции, точнее из х-метода или х-свойства

[Кулик Алексей aka kpblc]

Нарисуй обычную LWPolyline и дальше:

Код:

[Выделить все]

(setq ent (vlax-ename->vla-object (entlast)))
(vlax-safearray->list (vlax-variant-value (vla-get-coordinate ent 0)))

То?

[Мансур]

Для упрощения полагаем, что по краям пробелов нет, а внутри слова разделены четко одинарными пробелами.
Предполагаю, мой вариант один из самых быстрых, еще можно вложенный defun убрать (привет матерым лисперам

Код:

[Выделить все]

 
(defun parsewords (text / len pos pos1 pos2 lst word words)
  (defun word (start end) 
    (substr text (+ 2 start) (if end (- end start 1))) )
  (setq len (strlen text)
    pos -1
    lst pos )
  (while pos
    (if (setq pos1 (vl-string-position 32 text (1+ pos)))
      (setq pos2 (vl-string-position 32 text (1+ pos1))
;        words (cons (cons (substr text (+ 2 pos) (- pos1 pos 1))
;                      (substr text (+ 2 pos1) (if pos2 (- pos2 pos1 1))))
;                    words)
         words (cons (cons (word pos pos1) (word pos1 pos2)) words)
        pos pos2)
    )
  )
  (reverse words)
)