langs a-z

Task/Filter/Seed7/filter.seed7

@@ -0,0 +1,9 @@
+var array integer: arr is [] (1, 2, 3, 4, 5);
+var array integer: evens is 0 times 0;
+var integer: number is 0;
+
+for number range arr do
+  if not odd(number) then
+    evens &:= [] (number);
+  end if;
+end for;