Merge pull request #12739 from spadacciniweb/PWC-340

PWC 340: add ch-2 in Elixir

1 files changed, 63 insertions, 0 deletions

diff --git a/challenge-340/spadacciniweb/elixir/ch-2.exs b/challenge-340/spadacciniweb/elixir/ch-2.exs
new file mode 100644
index 0000000000..4c7356e8fd
--- /dev/null
+++ b/challenge-340/spadacciniweb/elixir/ch-2.exs
@@ -0,0 +1,63 @@
+# Task 2: Ascending Numbers
+# Submitted by: Mohammad Sajid Anwar
+# 
+# You are given a string, $str, is a list of tokens separated by a single space. Every token is either a positive number consisting of digits 0-9 with no leading zeros, or a word consisting of lowercase English letters.
+# Write a script to check if all the numbers in the given string are strictly increasing from left to right.
+# 
+# Example 1
+# Input: $str = "The cat has 3 kittens 7 toys 10 beds"
+# Output: true
+# 
+# Numbers 3, 7, 10 - strictly increasing.
+# 
+# Example 2
+# Input: $str = 'Alice bought 5 apples 2 oranges 9 bananas'
+# Output: false
+# 
+# Example 3
+# Input: $str = 'I ran 1 mile 2 days 3 weeks 4 months'
+# Output: true
+# 
+# Example 4
+# Input: $str = 'Bob has 10 cars 10 bikes'
+# Output: false
+# 
+# Example 5
+# Input: $str = 'Zero is 0 one is 1 two is 2'
+# Output: true
+
+defmodule AscendingNumbers do
+
+  def capture_numbers(str) do
+    Regex.scan(~r/\d+/, str)
+    |> List.flatten()
+  end
+
+  def check_ordered(str) do
+    capture_numbers(str)
+    |> Enum.map(&String.to_integer/1)
+    |> Enum.chunk_every(2, 1, :discard) 
+    |> Enum.all?(fn [x,y] -> y > x end)
+  end
+
+  def out(str) do
+    IO.write( "'" <> str <> "' -> ")
+    IO.puts( check_ordered(str) )
+  end
+
+end
+
+str = "The cat has 3 kittens 7 toys 10 beds"
+AscendingNumbers.out( str )
+
+str = "Alice bought 5 apples 2 oranges 9 bananas"
+AscendingNumbers.out( str )
+
+str = "I ran 1 mile 2 days 3 weeks 4 months"
+AscendingNumbers.out( str )
+
+str = "Bob has 10 cars 10 bikes"
+AscendingNumbers.out( str )
+
+str = "Zero is 0 one is 1 two is 2"
+AscendingNumbers.out( str )