glen/pocomath
2
1
Fork 0
Code Issues 3 Pull Requests Projects Releases Wiki Activity

fix: Separate typed instance for each PocomathInstance #15

Merged
glen merged 3 commits from no_complex_base into main 2022-07-22 20:49:14 +00:00
Conversation 0 Commits 3 Files Changed 25 +4 -13
2 changed files with 4 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files
Showing only changes of commit cf8ad1edfc - Show all commits

12
src/complex/add.mjs
View File

@ -1,16 +1,10 @@
import {Types, numComplex} from './Types/Complex.mjs'
export {Types} from './Types/Complex.mjs'
export {Types}
export const add = {
'...Complex': [['self'], ref => addends => {
if (addends.length === 0) return {re:0, im:0}
const seed = addends.shift()
return addends.reduce((w,z) => {
/* Need a "base case" to avoid infinite self-reference loops */
if (numComplex(z) && numComplex(w)) {
return {re: w.re + z.re, im: w.im + z.im}
}
return {re: ref.self(w.re, z.re), im: ref.self(w.im, z.im)}
}, seed)
return addends.reduce((w,z) =>
({re: ref.self(w.re, z.re), im: ref.self(w.im, z.im)}), seed)
}]
}

5
src/complex/negate.mjs
View File

@ -1,10 +1,7 @@
import {Types, numComplex} from './Types/Complex.mjs'
export {Types} from './Types/Complex.mjs'
export {Types}
export const negate = {
Complex: [['self'], ref => z => {
/* need a "base case" to avoid infinite self-reference */
if (numComplex(z)) return {re: -z.re, im: -z.im}
return {re: ref.self(z.re), im: ref.self(z.im)}
}]
}