Added wordcount

Author: Undalevein

gleam/gleam.toml

@@ -15,7 +15,7 @@ version = "1.0.0"
 [dependencies]
 gleam_stdlib = ">= 0.44.0 and < 2.0.0"
 argv = ">= 1.0.2 and < 2.0.0"
-gleam_erlang = ">= 0.34.0 and < 1.0.0"
+gleam_regexp = ">= 1.1.1 and < 2.0.0"
 
 [dev-dependencies]
 gleeunit = ">= 1.0.0 and < 2.0.0"

gleam/manifest.toml

@@ -3,13 +3,13 @@
 
 packages = [
   { name = "argv", version = "1.0.2", build_tools = ["gleam"], requirements = [], otp_app = "argv", source = "hex", outer_checksum = "BA1FF0929525DEBA1CE67256E5ADF77A7CDDFE729E3E3F57A5BDCAA031DED09D" },
-  { name = "gleam_erlang", version = "0.34.0", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "gleam_erlang", source = "hex", outer_checksum = "0C38F2A128BAA0CEF17C3000BD2097EB80634E239CE31A86400C4416A5D0FDCC" },
+  { name = "gleam_regexp", version = "1.1.1", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "gleam_regexp", source = "hex", outer_checksum = "9C215C6CA84A5B35BB934A9B61A9A306EC743153BE2B0425A0D032E477B062A9" },
   { name = "gleam_stdlib", version = "0.59.0", build_tools = ["gleam"], requirements = [], otp_app = "gleam_stdlib", source = "hex", outer_checksum = "F8FEE9B35797301994B81AF75508CF87C328FE1585558B0FFD188DC2B32EAA95" },
   { name = "gleeunit", version = "1.3.1", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "gleeunit", source = "hex", outer_checksum = "A7DD6C07B7DA49A6E28796058AA89E651D233B357D5607006D70619CD89DAAAB" },
 ]
 
 [requirements]
 argv = { version = ">= 1.0.2 and < 2.0.0" }
-gleam_erlang = { version = ">= 0.34.0 and < 1.0.0" }
+gleam_regexp = { version = ">= 1.1.1 and < 2.0.0" }
 gleam_stdlib = { version = ">= 0.44.0 and < 2.0.0" }
 gleeunit = { version = ">= 1.0.0 and < 2.0.0" }

gleam/src/wordcount.gleam

@@ -0,0 +1,46 @@
+import argv
+import gleam/dict
+import gleam/int
+import gleam/io
+import gleam/list
+import gleam/option.{type Option, None, Some}
+import gleam/regexp
+import gleam/string
+
+pub fn main() {
+  //////////////////////////////////////////////////////////////
+  // Warning constantly stated if you don't use the Option type.
+  // This is implemented to not get bombarded by Gleam warning 
+  // messages when running some of the examples. This is not
+  // apart of the example whatsoever.
+  let m: List(Option(Int)) = [Some(1), None]
+  list.each(m, fn(x) {
+    case x {
+      Some(i) -> i
+      None -> 1
+    }
+  }) 
+  //////////////////////////////////////////////////////////////
+
+  let assert Ok(re) = regexp.from_string("[a-z\\']+")
+
+  argv.load().arguments
+  |> list.map( fn(line) {
+    line
+    |> string.lowercase
+    |> regexp.scan(with: re)
+  }) 
+  |> list.flatten
+  |> list.map( fn (word) { word.content } )
+  |> list.fold(dict.from_list([]), fn(freq, word) {
+    dict.upsert(freq, word, fn(n) {
+      case n {
+        Some(i) -> i + 1
+        None -> 1
+      }
+    })
+  })
+  |> dict.to_list
+  |> list.sort( fn(s1, s2) { string.compare(s1.0, s2.0) } )
+  |> list.each( fn(item) { io.println(item.0 <> " " <> int.to_string(item.1)) })
+}

gleam/test.ps1

@@ -14,7 +14,7 @@ Set-Location "$PSScriptRoot"
 
 # Download dependencies if needed.
 gleam add argv
-gleam add gleam_erlang
+gleam add gleam_regexp@1
 
 $Error.clear()
 gleam run -m anagrams_library rats |
@@ -45,6 +45,9 @@ gleam run -m type_aliases &&
 gleam run -m type_enum &&
 gleam run -m type_record &&
 gleam run -m unqualified_imports &&
+gleam run -m wordcount (Get-Content "$PSScriptRoot\..\test\wordcount_ascii_input") |
+    Compare-Object (Get-Content "$PSScriptRoot\..\test\wordcount_ascii_expected") |
+    Assert-MatchTests &&
 ForEach-Object 'foo';
 
 if ($Error -or !$?) {