Data update

Task/Filter/Ada/filter-1.adb

@@ -0,0 +1,32 @@
+with Ada.Integer_Text_Io; use Ada.Integer_Text_Io;
+with Ada.Text_Io; use Ada.Text_Io;
+
+procedure Array_Selection is
+   type Array_Type is array (Positive range <>) of Integer;
+   Null_Array : Array_Type(1..0);
+
+   function Evens (Item : Array_Type) return Array_Type is
+   begin
+      if Item'Length > 0 then
+         if Item(Item'First) mod 2 = 0 then
+            return Item(Item'First) & Evens(Item((Item'First + 1)..Item'Last));
+         else
+            return Evens(Item((Item'First + 1)..Item'Last));
+         end if;
+      else
+         return Null_Array;
+      end if;
+   end Evens;
+
+   procedure Print(Item : Array_Type) is
+   begin
+      for I in Item'range loop
+         Put(Item(I));
+         New_Line;
+      end loop;
+   end Print;
+
+   Foo : Array_Type := (1,2,3,4,5,6,7,8,9,10);
+begin
+   Print(Evens(Foo));
+end Array_Selection;

Task/Filter/Ada/filter-2.adb

@@ -0,0 +1,28 @@
+with Ada.Text_IO;  use Ada.Text_IO;
+
+procedure Array_Selection is
+   type Array_Type is array (Positive range <>) of Integer;
+
+   function Evens (Item : Array_Type) return Array_Type is
+      Result : Array_Type (1..Item'Length);
+      Index  : Positive := 1;
+   begin
+      for I in Item'Range loop
+         if Item (I) mod 2 = 0 then
+            Result (Index) := Item (I);
+            Index := Index + 1;
+         end if;
+      end loop;
+      return Result (1..Index - 1);
+   end Evens;
+
+   procedure Put (Item : Array_Type) is
+   begin
+      for I in Item'range loop
+         Put (Integer'Image (Item (I)));
+      end loop;
+   end Put;
+begin
+   Put (Evens ((1,2,3,4,5,6,7,8,9,10)));
+   New_Line;
+end Array_Selection;

Task/Filter/ArkScript/filter.ark

@@ -0,0 +1,6 @@
+(import std.List)
+(import std.Math :even)
+
+(let nums (list:iota 0 10))
+(let even-numbers (list:filter nums even))
+(print even-numbers)

Task/Filter/BQN/filter-3.bqn

@@ -0,0 +1 @@
+2⊸|⊸/ 1‿2‿3‿4‿5

Task/Filter/BQN/filter-4.bqn

@@ -0,0 +1 @@
+⟨ 1 3 5 ⟩

Task/Filter/Ballerina/filter.ballerina

@@ -0,0 +1,6 @@
+import ballerina/io;
+
+public function main() {
+    int[] a = from int i in 1...10 select i*i;
+    io:println(a.filter(n => n % 2 == 0));
+}

Task/Filter/Crystal/filter.cr

@@ -0,0 +1,17 @@
+arr   = [1, 2, 3, 4, 5, 6, 7, 8, 9, 10]
+
+puts "1. arr = #{arr}"
+
+evens = arr.select {|element| element.even? }
+# short form:
+evens = arr.select &.even?
+
+puts "   select evens: #{evens}"
+puts "   arr = #{arr}"
+puts
+puts "2. arr = #{arr}"
+
+arr.select! &.even?
+
+puts "   select evens (destructively)"
+puts "   arr = #{arr}"

Task/Filter/EMal/filter.emal

@@ -1 +1 @@
-writeLine(range(1, 11).filter(<int i|i % 2 == 0))
+writeLine(range(1, 11).filter(<int i|i % 2 æ 0))

Task/Filter/Emacs-Lisp/filter.el

@@ -0,0 +1 @@
+(seq-filter (lambda (x) (= (% x 2))) '(1 2 3 4 5 6 7 8 9 10))

Task/Filter/Euphoria/filter.eu

@@ -0,0 +1,9 @@
+sequence s, evens
+s = {1, 2, 3, 4, 5, 6}
+evens = {}
+for i = 1 to length(s) do
+    if remainder(s[i], 2) = 0 then
+        evens = append(evens, s[i])
+    end if
+end for
+? evens

Task/Filter/Gleam/filter.gleam

@@ -0,0 +1,7 @@
+import gleam/list
+
+pub fn main() {
+  [1, 2, 3, 4, 5, 6, 7, 8, 9, 10]
+  |> list.filter(fn(x) { x % 2 == 0 })
+  |> echo
+}

Task/Filter/OPL/filter-1.opl

@@ -0,0 +1,25 @@
+PROC main:
+  LOCAL array1%(10),array2%(10),i%
+  RANDOMIZE MINUTE*SECOND
+  i%=1
+  WHILE i%<>11
+    array1%(i%)=100+INT(RND*900)
+    i%=i%+1
+  ENDWH
+  i%=1
+  WHILE i%<>11
+    IF array1%(i%)=array1%(i%)/2*2
+      array2%(i%)=array1%(i%)
+    ELSE
+      array2%(i%)=0
+    ENDIF
+    i%=i%+1
+  ENDWH
+  PRINT "Array 1:   Array 2:"
+  i%=1
+  WHILE i%<>11
+    PRINT array1%(i%),"      ",array2%(i%)
+    i%=i%+1
+  ENDWH
+  GET
+ENDP

Task/Filter/OPL/filter-2.opl

@@ -0,0 +1,23 @@
+PROC main:
+  LOCAL array%(10),i%
+  RANDOMIZE MINUTE*SECOND
+  PRINT "Before:",
+  i%=1
+  WHILE i%<>11
+    array%(i%)=100+INT(RND*900)
+    PRINT array%(i%),
+    i%=i%+1
+  ENDWH
+  PRINT
+  PRINT "After: ",
+  i%=1
+  WHILE i%<>11
+    IF array%(i%)<>array%(i%)/2*2
+      array%(i%)=0
+      PRINT " ",
+    ENDIF
+    PRINT array%(i%),
+    i%=i%+1
+  ENDWH
+  GET
+ENDP

Task/Filter/PowerShell/filter.ps1

@@ -0,0 +1,2 @@
+$array = -15..37
+$array | Where-Object { $_ % 2 -eq 0 }

Task/Filter/Rebol/filter.rebol

@@ -0,0 +1,7 @@
+data: [] evens: []
+repeat i 20 [append data i] ; Build and load array.
+
+foreach element data [if even? element [append evens element]]
+probe evens
+remove-each element evens [zero? element % 10]
+probe evens

Task/Filter/Rye/filter.rye

@@ -0,0 +1,2 @@
+newarr: filter { 1 2 3 4 5 6 7 } { .is-even }
+print newarr

Task/Filter/VBScript/filter.vbs

@@ -0,0 +1,47 @@
+test_arr_1 = Array(1,2,3,4,5,6,7,8,9,10)
+test_arr_2 = Array(1,2,3,4,5,6,7,8,9,10)
+
+WScript.StdOut.Write "Scenario 1: Create a new array"
+WScript.StdOut.WriteLine
+WScript.StdOut.Write "Input: " & Join(test_arr_1,",")
+WScript.StdOut.WriteLine
+WScript.StdOut.Write "Output: " & filter_create(test_arr_1)
+WScript.StdOut.WriteBlankLines(2)
+
+WScript.StdOut.Write "Scenario 2: Destructive approach"
+WScript.StdOut.WriteLine
+WScript.StdOut.Write "Input: " & Join(test_arr_2,",")
+WScript.StdOut.WriteLine
+WScript.StdOut.Write "Output: " & filter_destruct(test_arr_2)
+WScript.StdOut.WriteBlankLines(2)
+
+Function filter_create(arr)
+	ReDim arr_new(0)
+	For i = 0 To UBound(arr)
+		If arr(i) Mod 2 = 0 Then
+			If arr_new(0) = "" Then
+				arr_new(0) = arr(i)
+			Else
+				ReDim Preserve arr_new(UBound(arr_new)+1)
+				arr_new(UBound(arr_new)) = arr(i)
+			End If
+		End If
+	Next
+	filter_create = Join(arr_new,",")
+End Function
+
+Function filter_destruct(arr)
+	count = 0
+	For i = 0 To UBound(arr)
+		If arr(i) Mod 2 <> 0 Then
+			count = count + 1
+			For j = i To UBound(arr)
+				If j + 1 <= UBound(arr) Then
+					arr(j) = arr(j+1)
+				End If
+			Next
+		End If
+	Next
+	ReDim Preserve arr(UBound(arr)-count)
+	filter_destruct = Join(arr,",")
+End Function