Получить список в котором удалена вторая треть

@raigon · Регистрация: 29.03.2014

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

Помогите решить задачу на языке Erlang.
Задан список длина которого кратная трем.
Получить список в котором удалена вторая треть.

Prolog
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
-module(lists).
-export([main/2, part1/5, part3/5]).
 
% +List, -NewList
main(L,L1)->
    K2 = length(L) div 3+1,
    K3 = length(L) div 3*2+1,
    P11 = part1(L,1,K2,K3,L1),
    P13 = part3(L,K2,K2,K3,L1),
    lists:append(P11,P13).
 
% +List, +Counter, +K2, +K3, +Acc, -Part1, -Part3
part1([X|Xs],I,K2,K3,[X|P1]) when I < K2 ->
    I1 = I+1,
    part1(Xs,I1,K2,K3,P1).
part3([_|Xs],I,K2,K3,P3) when I >= K2, I < K3->
    I1 = I+1,
    part3(Xs,I1,K2,K3,P3);
part3(P3,K3,_,K3,P3)->
    P3.

@S_el · 04.05.2015, 11:44

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

Получить список в котором удалена вторая треть.

вот ваша функция:

Prolog
1
Func = fun(L)-> Len=length(L) div 3,lists:sublist(L,Len)++lists:sublist(L,2*Len+1,Len) end.

или нужно сделать без использования библиотечного модуля lists?

Добавлено через 1 минуту

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

-module(lists).

не надо называть свой модуль также как стандартный.Назовите simple_list или my_list.

@raigon · 04.05.2015, 11:57 **[ТС]**

Нужно без модуля list. Можно только append если нужно.

@S_el · 04.05.2015, 12:21

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

Можно только append если нужно.

Не нужно

Prolog
1
2
3
NewFunc = fun(L)-> fun Func([], _, _)-> [];
Func([H|T], Len, N) when N < Len;N >= 2 * Len-> [H|Func(T, Len, N + 1)];
Func([_|T], Len, N)-> Func(T, Len, N + 1)end(L, length(L) div 3, 0) end .

@raigon · 04.05.2015, 12:32 **[ТС]**

Чтото она не работает.

syntax error before: Func

fun Func([], _, _)-> [];

@S_el · 04.05.2015, 12:35

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

Чтото она не работает.

У меня работает.Просто вставьте этот код в интерпретатор:

Prolog
1
2
3
4
5
 Y=[1,2,3,4,5,6,7,8,9].
NewFunc = fun(L)-> fun Func([], _, _)-> [];
Func([H|T], Len, N) when N < Len;N >= 2 * Len-> [H|Func(T, Len, N + 1)];
Func([_|T], Len, N)-> Func(T, Len, N + 1)end(L, length(L) div 3, 0) end .
NewFunc(Y).

@raigon · 04.05.2015, 12:40 **[ТС]**

Так работает. Я просто делал через отдельный файл с module, export.
Спасибо большое за помощь!

@castorsky · 06.05.2015, 14:34

Так будет почище. Студ вариант:

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
drop_middle(L) ->
    Len = length(L) div 3,
    drop_middle(L, Len, -(Len + Len)).
 
drop_middle([],_,_) ->
    [];
drop_middle([X|Xs], Count, Mirror) ->
    case sgn(Count) of
        1 -> [X | drop_middle(Xs, Count - 1, Mirror + 1)];
        0 -> drop_middle([X | Xs], Mirror, -Mirror);
        -1 -> drop_middle(Xs, Count + 1, Mirror + 1)
    end.
 
sgn(N) when N < 0 ->
    -1;
sgn(N) when N > 0 ->
    1;
sgn(_) ->
    0.

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

Получить список в котором удалена вторая треть

Решение

Решение

@raigon 3 / 3 / 1 Регистрация: 29.03.2014 Сообщений: 60
	04.05.2015, 11:57 [ТС]
	Нужно без модуля list. Можно только append если нужно. 0

@raigon 3 / 3 / 1 Регистрация: 29.03.2014 Сообщений: 60
	04.05.2015, 12:32 [ТС]
	Чтото она не работает. syntax error before: Func fun Func([], _, _)-> []; 0

@raigon 3 / 3 / 1 Регистрация: 29.03.2014 Сообщений: 60
	04.05.2015, 12:40 [ТС]
	Так работает. Я просто делал через отдельный файл с module, export. Спасибо большое за помощь! 0