问启动100个光纤，在每个光纤中迭代并增加一个参考文献

EN

object Fibers extends IOApp.Simple {
  private def logic(ref: Ref[IO, Int], nFibers: Int, nIterations: Int): IO[Unit] =
    List.range(start = 0, end = nFibers).parTraverse_ { _ =>
      List.range(start = 0, end = nIterations).traverse_ { _ =>
        ref.update(_ + 1)
      }
    }

  override final val run: IO[Unit] =
    IO.ref(0).flatTap { ref =>
      logic(ref, nFibers = 100, nIterations = 1000)
    } flatMap { ref =>
      ref.get.flatMap { total =>
        IO.println(s"Total is: ${total}")
      }
    }
}