Форум программистов, компьютерный форум, киберфорум
Lisp
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 05.12.2016
Сообщений: 10
1

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

06.12.2016, 11:38. Показов 500. Ответов 10

Привет, нужна помощь по Lisp
Во входном файле записана символьная строка из двух слов, разделенных или одним пробелом, или несколькими. Считав эту фразу из файла, написать её в две строки и вывести в новый файл
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.12.2016, 11:38
Ответы с готовыми решениями:

Во входном файле записана символьная строка из двух слов
Здравствуйте, помогите с программой: Во входном файле записана символьная строка из двух слов,...

Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими)
3.1. Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими)....

Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими)
Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Вывести...

Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими)
Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Определить...

10
Модератор
Эксперт Python
28591 / 15455 / 3053
Регистрация: 12.02.2012
Сообщений: 25,335
Записей в блоге: 4
06.12.2016, 12:44 2
HomeLisp:

Lisp
1
2
3
4
5
6
7
(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)))
2
0 / 0 / 0
Регистрация: 05.12.2016
Сообщений: 10
10.12.2016, 10:42  [ТС] 3
Спасибо
0
Модератор
Эксперт Python
28591 / 15455 / 3053
Регистрация: 12.02.2012
Сообщений: 25,335
Записей в блоге: 4
19.12.2016, 10:23 4
Создаем в текущей директории файл f.txt с таким, к примеру, содержимым:

Код
aaaaaaaa   bbbbbbbb
затем вызываем функцию:

Lisp
1
(task "f.txt" "g.txt")
И убеждаемся, что в директории появился файл g.txt

Код
aaaaaaaa
bbbbbbbb
0
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
Модератор
Эксперт Python
28591 / 15455 / 3053
Регистрация: 12.02.2012
Сообщений: 25,335
Записей в блоге: 4
19.12.2016, 12:52 6
Задай эту функцию:

Lisp
1
2
3
4
(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))))
0
0 / 0 / 0
Регистрация: 05.12.2016
Сообщений: 10
23.12.2016, 11:28  [ТС] 7
Теперь вот такая ошибка
EVFUN: Не найдена функция STRLEFT
Функция: STRLEFT Аргументы: (STRI 1)
==> ERRSTATE
0
Модератор
Эксперт Python
28591 / 15455 / 3053
Регистрация: 12.02.2012
Сообщений: 25,335
Записей в блоге: 4
23.12.2016, 13:18 8
Lisp
1
(defun strLeft (s n) (strMid s n 1))
0
0 / 0 / 0
Регистрация: 05.12.2016
Сообщений: 10
25.12.2016, 19:42  [ТС] 9
EVFUN: Не найдена функция FILCLOSEALL
Функция: filCloseAll Аргументы: NIL
==> ERRSTATE
0
Модератор
Эксперт Python
28591 / 15455 / 3053
Регистрация: 12.02.2012
Сообщений: 25,335
Записей в блоге: 4
25.12.2016, 20:20 10
Старое ядро... Ну напиши вместо
Lisp
1
(filCloseAll)
два вызова:
Lisp
1
(filClose fi) (filClose fo)
1
0 / 0 / 0
Регистрация: 05.12.2016
Сообщений: 10
25.12.2016, 20:41  [ТС] 11
ооооооо заработало, спасибо большое)))
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.12.2016, 20:41

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Дана строка, состоящая из латинских слов, разделенных пробелами (одним или несколькими). Найти количество слов в стро
#include <iostream> #include <cstring> using namespace std; int main() { char s="rkghwrkh...

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

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

Дана строка, состоящая из слов, разделённых пробелами(одним или несколькими) . Найти количество слов , которые не содерж
Дана строка, состоящая из слов, разделённых пробелами(одним или несколькими) . Найти количество...

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

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
11
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.