Help for this page

Select Code to Download


  1. or download this
    sub bowl {
    ($_,$n)=@_;
    s#(\d)(\d|/(?=(.)))|X(?=(..))|.#
...
X11X11X11X11X11
11X11X11X11X11X11
5/63XX7043X4/813/6
  2. or download this
    6/ 45 X  7/ X3/
14  9 20 20 20
...
        "3" matches; change to "$1$2" eq ""
         "/" matches; change to "$1$2" eq ""
(result: "X445X7/XXX3/")
  3. or download this
    sub bowl {
    $_=pop;
...
X11X11X11X11X11--
11X11X11X11X11X11
5/63XX7043X4/813/6