Anonymous user
Partial function application: Difference between revisions
→{{header|Nim}}
Line 1,632:
}
}</lang>
=={{header|Nim}}==
{{trans|Kotlin}}
<lang Nim>import sequtils
type
Func = proc(n: int): int
FuncS = proc(f: Func; s: seq[int]): seq[int]
proc fs(f: Func; s: seq[int]): seq[int] = s.map(f)
proc partial(fs: FuncS; f: Func): auto =
result = proc(s: seq[int]): seq[int] = fs(f, s)
proc f1(n: int): int = 2 * n
proc f2(n: int): int = n * n
when isMainModule:
const Seqs = @[@[0, 1, 2, 3], @[2, 4, 6, 8]]
let fsf1 = partial(fs, f1)
let fsf2 = partial(fs, f2)
for s in Seqs:
echo fs(f1, s) # Normal.
echo fsf1(s) # Partial.
echo fs(f2, s) # Normal.
echo fsf2(s) # Partial.
echo ""</lang>
{{out}}
<pre>@[0, 2, 4, 6]
@[0, 2, 4, 6]
@[0, 1, 4, 9]
@[0, 1, 4, 9]
@[4, 8, 12, 16]
@[4, 8, 12, 16]
@[4, 16, 36, 64]
@[4, 16, 36, 64]</pre>
=={{header|OCaml}}==
| |||