Revision as of 20:14, 1 August 2007 view source rosettacode>IanOsgood + Forth ← Older edit		Revision as of 19:55, 8 August 2007 view source Mt (talk \| contribs) 2 edits →‎[[Prolog]]: use findall/3, =:=/2 - now also works for D == [] Newer edit →
Line 270: ==[[Prolog]]== [[Category:Prolog]] evens(D, Es) :- ~~bagof~~findall(XE, (member(XE, D), ~~0 is X~~E mod 2 =:= 0), Es).▼ ▲ evens(D, Es) :- bagof(X, (member(X, D), 0 is X mod 2), Es). Usage:

Filter: Difference between revisions