almost ready for release

Author: tbrowder

Changes

@@ -1,4 +1,5 @@
 {{$NEXT}}
+    - Add new sub str2intlist
 
 4.0.1  2025-07-22T08:10:23-05:00
     - Fix erroneous placement of exported subs

META6.json

@@ -18,6 +18,7 @@
   "provides": {
     "Text::Utils": "lib/Text/Utils.rakumod",
     "Text::Utils::Classes": "lib/Text/Utils/Classes.rakumod",
+    "Text::Utils::Str2IntList": "lib/Text/Utils/Str2IntList.rakumod",
     "Text::Utils::Subs": "lib/Text/Utils/Subs.rakumod",
     "Text::Utils::Vars": "lib/Text/Utils/Vars.rakumod"
   },

README.md

@@ -39,7 +39,7 @@ The module contains several routines to make text handling easier for module and
 <th>Name</th> <th>Notes</th>
 </tr></thead>
 <tbody>
-<tr> <td>commify</td> <td></td> </tr> <tr> <td>count-substrs</td> <td></td> </tr> <tr> <td>list2text</td> <td></td> </tr> <tr> <td>normalize-string</td> <td>alias &#39;normalize-text&#39;</td> </tr> <tr> <td>sort-list</td> <td></td> </tr> <tr> <td>split-line</td> <td>aliases &#39;splitstr&#39;, &#39;split-str&#39;</td> </tr> <tr> <td>strip-comment</td> <td>alias &#39;strip&#39;</td> </tr> <tr> <td>wrap-paragraph</td> <td>&#39;width&#39; is in PS points</td> </tr> <tr> <td>wrap-text</td> <td>&#39;width&#39; is in number of chars</td> </tr>
+<tr> <td>commify</td> <td></td> </tr> <tr> <td>count-substrs</td> <td></td> </tr> <tr> <td>list2text</td> <td></td> </tr> <tr> <td>normalize-string</td> <td>alias &#39;normalize-text&#39;</td> </tr> <tr> <td>sort-list</td> <td></td> </tr> <tr> <td>split-line</td> <td>aliases &#39;splitstr&#39;, &#39;split-str&#39;</td> </tr> <tr> <td>str2intlist</td> <td></td> </tr> <tr> <td>strip-comment</td> <td>alias &#39;strip&#39;</td> </tr> <tr> <td>wrap-paragraph</td> <td>&#39;width&#39; is in PS points</td> </tr> <tr> <td>wrap-text</td> <td>&#39;width&#39; is in number of chars</td> </tr>
 </tbody>
 </table>
 
