aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Initial data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 72d218235f
commit f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

14
Task/Sorting-algorithms-Insertion-sort/Prolog/sorting-algorithms-insertion-sort-1.pro Normal file
View file

@ -0,0 +1,14 @@
insert_sort(L1,L2) :-
insert_sort_intern(L1,[],L2).
insert_sort_intern([],L,L).
insert_sort_intern([H|T],L1,L) :-
insert(L1,H,L2),
insert_sort_intern(T,L2,L).
insert([],X,[X]).
insert([H|T],X,[X,H|T]) :-
X =< H,
!.
insert([H|T],X,[H|T2]) :-
insert(T,X,T2).

19
Task/Sorting-algorithms-Insertion-sort/Prolog/sorting-algorithms-insertion-sort-2.pro Normal file
View file

@ -0,0 +1,19 @@
% insertion sort
isort(L, LS) :-
foldl(insert, [], L, LS).
% foldl(Pred, Init, List, R).
foldl(_Pred, Val, [], Val).
foldl(Pred, Val, [H | T], Res) :-
call(Pred, Val, H, Val1),
foldl(Pred, Val1, T, Res).
% insertion in a sorted list
insert([], N, [N]).
insert([H | T], N, [N, H|T]) :-
N =< H, !.
insert([H | T], N, [H|L1]) :-
insert(T, N, L1).