Mega Code Archive
Test map
<![CDATA[
<!--
MochiKit is dual-licensed software. It is available under the terms of the
MIT License, or the Academic Free License version 2.1. The full text of
each license is included below.
-->
<!-- Code revised from MochiKit demo code -->
<html>
<head>
<script type="text/javascript" src="MochiKit-1.4.2/lib/MochiKit/Base.js"></script>
<script type="text/javascript" src="MochiKit-1.4.2/lib/MochiKit/Iter.js"></script>
<script type="text/javascript" src="MochiKit-1.4.2/lib/MochiKit/DOM.js"></script>
<script type="text/javascript" src="MochiKit-1.4.2/lib/MochiKit/Style.js"></script>
<script type="text/javascript" src="MochiKit-1.4.2/lib/MochiKit/Logging.js"></script>
<script type="text/javascript" src="MochiKit-1.4.2/lib/MochiKit/Iter.js"></script>
</head>
<body>
<pre id="test">
<script type="text/javascript">
var minusOne = function (x) { return x - 1; };
var res = map(minusOne, [1, 2, 3]);
alert( objEqual(res, [0, 1, 2]), "map works" );
var res2 = xmap(minusOne, 1, 2, 3);
alert( objEqual(res2, res), "xmap works" );
res = map(operator.add, [1, 2, 3], [2, 4, 6]);
alert( objEqual(res, [3, 6, 9]), "map(fn, p, q) works" );
res = map(operator.add, [1, 2, 3], [2, 4, 6, 8]);
alert( objEqual(res, [3, 6, 9]), "map(fn, p, q) works (q long)" );
res = map(operator.add, [1, 2, 3, 4], [2, 4, 6]);
alert( objEqual(res, [3, 6, 9]), "map(fn, p, q) works (p long)" );
res = map(null, [1, 2, 3], [2, 4, 6]);
alert( objEqual(res, [[1, 2], [2, 4], [3, 6]]), "map(null, p, q) works" );
res = zip([1, 2, 3], [2, 4, 6]);
alert( objEqual(res, [[1, 2], [2, 4], [3, 6]]), "zip(p, q) works" );
res = map(null, [1, 2, 3]);
alert( objEqual(res, [1, 2, 3]), "map(null, lst) works" );
</script>
</pre>
</body>
</html>
]]>