Create and share images of your source code(carbon.now.sh)

    const getPropPath = (keyPath) =>
      (obj) => {
        return keyPath.split('.').reduce(
          (prevResult, nextKey) => prevResult[nextKey],
          obj,
        )
      }

    const compose = (...funcs) =>
      (x) => {
        return funcs.reduce(
          (prevResult, nextFunc) => nextFunc(prevResult),
          x,
        )
      }

    const unfold = (func, startArg) => {
      const unfoldAux = (func, currArg, accum) => {
        const result = func(currArg)
        if (result) {
          const nextArg = result[1]
          const nextAccum = accum.concat([result[0]])
          return unfoldAux(func, nextArg, nextAccum)
        } else {
          return accum
        }
      }
      return unfoldAux(func, startArg, [])
    }

    let unfold func start_value = 
      let rec unfold_aux func curr_arg accumulator =
        match func curr_arg with
          | None -> accumulator
          | Some (result, next_arg) -> unfold_aux func next_arg (accumulator @ [result])
      in unfold_aux func start_value []

    def unfold(func, start_value):
        def unfold_aux(func, curr_arg, accumulator):
            match func(curr_arg):
                case None:
                    return accumulator
                case (result, next_arg):
                    return unfold_aux(func, next_arg, accumulator + [result])
        return unfold_aux(func, start_value, [])