Взаимодействия с файлами

@humka · Регистрация: 28.12.2013

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

И снова здравствуйте! И снова я прошу помощи на канун Нового Года.
Написать программу, вводящую данные из файла, содержащего n строк по шесть чисел, таким образом, что содержание нечётных строк присваивается элементам массива А, чётных строк – элементам массива В. Вывести эти значения на экран
Буду очень признателен, тем кто поможет.

@Catstail · 29.12.2013, 13:46

Файл 12345678.txt:

Code
1
2
3
4
5
6
11 11 11 11
22 22 22 22
33 33 33 33
44 44 44 44
55 55 55 55
66 66 66 66

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
(defun task (fnam)
  (let ((fi (gensym 'fi))
        (a nil)
        (b nil))
       (filOpen fi fnam _INPUT)
       (loop
            (when (filEOF fi) (return t))
            (push (input (strCat "(" (filGetLine fi) ")")) a)
            (push (input (strCat "(" (filGetLine fi) ")")) b))
       (filClose fi)
       (values (apply 'append (reverse a))
               (apply 'append (reverse b))))) 
 
==> task
(task "12345678.txt")
 
==> (11 11 11 11 33 33 33 33 55 55 55 55)
      (22 22 22 22 44 44 44 44 66 66 66 66)

@humka · 30.12.2013, 14:16 **[ТС]**

Спасибо огромное, выручили!

@ddv · 07.01.2016, 20:59

Здравствуйте. Возникает ошибка в HomeLisp 1.13.4:
Внутри LET: EVFUN: Не найдена функция VALUES
==> ERRSTATE

@Catstail · 07.01.2016, 21:09

ddv, возьми в этой нити более свежий экзешник. Должно заработать.

Добавлено через 1 минуту
А если не охота менять exe, можно чуть подрихтовать код:

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
(defun task (fnam)
  (let ((fi (gensym 'fi))
        (a nil)
        (b nil))
       (filOpen fi fnam _INPUT)
       (loop
            (when (filEOF fi) (return t))
            (push (input (strCat "(" (filGetLine fi) ")")) a)
            (push (input (strCat "(" (filGetLine fi) ")")) b))
       (filClose fi)
       (list (apply 'append (reverse a))
               (apply 'append (reverse b)))))

@ddv · 07.01.2016, 21:39

все получилось. спасибо

@cyber-satyr · 09.01.2016, 20:01

Catstail, что за диалект? Camel case вроде диковинка для CL.

@Catstail · 09.01.2016, 20:15

cyber-satyr, а разве "Camel" как-то влияет на язык? Это же просто стиль именования... Что за диалект можно увидеть здесь и здесь. Сейчас готовится новая версия.

@cyber-satyr · 09.01.2016, 20:19

Сообщение от Catstail

а разве "Camel" как-то влияет на язык?

Конечно нет. Просто как пингвин среди кур.

Сообщение от Catstail

Что за диалект можно увидеть здесь и здесь.

Ух ты, круто. А исходники можно посмотреть?

@Catstail · 09.01.2016, 20:21

Исходники - пока нет. Потом думаю опубликовать.

@cyber-satyr · 09.01.2016, 20:22

@Vaderkos · 10.01.2016, 13:15

Catstail, Новая версия home lisp?? А что планируется добавить, если не секрет? И когда ждать что бы попробовать?

@Catstail · 10.01.2016, 13:27

Vaderkos, по сравнению с последней версией с сайта:

- Возврат множества значений
- Рациональные и комплексные числа
- Функция Iter
- Структуры
- Интерфейс с WinAPI

и кое-что по мелочам.

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

@humka 0 / 0 / 0 Регистрация: 28.12.2013 Сообщений: 4

	Взаимодействия с файлами 29.12.2013, 13:30. Показов 950. Ответов 12 Метки нет (Все метки) И снова здравствуйте! И снова я прошу помощи на канун Нового Года. Написать программу, вводящую данные из файла, содержащего n строк по шесть чисел, таким образом, что содержание нечётных строк присваивается элементам массива А, чётных строк – элементам массива В. Вывести эти значения на экран Буду очень признателен, тем кто поможет. 0

@humka 0 / 0 / 0 Регистрация: 28.12.2013 Сообщений: 4
	30.12.2013, 14:16 [ТС]
	Спасибо огромное, выручили! 0

@ddv 0 / 0 / 0 Регистрация: 11.12.2013 Сообщений: 19
	07.01.2016, 20:59
	Здравствуйте. Возникает ошибка в HomeLisp 1.13.4: Внутри LET: EVFUN: Не найдена функция VALUES ==> ERRSTATE 0

@ddv 0 / 0 / 0 Регистрация: 11.12.2013 Сообщений: 19
	07.01.2016, 21:39
	все получилось. спасибо 0

@cyber-satyr 393 / 165 / 32 Регистрация: 10.12.2015 Сообщений: 717
	09.01.2016, 20:01
	Catstail, что за диалект? Camel case вроде диковинка для CL. 0

@Catstail Супер-модератор 38195 / 21128 / 4309 Регистрация: 12.02.2012 Сообщений: 34,733 Записей в блоге: 14
	09.01.2016, 20:15
	cyber-satyr, а разве "Camel" как-то влияет на язык? Это же просто стиль именования... Что за диалект можно увидеть здесь и здесь. Сейчас готовится новая версия. 1

@Catstail Супер-модератор 38195 / 21128 / 4309 Регистрация: 12.02.2012 Сообщений: 34,733 Записей в блоге: 14
	09.01.2016, 20:21
	Исходники - пока нет. Потом думаю опубликовать. 0

@cyber-satyr 393 / 165 / 32 Регистрация: 10.12.2015 Сообщений: 717
	09.01.2016, 20:22
	0

@Vaderkos 84 / 83 / 8 Регистрация: 31.03.2015 Сообщений: 447
	10.01.2016, 13:15
	Catstail, Новая версия home lisp?? А что планируется добавить, если не секрет? И когда ждать что бы попробовать? 0

@Catstail Супер-модератор 38195 / 21128 / 4309 Регистрация: 12.02.2012 Сообщений: 34,733 Записей в блоге: 14
	10.01.2016, 13:27
	Vaderkos, по сравнению с последней версией с сайта: - Возврат множества значений - Рациональные и комплексные числа - Функция Iter - Структуры - Интерфейс с WinAPI и кое-что по мелочам. 1