First-class functions/Use numbers analogously: Difference between revisions
First-class functions/Use numbers analogously (view source)
Revision as of 18:58, 13 January 2015
, 9 years ago→{{header|OCaml}}
(jq) |
|||
Line 734:
# List.map2 (fun n inv -> (multiplier n inv) 0.5) coll inv_coll;;
- : float list = [0.5; 0.5; 0.5]</lang>
=={{header|Oforth}}==
<lang Oforth>func: multiplier(n1, n2) { #[ n1 n2 * * ] }
func: firstClassNum
{
| x xi y yi z zi |
2.0 ->x
0.5 ->xi
4.0 ->y
0.25 ->yi
x y + ->z
x y + inv ->zi
[ x, y, z ] [ xi, yi, zi ] zipWith(#multiplier) map(#[ 0.5 swap perform ] ) println
}</lang>
=={{header|Oz}}==
| |||