Merge pull request #8785 from deadmarshal/TWC236

Added python,java,raku

6 files changed, 160 insertions, 0 deletions

diff --git a/challenge-236/deadmarshal/java/Ch1.java b/challenge-236/deadmarshal/java/Ch1.java
new file mode 100644
index 0000000000..013b6ac91c
--- /dev/null
+++ b/challenge-236/deadmarshal/java/Ch1.java
@@ -0,0 +1,39 @@
+import java.util.ArrayList;
+import java.util.HashMap;
+import java.util.List;
+
+public class Ch1 {
+  public static void main(String[] args) {
+    ArrayList<Integer> arr1 = new ArrayList<>(List.of(5,5,5,10,20));
+    ArrayList<Integer> arr2 = new ArrayList<>(List.of(5,5,10,10,20));
+    ArrayList<Integer> arr3 = new ArrayList<>(List.of(5,5,5,20));
+    System.out.println(exact_change(arr1));
+    System.out.println(exact_change(arr2));
+    System.out.println(exact_change(arr3));
+  }
+
+  private static boolean exact_change(List<Integer> list) {
+    HashMap<Integer,Integer> m = new HashMap<Integer,Integer>();
+    for(var e : list)
+    {
+      if(e == 10)
+      {
+        m.replace(5, m.get(5) - 1);
+        if(m.get(5) == 0) return false;
+      }
+      else if(e == 20)
+      {
+        if(m.getOrDefault(5,0) != 0 &&
+          m.getOrDefault(10,0) != 0)
+        {
+          m.replace(5,m.get(5)-1);
+          m.replace(10,m.get(10)-1);
+        }
+        else if(m.get(5) > 2) m.replace(5,m.get(5)-3);
+        else return false;
+      }
+      m.put(e,m.getOrDefault(e,0)+1);
+    }
+    return true;
+  }
+}
diff --git a/challenge-236/deadmarshal/java/Ch2.java b/challenge-236/deadmarshal/java/Ch2.java
new file mode 100644
index 0000000000..a37ae7edc4
--- /dev/null
+++ b/challenge-236/deadmarshal/java/Ch2.java
@@ -0,0 +1,36 @@
+import java.util.ArrayList;
+import java.util.Collections;
+import java.util.List;
+
+public class Ch2 {
+  public static void main(String[] args) {
+    ArrayList<Integer> arr1 = new ArrayList<>(
+      List.of(4,6,3,8,15,0,13,18,7,16,14,19,17,5,11,1,12,2,9,10));
+    ArrayList<Integer> arr2 = new ArrayList<>(
+      List.of(0,1,13,7,6,8,10,11,2,14,16,4,12,9,17,5,3,18,15,19));
+    ArrayList<Integer> arr3 = new ArrayList<>(
+      List.of(9,8,3,11,5,7,13,19,12,4,14,10,18,2,16,1,0,15,6,17));
+    System.out.println(array_loops(arr1));
+    System.out.println(array_loops(arr2));
+    System.out.println(array_loops(arr3));
+  }
+
+  private static int array_loops(List<Integer> list) {
+    int count = 0, i = 0;
+    List<Integer> indices =
+      new ArrayList<Integer>(Collections.nCopies(list.size(), -1));
+    for(; i < list.size(); ++i)
+    {
+      if(indices.get(i) == -1)
+      {
+        count++;
+        while(indices.get(i) == -1)
+        {
+          indices.set(i,1);
+          i = list.get(i);
+        }
+      }
+    }
+    return count;
+  }
+}
diff --git a/challenge-236/deadmarshal/python/ch1.py b/challenge-236/deadmarshal/python/ch1.py
new file mode 100644
index 0000000000..a5464e8855
--- /dev/null
+++ b/challenge-236/deadmarshal/python/ch1.py
@@ -0,0 +1,23 @@
+#!/usr/bin/env python
+
+def exact_change(arr):
+  h = {}
+  for i in range(0,len(arr)):
+    if arr[i] == 10:
+      h[5] = h.get(5,0) - 1
+      if h[5] == 0: return False
+    elif arr[i] == 20:
+      if h.get(5,0) != 0 and h.get(10,0) != 0:
+        h[5] -= 1
+        h[10] -= 1
+      elif h.get(5,0) > 2:
+        h[5] -= 3
+      else:
+        return False
+    h[arr[i]] = h.get(arr[i],0) + 1
+  return True
+
+print(exact_change([5,5,5,10,20]))
+print(exact_change([5,5,10,10,20]))
+print(exact_change([5,5,5,20]))
+
diff --git a/challenge-236/deadmarshal/python/ch2.py b/challenge-236/deadmarshal/python/ch2.py
new file mode 100644
index 0000000000..f79c2ea21e
--- /dev/null
+++ b/challenge-236/deadmarshal/python/ch2.py
@@ -0,0 +1,17 @@
+#!/usr/bin/env python
+
+def array_loops(arr):
+  i,count,indices = 0,0,[-1] * len(arr)
+  while i < len(arr):
+    if indices[i] == -1:
+      count += 1
+      while indices[i] == -1:
+        indices[i] = 1
+        i = arr[i]
+    i += 1
+  return count
+
+print(array_loops([4,6,3,8,15,0,13,18,7,16,14,19,17,5,11,1,12,2,9,10]))
+print(array_loops([0,1,13,7,6,8,10,11,2,14,16,4,12,9,17,5,3,18,15,19]))
+print(array_loops([9,8,3,11,5,7,13,19,12,4,14,10,18,2,16,1,0,15,6,17]))
+
diff --git a/challenge-236/deadmarshal/raku/ch-1.raku b/challenge-236/deadmarshal/raku/ch-1.raku
new file mode 100644
index 0000000000..ebad8d1999
--- /dev/null
+++ b/challenge-236/deadmarshal/raku/ch-1.raku
@@ -0,0 +1,22 @@
+#!/usr/bin/env raku
+
+sub exact-change(@arr)
+{
+  my %hash;
+  for @arr {
+    if $_ == 10 {
+      return False unless %hash{5}--;
+    }
+    elsif $_ == 20 {
+      %hash{5} && %hash{10} ?? do {--%hash{$_} for 5,10} !!
+      %hash{5} > 2 ?? (%hash{5} -= 3) !! return False;
+    }
+    %hash{$_}++;
+  }
+  True
+}
+
+say exact-change([5,5,5,10,20]);
+say exact-change([5,5,10,10,20]);
+say exact-change([5,5,5,20]);
+
diff --git a/challenge-236/deadmarshal/raku/ch-2.raku b/challenge-236/deadmarshal/raku/ch-2.raku
new file mode 100644
index 0000000000..126d6df530
--- /dev/null
+++ b/challenge-236/deadmarshal/raku/ch-2.raku
@@ -0,0 +1,23 @@
+#!/usr/bin/env raku
+
+sub array-loops(@arr)
+{
+  my ($i,$count) = (0) xx 2;
+  my @indices = False xx @arr.elems;
+  while $i < @arr.elems {
+    if @indices[$i] == False {
+      $count++;
+      until @indices[$i] {
+	@indices[$i] = True;
+	$i = @arr[$i];
+      }
+    }
+    $i++;
+  }
+  $count
+}
+
+say array-loops([4,6,3,8,15,0,13,18,7,16,14,19,17,5,11,1,12,2,9,10]);
+say array-loops([0,1,13,7,6,8,10,11,2,14,16,4,12,9,17,5,3,18,15,19]);
+say array-loops([9,8,3,11,5,7,13,19,12,4,14,10,18,2,16,1,0,15,6,17]);
+