forum.opennet.ru

Составление сообщения

Исходное сообщение

"Выпуск свободного авиасимулятора FlightGear 2020.1"
Отправлено Аноним84701, 19-Май-20 13:44

> Ваапщето, тысяча строк на питоне идёт за сотню тысяч строк не на питоне по сложности логики.
Кхе-кхе.
А можно показать на питоне аналог вот этих двух строк "по сложности логики"? o_O

concat([], List, List).
concat([Head|Tail], List2, [Head|List3]) :- concat(Tail, List2, List3).
Демка:

%% Test %%
% банальности
?- concat([1,2,3],[5,6],Res).
Res = [1, 2, 3, 5, 6].
?- concat([1,2,Unknown,4],Res,[1,2,3,4,5,6]).
Unknown = 3,
Res = [5, 6].
?- concat([1,2,3], Res, [1,2,3,4,42]).
Res = [4, 42].
?- concat(Res,[8,9],[0,1,8,9]).
Res = [0, 1] .
% более интересные кунстштюки:
% позволяет извлечь последние два элемента:
concat(_,[E1,E2],[0,1,2,42,100500]).
E1 = 42,
E2 = 100500 .
% проверка наличия элемента в списке
?- concat(_,[43|_],[0,1,2,42,100500]).
false.
?- concat(_,[42|_],[0,1,2,42,100500]).
true .
% split
concat(L1,[42|L2],[0,1,2,42,6,7,100500]).
L1 = [0, 1, 2],
L2 = [6, 7, 100500] .
% gen
?- L=[1,2,3,4,1337,100500], concat(Cand1,Cand2, L), format('~w = ~w ++ ~w\n', [L,Cand1,Ca
nd2]),fail.
[1,2,3,4,1337,100500] = [] ++ [1,2,3,4,1337,100500]
[1,2,3,4,1337,100500] = [1] ++ [2,3,4,1337,100500]
[1,2,3,4,1337,100500] = [1,2] ++ [3,4,1337,100500]
[1,2,3,4,1337,100500] = [1,2,3] ++ [4,1337,100500]
[1,2,3,4,1337,100500] = [1,2,3,4] ++ [1337,100500]
[1,2,3,4,1337,100500] = [1,2,3,4,1337] ++ [100500]
[1,2,3,4,1337,100500] = [1,2,3,4,1337,100500] ++ []

Исходное сообщение
"Выпуск свободного авиасимулятора FlightGear 2020.1" Отправлено Аноним84701, 19-Май-20 13:44
> Ваапщето, тысяча строк на питоне идёт за сотню тысяч строк не на питоне по сложности логики. Кхе-кхе. А можно показать на питоне аналог вот этих двух строк "по сложности логики"? o_O concat([], List, List). concat([Head\|Tail], List2, [Head\|List3]) :- concat(Tail, List2, List3). Демка: %% Test %% % банальности ?- concat([1,2,3],[5,6],Res). Res = [1, 2, 3, 5, 6]. ?- concat([1,2,Unknown,4],Res,[1,2,3,4,5,6]). Unknown = 3, Res = [5, 6]. ?- concat([1,2,3], Res, [1,2,3,4,42]). Res = [4, 42]. ?- concat(Res,[8,9],[0,1,8,9]). Res = [0, 1] . % более интересные кунстштюки: % позволяет извлечь последние два элемента: concat(_,[E1,E2],[0,1,2,42,100500]). E1 = 42, E2 = 100500 . % проверка наличия элемента в списке ?- concat(_,[43\|_],[0,1,2,42,100500]). false. ?- concat(_,[42\|_],[0,1,2,42,100500]). true . % split concat(L1,[42\|L2],[0,1,2,42,6,7,100500]). L1 = [0, 1, 2], L2 = [6, 7, 100500] . % gen ?- L=[1,2,3,4,1337,100500], concat(Cand1,Cand2, L), format('~w = ~w ++ ~w\n', [L,Cand1,Ca nd2]),fail. [1,2,3,4,1337,100500] = [] ++ [1,2,3,4,1337,100500] [1,2,3,4,1337,100500] = [1] ++ [2,3,4,1337,100500] [1,2,3,4,1337,100500] = [1,2] ++ [3,4,1337,100500] [1,2,3,4,1337,100500] = [1,2,3] ++ [4,1337,100500] [1,2,3,4,1337,100500] = [1,2,3,4] ++ [1337,100500] [1,2,3,4,1337,100500] = [1,2,3,4,1337] ++ [100500] [1,2,3,4,1337,100500] = [1,2,3,4,1337,100500] ++ []

Ваше сообщение

Имя*:

EMail:

Для отправки ответов на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email).
Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.

Заголовок*:

Сообщение*:

>> Ваапщето, тысяча строк на питоне идёт за сотню тысяч строк не на питоне по сложности логики.

> Кхе-кхе.
> А можно показать на питоне аналог вот этих двух строк "по сложности 
> логики"? o_O 
> [code] 
> concat([], List, List).
> concat([Head|Tail], List2, [Head|List3]) :- concat(Tail, List2, List3).
> [/code]

> Демка: 
> [code] 
> %% Test %% 
> % банальности 
> ?- concat([1,2,3],[5,6],Res).
> Res = [1, 2, 3, 5, 6].

> ?- concat([1,2,Unknown,4],Res,[1,2,3,4,5,6]).
> Unknown = 3, 
> Res = [5, 6].

> ?- concat([1,2,3], Res, [1,2,3,4,42]).
> Res = [4, 42].

> ?- concat(Res,[8,9],[0,1,8,9]).
> Res = [0, 1] .

> % более интересные кунстштюки: 
> % позволяет извлечь последние два элемента: 
> concat(_,[E1,E2],[0,1,2,42,100500]).
> E1 = 42, 
> E2 = 100500 .

> % проверка наличия элемента в списке 
> ?- concat(_,[43|_],[0,1,2,42,100500]).
> false.
> ?- concat(_,[42|_],[0,1,2,42,100500]).
> true .

> % split 
> concat(L1,[42|L2],[0,1,2,42,6,7,100500]).
> L1 = [0, 1, 2], 
> L2 = [6, 7, 100500] .

> % gen 
> ?- L=[1,2,3,4,1337,100500], concat(Cand1,Cand2, L), format('~w = ~w ++ ~w\n', [L,Cand1,Ca 
 
> nd2]),fail.
> [1,2,3,4,1337,100500] = [] ++ [1,2,3,4,1337,100500] 
> [1,2,3,4,1337,100500] = [1] ++ [2,3,4,1337,100500] 
> [1,2,3,4,1337,100500] = [1,2] ++ [3,4,1337,100500] 
> [1,2,3,4,1337,100500] = [1,2,3] ++ [4,1337,100500] 
> [1,2,3,4,1337,100500] = [1,2,3,4] ++ [1337,100500] 
> [1,2,3,4,1337,100500] = [1,2,3,4,1337] ++ [100500] 
> [1,2,3,4,1337,100500] = [1,2,3,4,1337,100500] ++ [] 
>  [/code]

При общении не допускается: неуважительное отношение к собеседнику, хамство, унизительное обращение, ненормативная лексика, переход на личности, агрессивное поведение, обесценивание собеседника, провоцирование флейма голословными и заведомо ложными заявлениями. Не отвечайте на сообщения, явно нарушающие правила - удаляются не только сами нарушения, но и все ответы на них. Лог модерирования.

Партнёры:

Хостинг:

Закладки на сайте
Проследить за страницей

Created 1996-2024 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру