Cool.chomp, .ords, .chrs

Author: moritz

lib/Type/Cool.pod

@@ -481,6 +481,16 @@ character removed.
 
     say 'perl'.chop;                        # per
 
+=head2 method chomp
+
+    method chomp()
+
+Coerces the invocant to L<Str|/type/Str>, and returns it with the last
+character removed, if it is a logical newline.
+
+    say 'ab'.chomp.chars;                   # 2
+    say "a\n".chomp.chars;                  # 1
+
 =head2 routine substr
 
     method substr($from, $chars?)
@@ -505,6 +515,33 @@ relative to the end:
 
     say 20151224.substr(*-2);       # 24
 
+=head2 routine ords
+
+    method ords()
+    sub ords(Str(Cool) $str)
+
+Coerces the invocant (or in the sub form, the first argument) to
+L<Str|/type/Str>, and returns a list of Unicode codepoints for each character.
+
+    say "Perl 6".ords;              # 80 101 114 108 32 54
+    say ords 10;                    # 49 48
+
+This is the list-returning version of L<ord>. The inverse operation in
+L<chrs>.
+
+=head2 routine chrs
+
+    method chrs()
+    sub chrs(*@codepoints) return Str:D
+
+Coerces the invocant (or in the sub form, the argument list) to a list of
+integers, and returns the string created by interpreting each integer as a
+Unicode codepoint, and joining the characters.
+
+    say <80 101 114 108 32 54>.chrs;    # Perl 6
+
+This is the list-input version of L<chr>. The inverse operation is L<ords>.
+
 =head2 method IO
 
     method IO() returns IO::Path:D
@@ -517,7 +554,7 @@ Coerces the invocant to L<IO::Path>.
 
 TODO: sech, asech, cosech, acosech, cotanh, acotanh, cis, roots, log10,
 unpolar, truncate, fmt, substr-rw,
-chomp, chrs, trans, index, rindex, ords,
+trans, index, rindex,
 split, match, comb, lines, words, subst, sprintf, printf, samecase,
 EVAL