curry.kt

fun <A, B, R> ((A, B)->R).curry(a: A): (B)->R = { b: B -> this(a, b) }
fun <A, R> ((A)->R).curry(t: A): ()->R = { this(t) }

//----------------------------------------------------------------------

fun f(i: Int, s: String) {
      print(i)
      println(s)
}
fun main() {
    f(1, "test")
    // 1test   
    
    val b = ::f.curry(2)
    b("hi_from_b")
    // 2hi_from_b
    
    val c = b.curry("hi_from_c")
    c()
    // 2hi_from_c
}