Just another update

Task/Filter/00DESCRIPTION

@@ -1,3 +1,5 @@
-Select certain elements from an Array into a new Array in a generic way. To demonstrate, select all even numbers from an Array.
+Select certain elements from an Array into a new Array in a generic way.
+To demonstrate, select all even numbers from an Array.
 
-As an option, give a second solution which filters destructively, by modifying the original Array rather than creating a new Array.
+As an option, give a second solution which filters destructively,
+by modifying the original Array rather than creating a new Array.

Task/Filter/AWK/filter-1.awk

@@ -1,2 +1 @@
 $ awk 'BEGIN{split("1 2 3 4 5 6 7 8 9",a);for(i in a)if(!(a[i]%2))r=r" "a[i];print r}'
-4 6 8 2

Task/Filter/AWK/filter-2.awk

@@ -0,0 +1,5 @@
+BEGIN {
+  split("1 2 3 4 5 6 7 8 9",a);
+  for(i in a)  if( !(a[i]%2) )  r = r" "a[i];
+  print r
+}

Task/Filter/CoffeeScript/filter.coffee

@@ -0,0 +1 @@
+[1..10].filter (x) -> not (x%2)

Task/Filter/D/filter-1.d

@@ -1,9 +1,7 @@
-import std.algorithm;
-
 void main() {
+    import std.algorithm: filter, equal;
+
     immutable data = [1, 2, 3, 4, 5, 6, 7, 8, 9, 10];
-
-    auto evens = data.filter!(x => x % 2 == 0)(); // lazy
-
+    auto evens = data.filter!(x => x % 2 == 0); // Lazy.
     assert(evens.equal([2, 4, 6, 8, 10]));
 }

Task/Filter/Julia/filter.julia

@@ -5,5 +5,4 @@ julia> filter(iseven, [1,2,3,4,5,6,7,8,9])
  6
  8
 
-julia> filter(isdigit, "distance: 150 000 000")
-"150000000"
+julia>

Task/Filter/Lua/filter-1.lua

@@ -0,0 +1,11 @@
+function filter(t, func)
+  local ret = {}
+  for i, v in ipairs(t) do
+    ret[#ret+1] = func(v) and v or nil
+  end
+  return ret
+end
+
+function even(a) return a % 2 == 0 end
+
+print(unpack(filter({1, 2, 3, 4 ,5, 6, 7, 8, 9, 10}, even)))

Task/Filter/Lua/filter-2.lua

@@ -0,0 +1,11 @@
+function filter(t, func)
+  for i, v in ipairs(t) do
+    if not func(v) then table.remove(t, i) end
+  end
+end
+
+function even(a) return a % 2 == 0 end
+
+local values = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10}
+filter(values, even)
+print(unpack(values))

Task/Filter/Lua/filter.lua

@@ -1,9 +0,0 @@
-function filter(t, func)
-  local ret = {}
-  for i, v in ipairs(t) do ret[#ret+1] = func(v) and v or nil end
-  return ret
-end
-
-function even(a) return a % 2 == 0 end
-
-print(unpack(filter({1,2,3,4,5,6,7,8,9,10},even)))

Task/Filter/Rust/filter.rust

@@ -0,0 +1,27 @@
+fn main() {
+    // Create a new vector, then use retain to filter what we want.
+    // Hopefully we will see .copy_iter() or .clone_iter() soon so
+    // we can write code like this:
+
+    /*
+        let nums = range(1i32, 20i32).collect::<Vec<i32>>();
+        let evens = nums.copy_iter().filter(|x| x % 2 == 0).collect::<Vec<i32>>();
+        for i in evens.iter() {
+            println!("{}", i)
+        }
+    */
+    println!("new vec filtered: ");
+    let nums = range(1i32, 20i32).collect::<Vec<i32>>();
+    let evens = nums.iter().map(|x| x.clone()).filter(|x| x % 2 == 0).collect::<Vec<i32>>();
+    for i in evens.iter() {
+        println!("{}", i)
+    }
+
+    // Filter an already existing vector
+    println!("original vec filtered: ");
+    let mut nums = range(1i32, 20i32).collect::<Vec<i32>>();
+    nums.retain(|x| x % 2 == 0);
+    for i in nums.iter() {
+        println!("{}", i)
+    }
+}

Task/Filter/XQuery/filter-1.xquery

@@ -13,5 +13,5 @@ let $long := for $value in $array
 return
   <result>
     <short>{$short}</short>
-    <long>{$short}</long>
+    <long>{$long}</long>
   </result>