- myfill($_[0], 0, $a, $x);
- myfill($_[0], $a, $b, 1 - $x);
+ myfill $_[0], 0, $a, $x;
+ myfill $_[0], $a, $b, 1 - $x;
+ }
+}
+
+sub expect {
+ my (undef, $s, $l, $b, $left, $insert) = @_;
+ myfill $_[0], 0, $s, 0;
+ if ($b < $l) {
+ if ($left) {
+ myfill $_[0], $s, $b, defined $insert ? $insert : 1;
+ myfill $_[0], $s + $b, $l - $b, 1;
+ } else {
+ myfill $_[0], $s, $l - $b, 1;
+ myfill $_[0], $s + $l - $b, $b, defined $insert ? $insert : 1;
+ }
+ } else {
+ myfill $_[0], $s, $l, defined $insert ? $insert : 1;