Logo

Programming-Idioms

  • Perl

Idiom #316 Count occurrences in a list

Determine the number c of elements in the list x that satisfy the predicate p.

my $c = grep { p($_) } @x;

grep iterates over list @x and calls function p() on $_ (the context variable). If p() yields true, then the list member is counted. In list context, the members would be returned. In scalar context, only the count is returned. $c is a scalar,
  
c=count(p(x))

p has to be an elemental function with an argument of the type of x.
New implementation...
< > ⌨
programming-idioms.org 
my $c = grep { p($_) } @x;
  
c=count(p(x))
c := 0
for _, v := range x {
	if p(v) {
		c++
	}
}
func count[T any](x []T, p func(T) bool) int {
	c := 0
	for _, v := range x {
		if p(v) {
			c++
		}
	}
	return c
}
let c = x.filter(p).length
int c = frequency(x, p);
  c := 0;
  for el in x do if p(el) then Inc(c);
c = sum(p(v) for v in x)
c = x.count{|el| p(el) }