diff options
| -rw-r--r-- | docs/bqn.js | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/docs/bqn.js b/docs/bqn.js index f930752a..adf31c30 100644 --- a/docs/bqn.js +++ b/docs/bqn.js @@ -136,10 +136,10 @@ let lesseq = (x,w) => { let s=typeof w, t=typeof x; return +(s!==t ? s<=t : w<=x); } -let table = f => setrepr(()=>[4,table,f], (x,w) => !has(w) +let table = f => setrepr(()=>[4,f,table], (x,w) => !has(w) ? arr(x.map(e=>call(f,e)),x.sh) : arr([].concat.apply([],w.map(d=>x.map(e=>call(f,e,d)))),w.sh.concat(x.sh))); -let scan = f => setrepr(()=>[4,table,f], (x,w) => { +let scan = f => setrepr(()=>[4,f,scan], (x,w) => { if (has(w)) throw Error("`: No dyadic form"); let s=x.sh; if (!s||s.length===0) throw Error("`: 𝕩 must have rank at least 1"); |