
Clear questions and runnable code get the best and fastest answer
	PerlMonks

Re: Finding Hamiltonian Paths using the Regexp Engine

by BrowserUk (Patriarch)

on Aug 08, 2003 at 08:45 UTC ( [id://282139]=note: print w/replies, xml )

Need Help??

Help for this page

Select Code to Download

Select or download this

(?:(?{local $q [0] = $nodes [0]})|
   (?{local $q [0] = $nodes [1]})|
...
     $q [7] eq $q [6] ||
     !$graph {$q [6]} {$q [7]}})x|)
(?{ @path = @q })

Select or download this

(?:(?{local $q [0] = $nodes [0]})|
   (?{local $q [0] = $nodes [1]})|
...
   (?{local $q [1] = $nodes [7]}))
(?(?{$q [1] eq $q [0] ||
     !$graph {$q [0]} {$q [1]}})x|)

Select or download this

(?:(?{local $q [2] = $nodes [0]})|
   (?{local $q [2] = $nodes [1]})|
...
(?(?{$q [2] eq $q [0] ||
     $q [2] eq $q [1] ||
     !$graph {$q [1]} {$q [2]}})x|)

Select or download this

(?:(?{local $q [0] = $nodes [0]})|   (?:(?{local $q [1] = $nodes [0]})
+|    (?:(?{local $q [2] = $nodes [0]})|
   (?{local $q [0] = $nodes [1]})|      (?{local $q [1] = $nodes [1]})
+|       (?{local $q [2] = $nodes [1]})|
...
                                          !$graph {$q [0]} {$q [1]}})x
+|)         $q [2] eq $q [1] ||
                                                                      
+          !$graph {$q [1]} {$q [2]}})x|)

Select or download this

(?:(?{local $q [2] = $nodes [0]})|
   (?{local $q [2] = $nodes [1]})|
...
(?(?{$q [2] eq $q [0] ||
     $q [2] eq $q [1] ||
     !$graph {$q [1]} {$q [2]}})x|)

Select or download this
```
(?: exp1 | exp2 | exp3 ... )
```

Select or download this

# The second element was missing from the first group.
(? (?{ $q[1] eq $q[0] ||                                     !$graph{$
+q [0]}{$q [1]} } ) x | )
(? (?{ $q[2] eq $q[0] || $q[2] eq $q[1] ||                   !$graph{$
+q [1]}{$q [2]} } ) x | )
(? (?{ $q[3] eq $q[0] || $q[3] eq $q[1] || $q[3] eq $q[2] || !$graph{$
+q [2]}{$q [3]} } ) x | )

Select or download this
```
if(cond)
   re_1
else
   re_2
```
Select or download this
```
if ("" =~ /$regex/x) {
```

Select or download this

# null.
$q[1] eq $q[0] ||                                     !$graph{$q [0]}{
+$q [1]}
$q[2] eq $q[0] || $q[2] eq $q[1] ||                   !$graph{$q [1]}{
+$q [2]}
$q[3] eq $q[0] || $q[3] eq $q[1] || $q[3] eq $q[2] || !$graph{$q [2]}{
+$q [3]}

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://282139]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others studying the Monastery: (8)

As of 2024-04-23 08:58 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found