Tcl Source Code

When I use regexp {^(oo+?)(\1)*$} to verify a number 
is prime or not. The result was abnormal.

I use another script like perl, python ...
It does work.

Logged In: YES 
user_id=1312539

This Tracker item was closed automatically by the system. It was
previously set to a Pending status, and the original submitter
did not respond within 14 days (the time period specified by
the administrator of this Tracker).

Logged In: YES 
user_id=79902

I've no idea what the above regular expression is trying to
achieve, since it will match any non-empty sequence of 'o'
characters (the * allows bits to be ignored). However, if I use:
   ^(oo+?)\1+$
as the RE (dropping one set of parens for simplicity and
changing to using a +) then I get a perfectly adequate
non-prime detector.
   % info patch
   8.4.7
   % #Print the lowest prime factor of 169...
   % string length [lindex [regexp -inline {^(oo+?)\1+$}
[string repeat o 169]] 1]
   13

Looks like pilot error to me.

File Added - 183214: prime.tcl