新しいツールNew tools

• ここまでいろいろつくってきたけれど、いずれもごくわずかな基本のツールを組み合わせただけ

  We've built all this up just by gluing together a very few basic tools:

 lookfor()
 conc()
 alt()

• ツールそのものはシンプルだった

  But the tools themselves were simple

• 新しいツールが必要になったら、つくればいい

  If we needed some new tool, we could build it

• たとえば、「AがBでない場合のみAを探す」ツールならこうだ

  For example, "look for A, but only if it doesn't also look like B":

 sub this_but_not_that {
 my ($A, $B) = @_;
 my $parser = sub { 
 my $in = shift;
 my ($res, $out) = $A->($in)
 or return;
 if ($B->($in)) { return; }
 return ($res, $out);
 };
 return $parser;
 }