scalaz-stream - シンクでコードのパフォーマンスを向上させる方法は?

Question

scalaz-streams シンクについて奇妙な観察があります。彼らはゆっくりと働いています。それがなぜなのか誰か知っていますか？そして、パフォーマンスを向上させる方法はありますか？

ここに私のコードの関連部分があります: シンクなしのバージョン

//p is parameter with type p: Process[Task, Pixel]

def printToImage(img: BufferedImage)(pixel: Pixel): Unit = {
  img.setRGB(pixel.x, pixel.y, 1, 1, Array(pixel.rgb), 0, 0)
}
val image = getBlankImage(2000, 4000)
val result = p.runLog.run
result.foreach(printToImage(image))

これは実行に約7秒かかります

シンク付きバージョン

//p is the same as before

def printToImage(img: BufferedImage)(pixel: Pixel): Unit = {
  img.setRGB(pixel.x, pixel.y, 1, 1, Array(pixel.rgb), 0, 0)
}

//I've found that way of doing sink in some tutorial
def getImageSink(img: BufferedImage): Sink[Task, Pixel] = {
  //I've tried here Task.delay and Task.now with the same results
  def printToImageTask(img: BufferedImage)(pixel: Pixel): Task[Unit] = Task.delay {
    printToImage(img)(pixel)
  }
  Process.constant(printToImageTask(img))
}



val image = getBlankImage(2000, 4000)
val result = p.to(getImageSink(image)).run.run

これは実行に 33 秒かかります。その大きな違いのために、私はここで完全に混乱しています。