hacklab/strudel
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

squeezeflip, tests for add including failing one..

Browse source
This commit is contained in:
alex 2022-04-22 09:51:44 +01:00
parent d9e3ff3256
commit 974503160d
2 changed files with 32 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
packages/core/pattern.mjs
View file

@ -263,7 +263,7 @@ export class Pattern {
_opSqueezeFlip(other, func) {
const thisPat = this;
const otherPat = reify(other);
return otherPat.fmap((a) => thisPat.fmap((b) => func(a)(b)))._squeezeJoin();
return otherPat.fmap((a) => thisPat.fmap((b) => func(b)(a)))._squeezeJoin();
}
_asNumber(silent = false) {
@ -754,6 +754,9 @@ for (const [name, op] of Object.entries(composers)) {
Pattern.prototype[name + 'Squeeze'] = function (...other) {
return op[1](this)._opSqueeze(sequence(other), op[0]);
};
Pattern.prototype[name + 'SqueezeFlip'] = function (...other) {
return op[1](this)._opSqueezeFlip(sequence(other), op[0]);
};
}
// methods of Pattern that get callable factories