• Pascal

function Filter(vv:integer):boolean;

begin
  result :=  vv mod 2= 0;
end;

type TFilter=function(v:integer):boolean;

function FilteredArray(const x:TBoundArray;p:TFilter):TBoundArray;
var
  Idx: Integer;
  v : Integer;

begin
  setlength(result,high(x)+1);
  Idx := 0;
  for v in x do
    if p(v) then
    begin
      result[Idx] := v;
      inc(Idx);
    end;
  setlength(result,Idx);
end;
[...]
  y := FilteredArray(x,@Filter);

• Ada

for Item of X loop
   if P (Item) then
      Y.Append (Item);
   end if;
end loop;

• Clojure

(def y (filter p x))

• C++

auto y = x | std::views::filter(p);

• C++

std::copy_if (x.begin (), x.end (), std::back_inserter(y), p);

• C#

var y = x.Where(p).ToList();

• C#

var y = x.FindAll(p);

• D

auto y = x.filter!(p);

• D

auto y = [1, 2, 3, 4, 5].filter!(a => a%2==0);

• Dart

var y = x.where(p).toList();

• Elixir

y = for item <- x, p.(item), do: item

• Elixir

y = Enum.filter(x, p)

• Erlang

Y = lists:filter(P, X).

• Erlang

Y = [I || I <- X, P(X)].

• Fortran

y = pack(x,mask=p(x))

• Go

del := func(t *T) bool { return !p(t) }

y := slices.DeleteFunc(slices.Clone(x), del)

• Go

func filter[S ~[]T, T any](x S, p func(T) bool) S {
	var y S
	for _, v := range x {
		if p(v) {
			y = append(y, v)
		}
	}
	return y
}

• Go

n := 0
for _, v := range x {
	if p(v) {
		n++
	}
}
y := make([]T, 0, n)
for _, v := range x {
	if p(v) {
		y = append(y, v)
	}
}

• Go

y := make([]T, 0, len(x))
for _, v := range x{
	if p(v){
		y = append(y, v)
	}
}

• Groovy

def y = x.findAll(p)

• Haskell

y = filter p x

• JS

y = x.filter(p);

• Java

List<T> y = new ArrayList<>();
for (T t : x) if (p.test(t)) y.add(t);

• Java

List<T> y = x.stream().filter(p).toList();

• Kotlin

val y = x.filter(p)

• Lisp

(setf y (remove-if-not p x))

• Lua

y = {}
for _, v in ipairs(x) do
	if p(v) then y[#y+1] = v end
end

• Lua

local y={}
for _,v in ipairs(x) do
 if p(v)==true then 
  table.insert(y,v)
 end
end

• Obj-C

NSArray *y=[x filteredArrayUsingPredicate:p];

• PHP

function p($element) {  /* .... */ }

$y = array_filter ($x, "p");

• Perl

# You can use a subroutine as your predicate
@primes_less_than_100 = grep { is_prime($_) } 1 .. 99;

# You can also write your predicate inline
@odd_numbers = grep { $_%2 == 1 } 1 .. 99;

• Python

y = [element for element in x if p(element)]

• Python

y = list(filter(p, x))

• Ruby

y = x.select(&:p)

• Rust

let y: Vec<_> = x.iter().filter(p).collect();

• Scala

val y = x.filter(p)

• Scheme

(define y (filter p x))

• Smalltalk

y := x select: [:item | item p].