Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...
Chr1 1000 4000 A1
Chr1 42000 44000 A4
Chr1 15000 22000 A2

Select or download this

traverse() : (A1) => Node(1000, 4000)
traverse() : (B1) => Node(12000, 18500)
...
traverse() : (B2) => Node(28000, 29000)
traverse() : (A3) => Node(30000, 32000)
traverse() : (A4) => Node(42000, 44000)