@@ -57,6 +57,8 @@ The module contains several routines to make text handling easier for module and
 
   * [split-line](#split-line)
 
+  * [str2intlist](#str2intlist) 
+
   * [strip-comment](#strip-comment) 
 
   * [wrap-paragraph](#wrap-paragraph) 
@@ -272,6 +274,17 @@ sub split-line(
 
 [Links list](#Links)
 
+### str2intlist
+
+Converts a string of integer numbers separated by one or more spaces to a List of integers. Such a List can then be converted to a Set for easy numerical manipulation. (Leading zeros are removed in the process.)
+
+    my $s = "01 2 3";
+    my @i = str2intlist $s;
+    my $intset = @i.Set;
+    say $intset.keys; # OUTPUT: «(3 2 1)␤»
+
+[Links list](#Links)
+
 ### strip-comment
 
 Strip the comment from an input text line, save comment if requested, normalize returned text by default.

docs/README.rakudoc

@@ -44,6 +44,7 @@ list2text
 normalize-string | alias 'normalize-text'
 sort-list
 split-line       | aliases 'splitstr', 'split-str'
+str2intlist
 strip-comment    | alias 'strip'
 wrap-paragraph   | 'width' is in PS points
 wrap-text        | 'width' is in number of chars
@@ -57,6 +58,7 @@ wrap-text        | 'width' is in number of chars
 =item L<normalize-string|#normalize-string>
 =item L<sort-list|#sort-list>
 =item L<split-line|#split-line>
+=item L<str2intlist|#str2intlist> 
 =item L<strip-comment|#strip-comment> 
 =item L<wrap-paragraph|#wrap-paragraph> 
 =item L<wrap-text|#wrap-text>
@@ -349,6 +351,22 @@ sub split-line(
 
 L<Links list|#Links>
 
+=head3 str2intlist
+
+Converts a string of integer numbers separated by one or more spaces
+to a List of integers. Such a List
+can then be converted to a Set for easy numerical manipulation.
+(Leading zeros are removed in the process.)
+
+=begin code
+my $s = "01 2 3";
+my @i = str2intlist $s;
+my $intset = @i.Set;
+say $intset.keys; # OUTPUT: «(3 2 1)␤»
+=end code
+
+L<Links list|#Links>
+
 =head3 strip-comment
 
 Strip the comment from an input text line, save comment if requested,

lib/Text/Utils.rakumod

@@ -163,6 +163,42 @@ sub count-substrs(
 
 } # count-substrs
 
+#-----------------------------------------------------------------------
+#| Purpose : Convert a string of numbers to a List of Ints
+#| Params  : String, :$no-zeroes...<
+#| Returns : List of Integers
+sub str2intlist(
+    # from ChatGPT
+    Str $s,
+    :$no-zeros       = True,
+    :$no-negatives   = True,
+    :$only-positives = True,
+    :$debug,
+   --> List
+) is export(:str2intlist) {
+
+    my @words = $s.words;
+    # validate tokens
+    for @words -> $tok {
+        unless $tok ~~ /^ '-'? \d+ $/ {
+            die "Non-numeric token found: |$tok|";
+        }
+    }
+
+    # normalize to Ints
+    my @ints = @words.map({ .Int });
+    if $only-positives {
+        @ints .= grep({ $_ != 0}) if $no-zeros;
+    }
+    else {
+        @ints .= grep({ $_ != 0}) if $no-zeros;
+        @ints .= grep({ $_ >= 0}) if $no-negatives;
+    }
+
+    # Ints unique and sorted
+    @ints.unique.sort({ $^a <=> $^b }).List;
+} # sub str2intlist
+
 #-----------------------------------------------------------------------
 #| Purpose : Strip comments from an input text line, save comment if
 #|             requested, normalize returned text if requested

lib/Text/Utils/Str2IntList.rakumod

@@ -0,0 +1,34 @@
+unit module PB-Lottery::Str2IntList;
+
+# moved to its own module
+sub str2intlist(
+    # from ChatGPT
+    Str $s,
+    :$no-zeros       = True,
+    :$no-negatives   = True,
+    :$only-positives = True,
+    :$debug,
+   --> List
+) is export {
+
+    my @words = $s.words;
+    # validate tokens
+    for @words -> $tok {
+        unless $tok ~~ /^ '-'? \d+ $/ {
+            die "Non-numeric token found: |$tok|";
+        }
+    }
+
+    # normalize to Ints
+    my @ints = @words.map({ .Int });
+    if $only-positives {
+        @ints .= grep({ $_ != 0}) if $no-zeros;
+    }
+    else {
+        @ints .= grep({ $_ != 0}) if $no-zeros;
+        @ints .= grep({ $_ >= 0}) if $no-negatives;
+    }
+
+    # Ints unique and sorted
+    @ints.unique.sort({ $^a <=> $^b }).List;
+} # end of sub str2intlist

t/17b-strip-comment.t

@@ -2,7 +2,7 @@ use Test;
 
 use File::Temp;
 
-use Text::Utils :ALL; #:strip-comment :normalize-string;
+use Text::Utils :ALL; 
 
 my $debug = 0; # output files are placed in local dir "tmp"
 

t/17c-str2intlist.t

@@ -0,0 +1,34 @@
+use Test;
+
+use Text::Utils :ALL; 
+
+my $set5s = set(1..69);
+my $setpb = set(1..26);
+
+isa-ok $set5s, Set, "isa-ok Set";
+isa-ok $setpb, Set, "isa-ok Set";
+
+# with a set of 5 numbers, ensure:
+# valid sets
+my @valid = [
+    "69 4 3 2 1",
+    "68 4 67 2 66",
+    "1 3 4 68 69",
+];
+
+for @valid -> $s {
+    my $set = set str2intlist $s;
+    isa-ok $set, Set, "isa-ok Set";
+}
+
+done-testing;
+=finish
+
+# invalid sets
+my @invalid = [
+    "69 4  3 2  4", # dup numbers
+    "70 4 67 2 66", # number too large
+    "69 4  3 0  4", # number too small
+];
+
+done-testing;

t/19-str2intlist.t

@@ -0,0 +1,41 @@
+use Test;
+
+use Text::Utils :ALL;
+
+my $set5s = set(1..69);
+my $setpb = set(1..26);
+
+isa-ok $set5s, Set, "isa-ok Set";
+isa-ok $setpb, Set, "isa-ok Set";
+
+# with a set of 5 numbers, ensure:
+# valid sets
+my @valid = [
+    "69 4 3 2 1",
+    "68 4 67 2 66",
+    "1 3 4 68 69",
+];
+
+for @valid -> $s {
+    my $set = set str2intlist $s;
+    isa-ok $set, Set, "isa-ok Set";
+}
+
+# from the README
+my $s = "01 2 3";
+my @i = str2intlist $s;
+isa-ok @i, List, "a List";
+my $intset = @i.Set;
+isa-ok $intset, Set, "a Set";
+say $intset.keys;
+done-testing;
+=finish
+
+# invalid sets
+my @invalid = [
+    "69 4  3 2  4", # dup numbers
+    "70 4 67 2 66", # number too large
+    "69 4  3 0  4", # number too small
+];
+
+done-testing;