memo.scala

// https://github.com/fpinscala/fpinscala/.../parsing/Parsers.scala の一部

extension [A](p: Parser[A])
  // 中略
  def opt: Parser[Option[A]] = p.map(Some(_)) | succeed(None)
  
  def map[B](f: A => B): Parser[B] = p.flatMap(f andThen succeed)
  
  def |(p2: => Parser[A]): Parser[A] = p.or(p2)

  infix def or(p2: => Parser[A]): Parser[A]

  def flatMap[B](f: A => Parser[B]): Parser[B]
  // 以下略

// 使うとき
val name: Either[ParseError, String] = name.opt.run(input)