fea(stdlib): Add comparison operators to char stdlib (#1744)

* feat: Add comparison operators to char stdlib

* chore: Apply suggestions from code review

* Apply suggestions from code review

Co-authored-by: Oscar Spencer <oscar.spen@gmail.com>

* chore: regenerate grain doc

* chore: Apply suggestions from code review

* chore: Rebase on main

---------

Co-authored-by: Oscar Spencer <oscar.spen@gmail.com>

Author: spotandjake

compiler/test/stdlib/char.test.gr

@@ -54,3 +54,35 @@ while (!done) {
   Char.code(chars[charPosition])
   charPosition += 1
 }
+
+// <
+from Char use { (<) }
+assert 'a' < 'z'
+assert 'a' < 'b'
+assert 'A' < 'Z'
+assert !('z' < 'a')
+
+// <=
+from Char use { (<=) }
+assert 'a' <= 'z'
+assert 'a' <= 'b'
+assert 'A' <= 'Z'
+assert !('z' <= 'a')
+assert 'z' <= 'z'
+assert 'Z' <= 'Z'
+
+// >
+from Char use { (>) }
+assert 'z' > 'a'
+assert 'b' > 'a'
+assert 'Z' > 'A'
+assert !('a' > 'b')
+
+// >=
+from Char use { (>=) }
+assert 'z' >= 'a'
+assert 'b' >= 'a'
+assert 'Z' >= 'A'
+assert !('a' >= 'b')
+assert 'a' >= 'a'
+assert 'B' >= 'B'

stdlib/char.gr

@@ -191,3 +191,71 @@ provide let toString = (char: Char) => {
 
   result
 }
+
+/**
+ * Checks if the first character is less than the second character by Unicode scalar value.
+ *
+ * @param x: The first character
+ * @param y: The second character
+ * @returns `true` if the first character is less than the second character or `false` otherwise
+ *
+ * @since v0.6.0
+ */
+@unsafe
+provide let (<) = (x: Char, y: Char) => {
+  from WasmI32 use { (<) }
+  let x = WasmI32.fromGrain(x)
+  let y = WasmI32.fromGrain(y)
+  x < y
+}
+
+/**
+ * Checks if the first character is less than or equal to the second character by Unicode scalar value.
+ *
+ * @param x: The first character
+ * @param y: The second character
+ * @returns `true` if the first character is less than or equal to the second character or `false` otherwise
+ *
+ * @since v0.6.0
+ */
+@unsafe
+provide let (<=) = (x: Char, y: Char) => {
+  from WasmI32 use { (<=) }
+  let x = WasmI32.fromGrain(x)
+  let y = WasmI32.fromGrain(y)
+  x <= y
+}
+
+/**
+ * Checks if the first character is greater than the second character by Unicode scalar value.
+ *
+ * @param x: The first character
+ * @param y: The second character
+ * @returns `true` if the first character is greater than the second character or `false` otherwise
+ *
+ * @since v0.6.0
+ */
+@unsafe
+provide let (>) = (x: Char, y: Char) => {
+  from WasmI32 use { (>) }
+  let x = WasmI32.fromGrain(x)
+  let y = WasmI32.fromGrain(y)
+  x > y
+}
+
+/**
+ * Checks if the first character is greater than or equal to the second character by Unicode scalar value.
+ *
+ * @param x: The first character
+ * @param y: The second character
+ * @returns `true` if the first character is greater than or equal to the second character or `false` otherwise
+ *
+ * @since v0.6.0
+ */
+@unsafe
+provide let (>=) = (x: Char, y: Char) => {
+  from WasmI32 use { (>=) }
+  let x = WasmI32.fromGrain(x)
+  let y = WasmI32.fromGrain(y)
+  x >= y
+}

stdlib/char.md

@@ -213,3 +213,107 @@ Returns:
 |----|-----------|
 |`String`|A string containing the given character|
 
+### Char.**(<)**
+
+<details disabled>
+<summary tabindex="-1">Added in <code>next</code></summary>
+No other changes yet.
+</details>
+
+```grain
+(<) : (x: Char, y: Char) -> Bool
+```
+
+Checks if the first character is less than the second character by Unicode scalar value.
+
+Parameters:
+
+|param|type|description|
+|-----|----|-----------|
+|`x`|`Char`|The first character|
+|`y`|`Char`|The second character|
+
+Returns:
+
+|type|description|
+|----|-----------|
+|`Bool`|`true` if the first character is less than the second character or `false` otherwise|
+
+### Char.**(<=)**
+
+<details disabled>
+<summary tabindex="-1">Added in <code>next</code></summary>
+No other changes yet.
+</details>
+
+```grain
+(<=) : (x: Char, y: Char) -> Bool
+```
+
+Checks if the first character is less than or equal to the second character by Unicode scalar value.
+
+Parameters:
+
+|param|type|description|
+|-----|----|-----------|
+|`x`|`Char`|The first character|
+|`y`|`Char`|The second character|
+
+Returns:
+
+|type|description|
+|----|-----------|
+|`Bool`|`true` if the first character is less than or equal to the second character or `false` otherwise|
+
+### Char.**(>)**
+
+<details disabled>
+<summary tabindex="-1">Added in <code>next</code></summary>
+No other changes yet.
+</details>
+
+```grain
+(>) : (x: Char, y: Char) -> Bool
+```
+
+Checks if the first character is greater than the second character by Unicode scalar value.
+
+Parameters:
+
+|param|type|description|
+|-----|----|-----------|
+|`x`|`Char`|The first character|
+|`y`|`Char`|The second character|
+
+Returns:
+
+|type|description|
+|----|-----------|
+|`Bool`|`true` if the first character is greater than the second character or `false` otherwise|
+
+### Char.**(>=)**
+
+<details disabled>
+<summary tabindex="-1">Added in <code>next</code></summary>
+No other changes yet.
+</details>
+
+```grain
+(>=) : (x: Char, y: Char) -> Bool
+```
+
+Checks if the first character is greater than or equal to the second character by Unicode scalar value.
+
+Parameters:
+
+|param|type|description|
+|-----|----|-----------|
+|`x`|`Char`|The first character|
+|`y`|`Char`|The second character|
+
+Returns:
+
+|type|description|
+|----|-----------|
+|`Bool`|`true` if the first character is greater than or equal to the second character or `false` otherwise|
+