2013-02-27 17:46:25 +00:00
|
|
|
|
2013-03-09 07:31:19 +00:00
|
|
|
Elm.Native.List = function(elm) {
|
2013-02-20 22:39:00 +00:00
|
|
|
"use strict";
|
2013-02-10 04:40:23 +00:00
|
|
|
|
2013-03-09 07:31:19 +00:00
|
|
|
elm.Native = elm.Native || {};
|
|
|
|
if (elm.Native.List) return elm.Native.List;
|
|
|
|
|
2013-03-10 03:02:07 +00:00
|
|
|
var eq = elm.Native.Utils(elm).eq;
|
|
|
|
|
2013-02-21 23:33:53 +00:00
|
|
|
var Nil = { ctor:'Nil' };
|
|
|
|
function Cons(hd,tl) { return { ctor:"Cons", _0:hd, _1:tl }; }
|
|
|
|
|
2013-02-10 09:45:45 +00:00
|
|
|
function throwError(f) {
|
|
|
|
throw new Error("Function '" + f + "' expects a non-empty list!");
|
|
|
|
}
|
2013-02-10 04:40:23 +00:00
|
|
|
|
2013-02-10 09:45:45 +00:00
|
|
|
function toArray(xs) {
|
|
|
|
var out = [];
|
2013-02-20 22:39:00 +00:00
|
|
|
while (xs.ctor === "Cons") {
|
|
|
|
out.push(xs._0);
|
|
|
|
xs = xs._1;
|
2013-02-10 09:45:45 +00:00
|
|
|
}
|
|
|
|
return out;
|
|
|
|
}
|
|
|
|
|
|
|
|
function fromArray(arr) {
|
2013-02-21 23:33:53 +00:00
|
|
|
var out = Nil;
|
2013-02-10 09:45:45 +00:00
|
|
|
for (var i = arr.length; i--; ) {
|
2013-02-21 23:33:53 +00:00
|
|
|
out = Cons(arr[i], out);
|
2013-02-10 09:45:45 +00:00
|
|
|
}
|
|
|
|
return out;
|
|
|
|
}
|
|
|
|
|
2013-02-27 07:26:28 +00:00
|
|
|
function range(lo,hi) {
|
|
|
|
var lst = Nil;
|
|
|
|
if (lo <= hi) {
|
2013-03-02 17:18:36 +00:00
|
|
|
do { lst = Cons(hi,lst) } while (hi-->lo);
|
2013-02-27 07:26:28 +00:00
|
|
|
}
|
|
|
|
return lst
|
|
|
|
}
|
|
|
|
|
|
|
|
function append(xs,ys) {
|
|
|
|
if (typeof xs === "string") { return xs.concat(ys); }
|
|
|
|
if (xs.ctor === "Nil") { return ys; }
|
2013-03-09 07:31:19 +00:00
|
|
|
var root = Cons(xs._0. Nil);
|
2013-02-27 07:26:28 +00:00
|
|
|
var curr = root;
|
|
|
|
xs = xs._1;
|
|
|
|
while (xs.ctor==="Cons") {
|
2013-03-09 07:31:19 +00:00
|
|
|
curr._1 = Cons(xs._0. Nil);
|
2013-02-27 07:26:28 +00:00
|
|
|
xs = xs._1;
|
|
|
|
curr = curr._1;
|
|
|
|
}
|
|
|
|
curr._1 = ys;
|
|
|
|
return root;
|
|
|
|
}
|
|
|
|
|
2013-03-03 15:54:37 +00:00
|
|
|
function head(v) { return v.ctor === "Nil" ? throwError('head') : v._0; }
|
|
|
|
function tail(v) { return v.ctor === "Nil" ? throwError('tail') : v._1; }
|
2013-02-10 09:45:45 +00:00
|
|
|
|
|
|
|
function last(xs) {
|
2013-02-20 22:39:00 +00:00
|
|
|
if (xs.ctor === "Nil") { throwError('last'); }
|
|
|
|
var out = xs._0;
|
|
|
|
while (xs.ctor === "Cons") {
|
|
|
|
out = xs._0;
|
|
|
|
xs = xs._1;
|
2013-02-10 09:45:45 +00:00
|
|
|
}
|
|
|
|
return out;
|
|
|
|
}
|
|
|
|
|
2013-02-27 17:46:25 +00:00
|
|
|
function map(f, xs) {
|
2013-02-10 09:45:45 +00:00
|
|
|
var arr = [];
|
2013-02-20 22:39:00 +00:00
|
|
|
while (xs.ctor === "Cons") {
|
|
|
|
arr.push(f(xs._0));
|
|
|
|
xs = xs._1;
|
2013-02-10 09:45:45 +00:00
|
|
|
}
|
|
|
|
return fromArray(arr);
|
|
|
|
}
|
|
|
|
|
2013-02-27 17:46:25 +00:00
|
|
|
function foldl(f, b, xs) {
|
|
|
|
var acc = b;
|
|
|
|
while (xs.ctor === "Cons") {
|
|
|
|
acc = f(xs._0)(acc);
|
|
|
|
xs = xs._1;
|
2013-02-10 09:45:45 +00:00
|
|
|
}
|
2013-02-27 17:46:25 +00:00
|
|
|
return acc;
|
2013-02-10 09:45:45 +00:00
|
|
|
}
|
|
|
|
|
2013-02-27 17:46:25 +00:00
|
|
|
function foldr(f, b, xs) {
|
|
|
|
var arr = toArray(xs);
|
|
|
|
var acc = b;
|
|
|
|
for (var i = arr.length; i--; ) {
|
|
|
|
acc = f(arr[i])(acc);
|
2013-02-10 09:45:45 +00:00
|
|
|
}
|
2013-02-27 17:46:25 +00:00
|
|
|
return acc;
|
2013-02-10 09:45:45 +00:00
|
|
|
}
|
|
|
|
|
2013-02-27 17:46:25 +00:00
|
|
|
function foldl1(f, xs) {
|
2013-03-03 15:54:37 +00:00
|
|
|
return xs.ctor === "Nil" ? throwError('foldl1') : foldl(f, xs._0, xs._1);
|
2013-02-10 09:45:45 +00:00
|
|
|
}
|
|
|
|
|
2013-02-27 17:46:25 +00:00
|
|
|
function foldr1(f, xs) {
|
2013-02-20 22:39:00 +00:00
|
|
|
if (xs.ctor === "Nil") { throwError('foldr1'); }
|
2013-02-10 09:45:45 +00:00
|
|
|
var arr = toArray(xs);
|
|
|
|
var acc = arr.pop();
|
|
|
|
for (var i = arr.length; i--; ) {
|
2013-02-27 17:46:25 +00:00
|
|
|
acc = A2(f, arr[i], acc);
|
2013-02-10 09:45:45 +00:00
|
|
|
}
|
|
|
|
return acc;
|
|
|
|
}
|
|
|
|
|
2013-02-27 17:46:25 +00:00
|
|
|
function scanl(f, b, xs) {
|
|
|
|
var arr = toArray(xs);
|
|
|
|
arr.unshift(b);
|
|
|
|
var len = arr.length;
|
|
|
|
for (var i = 1; i < len; ++i) {
|
|
|
|
arr[i] = A2(f, arr[i], arr[i-1]);
|
2013-02-10 09:45:45 +00:00
|
|
|
}
|
2013-02-27 17:46:25 +00:00
|
|
|
return fromArray(arr);
|
2013-02-10 09:45:45 +00:00
|
|
|
}
|
|
|
|
|
2013-02-27 17:46:25 +00:00
|
|
|
function scanl1(f, xs) {
|
2013-03-02 17:18:36 +00:00
|
|
|
return xs.ctor === "Nil" ? throwError('scanl1') : scanl(f, xs._0, xs._1);
|
2013-02-10 09:45:45 +00:00
|
|
|
}
|
|
|
|
|
2013-02-27 17:46:25 +00:00
|
|
|
function filter(pred, xs) {
|
2013-02-10 09:45:45 +00:00
|
|
|
var arr = [];
|
2013-02-20 22:39:00 +00:00
|
|
|
while (xs.ctor === "Cons") {
|
|
|
|
if (pred(xs._0)) { arr.push(xs._0); }
|
|
|
|
xs = xs._1;
|
2013-02-10 09:45:45 +00:00
|
|
|
}
|
|
|
|
return fromArray(arr);
|
|
|
|
}
|
|
|
|
|
|
|
|
function length(xs) {
|
|
|
|
var out = 0;
|
2013-02-20 22:39:00 +00:00
|
|
|
while (xs.ctor === "Cons") {
|
2013-02-10 09:45:45 +00:00
|
|
|
out += 1;
|
2013-02-20 22:39:00 +00:00
|
|
|
xs = xs._1;
|
2013-02-10 09:45:45 +00:00
|
|
|
}
|
|
|
|
return out;
|
|
|
|
}
|
|
|
|
|
2013-03-09 07:31:19 +00:00
|
|
|
function member(x, xs) {
|
|
|
|
var out = 0;
|
|
|
|
while (xs.ctor === "Cons") {
|
2013-03-10 03:02:07 +00:00
|
|
|
if (eq(x,xs._0)) return true;
|
2013-03-09 07:31:19 +00:00
|
|
|
xs = xs._1;
|
|
|
|
}
|
|
|
|
return false;
|
|
|
|
}
|
|
|
|
|
2013-02-10 09:45:45 +00:00
|
|
|
function reverse(xs) { return fromArray(toArray(xs).reverse()); }
|
|
|
|
|
2013-02-27 17:46:25 +00:00
|
|
|
function all(pred, xs) {
|
2013-02-20 22:39:00 +00:00
|
|
|
while (xs.ctor === "Cons") {
|
|
|
|
if (!pred(xs._0)) return false;
|
|
|
|
xs = xs._1;
|
2013-02-10 09:45:45 +00:00
|
|
|
}
|
|
|
|
return true;
|
|
|
|
}
|
|
|
|
|
2013-02-27 17:46:25 +00:00
|
|
|
function any(pred, xs) {
|
2013-02-20 22:39:00 +00:00
|
|
|
while (xs.ctor === "Cons") {
|
|
|
|
if (pred(xs._0)) return true;
|
|
|
|
xs = xs._1;
|
2013-02-10 09:45:45 +00:00
|
|
|
}
|
|
|
|
return false;
|
|
|
|
}
|
|
|
|
|
2013-02-27 17:46:25 +00:00
|
|
|
function zipWith(f, xs, ys) {
|
|
|
|
var arr = [];
|
|
|
|
while (xs.ctor === "Cons" && ys.ctor === "Cons") {
|
|
|
|
arr.push(A2(f, xs._0, ys._0));
|
|
|
|
xs = xs._1;
|
|
|
|
ys = ys._1;
|
2013-02-10 09:45:45 +00:00
|
|
|
}
|
2013-02-27 17:46:25 +00:00
|
|
|
return fromArray(arr);
|
2013-02-10 09:45:45 +00:00
|
|
|
}
|
|
|
|
|
2013-02-27 17:46:25 +00:00
|
|
|
function zip(xs, ys) {
|
2013-02-10 09:45:45 +00:00
|
|
|
var arr = [];
|
2013-02-20 22:39:00 +00:00
|
|
|
while (xs.ctor === "Cons" && ys.ctor === "Cons") {
|
2013-02-27 17:46:25 +00:00
|
|
|
arr.push({ ctor:'Tuple2', _0:xs._0, _1:ys._0 });
|
2013-02-20 22:39:00 +00:00
|
|
|
xs = xs._1;
|
|
|
|
ys = ys._1;
|
2013-02-10 09:45:45 +00:00
|
|
|
}
|
|
|
|
return fromArray(arr);
|
|
|
|
}
|
|
|
|
|
|
|
|
function sort(xs) {
|
|
|
|
return fromArray(toArray(xs).sort(function(a,b) { return a - b}));
|
|
|
|
}
|
|
|
|
|
2013-02-27 17:46:25 +00:00
|
|
|
function take(n, xs) {
|
2013-02-10 09:45:45 +00:00
|
|
|
var arr = [];
|
2013-02-20 22:39:00 +00:00
|
|
|
while (xs.ctor === "Cons" && n > 0) {
|
|
|
|
arr.push(xs._0);
|
|
|
|
xs = xs._1;
|
2013-02-10 09:45:45 +00:00
|
|
|
--n;
|
|
|
|
}
|
|
|
|
return fromArray(arr);
|
|
|
|
}
|
|
|
|
|
2013-02-27 17:46:25 +00:00
|
|
|
function drop(n, xs) {
|
2013-02-20 22:39:00 +00:00
|
|
|
while (xs.ctor === "Cons" && n > 0) {
|
|
|
|
xs = xs._1;
|
2013-02-10 09:45:45 +00:00
|
|
|
--n;
|
|
|
|
}
|
|
|
|
return xs;
|
|
|
|
}
|
|
|
|
|
2013-03-09 07:31:19 +00:00
|
|
|
return elm.Native.List = {
|
2013-02-27 07:26:28 +00:00
|
|
|
Nil:Nil,
|
|
|
|
Cons:Cons,
|
|
|
|
toArray:toArray,
|
|
|
|
fromArray:fromArray,
|
|
|
|
range:range,
|
|
|
|
append:append,
|
|
|
|
|
2013-02-10 09:45:45 +00:00
|
|
|
head:head,
|
|
|
|
tail:tail,
|
|
|
|
last:last,
|
|
|
|
|
2013-02-27 17:46:25 +00:00
|
|
|
map:F2(map),
|
|
|
|
foldl:F3(foldl),
|
|
|
|
foldr:F3(foldr),
|
2013-02-10 09:45:45 +00:00
|
|
|
|
2013-02-27 17:46:25 +00:00
|
|
|
foldl1:F2(foldl1),
|
|
|
|
foldr1:F2(foldr1),
|
|
|
|
scanl:F3(scanl),
|
|
|
|
scanl1:F2(scanl1),
|
|
|
|
filter:F2(filter),
|
2013-02-10 09:45:45 +00:00
|
|
|
length:length,
|
2013-03-09 07:31:19 +00:00
|
|
|
member:member,
|
2013-02-10 09:45:45 +00:00
|
|
|
reverse:reverse,
|
|
|
|
|
2013-02-27 17:46:25 +00:00
|
|
|
all:F2(all),
|
|
|
|
any:F2(any),
|
|
|
|
zipWith:F3(zipWith),
|
|
|
|
zip:F2(zip),
|
2013-02-10 09:45:45 +00:00
|
|
|
sort:sort,
|
2013-02-27 17:46:25 +00:00
|
|
|
take:F2(take),
|
|
|
|
drop:F2(drop)
|
|
|
|
};
|
|
|
|
|
2013-03-09 07:31:19 +00:00
|
|
|
};
|