Partial function application: Difference between revisions
Content added Content deleted
| Line 1,632: | Line 1,632: | ||
} |
} |
||
}</lang> |
}</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}}== |
=={{header|OCaml}}== |
||