29 lines
690 B
Plaintext
29 lines
690 B
Plaintext
// version 1.1.2
|
|
|
|
typealias Func = (Int) -> Int
|
|
typealias FuncS = (Func, List<Int>) -> List<Int>
|
|
|
|
fun fs(f: Func, seq: List<Int>) = seq.map { f(it) }
|
|
|
|
fun partial(fs: FuncS, f: Func) = { seq: List<Int> -> fs(f, seq) }
|
|
|
|
fun f1(n: Int) = 2 * n
|
|
|
|
fun f2(n: Int) = n * n
|
|
|
|
fun main(args: Array<String>) {
|
|
val fsf1 = partial(::fs, ::f1)
|
|
val fsf2 = partial(::fs, ::f2)
|
|
val seqs = listOf(
|
|
listOf(0, 1, 2, 3),
|
|
listOf(2, 4, 6, 8)
|
|
)
|
|
for (seq in seqs) {
|
|
println(fs(::f1, seq)) // normal
|
|
println(fsf1(seq)) // partial
|
|
println(fs(::f2, seq)) // normal
|
|
println(fsf2(seq)) // partial
|
|
println()
|
|
}
|
|
}
|