mirror of
https://github.com/mdgriffith/elm-optimize-level-2.git
synced 2024-10-26 12:21:10 +03:00
Merge pull request #77 from jfmengels/map-n-replacements
Add replacements for List.mapN functions
This commit is contained in:
commit
a2aaa149fd
10
src/replacements/list/_List_map2.js
Normal file
10
src/replacements/list/_List_map2.js
Normal file
@ -0,0 +1,10 @@
|
||||
var _List_map2 = F3(function(f, xs, ys) {
|
||||
var tmp = _List_Cons(undefined, _List_Nil);
|
||||
var end = tmp;
|
||||
for (; xs.b && ys.b; xs = xs.b, ys = ys.b) {
|
||||
var next = _List_Cons(A2(f, xs.a, ys.a), _List_Nil);
|
||||
end.b = next;
|
||||
end = next;
|
||||
}
|
||||
return tmp.b;
|
||||
});
|
10
src/replacements/list/_List_map3.js
Normal file
10
src/replacements/list/_List_map3.js
Normal file
@ -0,0 +1,10 @@
|
||||
var _List_map3 = F4(function(f, xs, ys, zs) {
|
||||
var tmp = _List_Cons(undefined, _List_Nil);
|
||||
var end = tmp;
|
||||
for (; xs.b && ys.b && zs.b; xs = xs.b, ys = ys.b, zs = zs.b) {
|
||||
var next = _List_Cons(A3(f, xs.a, ys.a, zs.a), _List_Nil);
|
||||
end.b = next;
|
||||
end = next;
|
||||
}
|
||||
return tmp.b;
|
||||
});
|
10
src/replacements/list/_List_map4.js
Normal file
10
src/replacements/list/_List_map4.js
Normal file
@ -0,0 +1,10 @@
|
||||
var _List_map4 = F5(function(f, ws, xs, ys, zs) {
|
||||
var tmp = _List_Cons(undefined, _List_Nil);
|
||||
var end = tmp;
|
||||
for (; ws.b && xs.b && ys.b && zs.b; ws = ws.b, xs = xs.b, ys = ys.b, zs = zs.b) {
|
||||
var next = _List_Cons(A4(f, ws.a, xs.a, ys.a, zs.a), _List_Nil);
|
||||
end.b = next;
|
||||
end = next;
|
||||
}
|
||||
return tmp.b;
|
||||
});
|
10
src/replacements/list/_List_map5.js
Normal file
10
src/replacements/list/_List_map5.js
Normal file
@ -0,0 +1,10 @@
|
||||
var _List_map5 = F6(function(f, vs, ws, xs, ys, zs) {
|
||||
var tmp = _List_Cons(undefined, _List_Nil);
|
||||
var end = tmp;
|
||||
for (; vs.b && ws.b && xs.b && ys.b && zs.b; vs = vs.b, ws = ws.b, xs = xs.b, ys = ys.b, zs = zs.b) {
|
||||
var next = _List_Cons(A5(f, vs.a, ws.a, xs.a, ys.a, zs.a), _List_Nil);
|
||||
end.b = next;
|
||||
end = next;
|
||||
}
|
||||
return tmp.b;
|
||||
});
|
Loading…
Reference in New Issue
Block a user