Во входном файле записана символьная строка из двух слов, разделенных или одним пробелом, или несколькими

@std11 · Регистрация: 05.12.2016

Author24 — интернет-сервис помощи студентам

Привет, нужна помощь по Lisp
Во входном файле записана символьная строка из двух слов, разделенных или одним пробелом, или несколькими. Считав эту фразу из файла, написать её в две строки и вывести в новый файл

@Catstail · 06.12.2016, 12:44

HomeLisp:

Lisp

(defun task (f1 f2)
  (let ((fi (gensym 'f))
        (fo (gensym 'f)))
   (filOpen fi f1 _INPUT)
   (filOpen fo f2 _OUTPUT)
   (mapcar (lambda (x) (filPutLine fo x)) (strWords (filGetline fi))) 
   (filCloseAll)))

@std11 · 10.12.2016, 10:42 **[ТС]**

Спасибо

@Catstail · 19.12.2016, 10:23

Создаем в текущей директории файл f.txt с таким, к примеру, содержимым:

Код

aaaaaaaa   bbbbbbbb

затем вызываем функцию:

Lisp

1	(task "f.txt" "g.txt")

И убеждаемся, что в директории появился файл g.txt

Код

aaaaaaaa
bbbbbbbb

@std11 · 19.12.2016, 11:06 **[ТС]**

Ошибка:
Внутри LET: EVFUN: Не найдена функция STRWORDS
==> ERRSTATE
файл g.txt создается, но он пустой

Добавлено через 15 минут
HomeLisp версия 1.34.4

@Catstail · 19.12.2016, 12:52

Задай эту функцию:

Lisp

(DEFUN STRWORDS (STRI &OPTIONAL (W "") &KEY (DELIM " ")) 
  (COND ((ZEROP (STRLEN STRI)) (IF (ZEROP (STRLEN W)) NIL (LIST W)))
        ((EQ DELIM (STRLEFT STRI 1)) (IF (ZEROP (STRLEN W)) (STRWORDS (STRMID STRI 2) W :DELIM DELIM) (CONS W (STRWORDS (STRMID STRI 2) "" :DELIM DELIM))))
        (T (STRWORDS (STRMID STRI 2) (STRCAT W (STRLEFT STRI 1)) :DELIM DELIM))))

@std11 · 23.12.2016, 11:28 **[ТС]**

Теперь вот такая ошибка
EVFUN: Не найдена функция STRLEFT
Функция: STRLEFT Аргументы: (STRI 1)
==> ERRSTATE

@Catstail · 23.12.2016, 13:18

Lisp

1	(defun strLeft (s n) (strMid s n 1))

@std11 · 25.12.2016, 19:42 **[ТС]**

EVFUN: Не найдена функция FILCLOSEALL
Функция: filCloseAll Аргументы: NIL
==> ERRSTATE

@Catstail · 25.12.2016, 20:20

Старое ядро... Ну напиши вместо

Lisp

1	(filCloseAll)

два вызова:

Lisp

1	(filClose fi) (filClose fo)

@std11 · 25.12.2016, 20:41 **[ТС]**

ооооооо заработало, спасибо большое)))

@std11 0 / 0 / 0 Регистрация: 05.12.2016 Сообщений: 10
		1
	Во входном файле записана символьная строка из двух слов, разделенных или одним пробелом, или несколькими 06.12.2016, 11:38. Показов 717. Ответов 10 Метки файлы (Все метки) Привет, нужна помощь по Lisp Во входном файле записана символьная строка из двух слов, разделенных или одним пробелом, или несколькими. Считав эту фразу из файла, написать её в две строки и вывести в новый файл 0

@std11 0 / 0 / 0 Регистрация: 05.12.2016 Сообщений: 10
	10.12.2016, 10:42 [ТС]	3
	Спасибо 0

@std11 0 / 0 / 0 Регистрация: 05.12.2016 Сообщений: 10
	19.12.2016, 11:06 [ТС]	5
	Ошибка: Внутри LET: EVFUN: Не найдена функция STRWORDS ==> ERRSTATE файл g.txt создается, но он пустой Добавлено через 15 минут HomeLisp версия 1.34.4 0

@std11 0 / 0 / 0 Регистрация: 05.12.2016 Сообщений: 10
	23.12.2016, 11:28 [ТС]	7
	Теперь вот такая ошибка EVFUN: Не найдена функция STRLEFT Функция: STRLEFT Аргументы: (STRI 1) ==> ERRSTATE 0

@std11 0 / 0 / 0 Регистрация: 05.12.2016 Сообщений: 10
	25.12.2016, 19:42 [ТС]	9
	EVFUN: Не найдена функция FILCLOSEALL Функция: filCloseAll Аргументы: NIL ==> ERRSTATE 0

@std11 0 / 0 / 0 Регистрация: 05.12.2016 Сообщений: 10
	25.12.2016, 20:41 [ТС]	11
	ооооооо заработало, спасибо большое))) 0