- or download this
{ 'c', 'i', 'o', 'p' }
- or download this
S -> Sp
op -> i
...
oc -> io
ic -> co
cS -> ioS
- or download this
$S = 'o';
...
@out = map { sprintf ("%6s", $_) } @processing;
printf ("%-44s == %6s\n", join (" ->", @out), $S);
}
- or download this
op -> i == i
ip -> c -> io == io
...
iioip -> iioc -> iiio == iiio
iiiop -> iiii == iiii
iiiip -> iiic -> iico -> icoo -> ioooo == ioooo
- or download this
$S = 'opppppppp'; # (S -> Sp) x 8
...
@out = map { sprintf ("%9s", $_) } @processing;
print join (" ->", @out), "\n";
}
- or download this
opppppppp -> ippppppp -> cpppppp -> iopppppp
iopppppp -> iippppp -> icpppp -> ioopppp
ioopppp -> ioippp -> iocpp -> iiopp
iiopp -> iiip -> iic -> ico -> iooo
- or download this
8 -> iooo