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

A-M baby

Browse source
This commit is contained in:
Ingy döt Net 2013-04-10 21:29:02 -07:00
parent 764da6cbbb
commit db842d013d
19005 changed files with 197040 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

1
Task/Filter/Prolog/filter-1.pro Normal file
View file

@ -0,0 +1 @@
evens(D, Es) :- findall(E, (member(E, D), E mod 2 =:= 0), Es).

2
Task/Filter/Prolog/filter-2.pro Normal file
View file

@ -0,0 +1,2 @@
?- evens([1,2,3,4,5,6,7,8,9,10],E).
E = [2, 4, 6, 8, 10]

5
Task/Filter/Prolog/filter-3.pro Normal file
View file

@ -0,0 +1,5 @@
?- use_module(library(lambda)).
true.
?- include((\X^(X mod 2 =:= 0)), [1,2,3,4,5,6,7,8,9], L).
L = [2,4,6,8].

9
Task/Filter/Prolog/filter-4.pro Normal file
View file

@ -0,0 +1,9 @@
:- use_module(lambda).
%% filter(Pred, LstIn, LstOut)
%%
filter(_Pre, [], []).
filter(Pred, [H|T], L) :-
filter(Pred, T, L1),
( call(Pred,H) -> L = [H|L1]; L = L1).

2
Task/Filter/Prolog/filter-5.pro Normal file
View file

@ -0,0 +1,2 @@
?- filter(\X^(X mod 2 =:= 0), [1,2,3,4,5,6,7,8,9], L).
L = [2,4,6,8] .