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

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

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

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

Prolog

-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

 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

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

Код

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.

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

Решение

Решение

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

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

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

	06.05.2015, 14:34

Опции темы