Help for this page

Select Code to Download


  1. or download this
      sub subdivide {
    my ($s, $n) = @_ ;
...
  print subdivide("Over 6789012+Once\n", 12) ;
  print subdivide("Over 6789012+Once Edge 2\n", 12) ;
  print subdivide("Over 6789012+Once6789012+Twice\n", 12) ;
  2. or download this
    trivial
Edge 6789012
...
Over 6789012
+Once6789012
+Twice