如何对已知Shapelss HList的每个索引应用单独的函数

import shapeless._

object ApplyFunctionToHList {
  def applyFunctions[H <: HList, F <: HList](hlist: H, functions: F)(implicit folder: LeftFolder.Aux[H, Unit, applyFunction.type, Unit]): Unit = {
    hlist.foldLeft(())(applyFunction)
  }

  object applyFunction extends Poly1 {
    implicit def caseInt = at[Int](i => {
      // 对整数类型的索引应用函数的逻辑
      // ...
    })

    implicit def caseString = at[String](s => {
      // 对字符串类型的索引应用函数的逻辑
      // ...
    })

    // 添加其他类型的索引应用函数

    implicit def default[A] = at[A](a => {
      // 对其他类型的索引应用函数的默认逻辑
      // ...
    })
  }

  def main(args: Array[String]): Unit = {
    val hlist = 1 :: "hello" :: true :: HNil
    val functions = applyFunction.caseInt :: applyFunction.caseString :: applyFunction.default :: HNil

    applyFunctions(hlist, functions)
  }
}