c:\@Work\Perl\monks\LanX>perl singleton_chars_1.pl
#
#  rx_1() -- 1st try - not "pure"
#
# each contain one or more single character
ok 1 - 'a' -> (a)
ok 2 - 'ab' -> (a b)
ok 3 - 'abc' -> (a b c)
ok 4 - 'aba' -> (b)
ok 5 - 'abb' -> (a)
ok 6 - 'aab' -> (b)
ok 7 - 'cpcdeqe' -> (p d q)
ok 8 - 'pcdcq' -> (p d q)
ok 9 - 'cpdqc' -> (p d q)
ok 10 - 'aapdq' -> (p d q)
ok 11 - 'apadq' -> (p d q)
ok 12 - 'apdaq' -> (p d q)
ok 13 - 'apdqa' -> (p d q)
ok 14 - 'paadq' -> (p d q)
ok 15 - 'padaq' -> (p d q)
ok 16 - 'padqa' -> (p d q)
ok 17 - 'pdaaq' -> (p d q)
ok 18 - 'pdaqa' -> (p d q)
ok 19 - 'pdqaa' -> (p d q)
# expected results from LanX pm#1201799
ok 20 - 'aaaab' -> (b)
ok 21 - 'aaaba' -> (b)
ok 22 - 'aabaa' -> (b)
ok 23 - 'abaaa' -> (b)
ok 24 - 'abbbb' -> (a)
ok 25 - 'baaaa' -> (b)
ok 26 - 'babbb' -> (a)
ok 27 - 'bbabb' -> (a)
ok 28 - 'bbbab' -> (a)
ok 29 - 'bbbba' -> (a)
# none of these contain any single character
ok 30 - 'aa' -> ()
ok 31 - 'aaa' -> ()
ok 32 - 'aabb' -> ()
ok 33 - 'aaabbb' -> ()
ok 34 - 'abcabc' -> ()
ok 35 - 'abcxcbax' -> ()
ok 36 - 'xabccbax' -> ()
ok 37 - 'abcxxcba' -> ()
ok 38 - 'abacbc' -> ()
#
#  done testing functions
#
1..38
ok 39 - no warnings
1..39