diff options
| author | Marshall Lochbaum <mwlochbaum@gmail.com> | 2021-01-22 15:16:21 -0500 |
|---|---|---|
| committer | Marshall Lochbaum <mwlochbaum@gmail.com> | 2021-01-22 15:16:21 -0500 |
| commit | 87f2dfdd057f7caefa08594dac04d0858427d72a (patch) | |
| tree | 2942fefce91c8863502aca3e0d9c423e458eb8b9 /spec | |
| parent | f31934418dadd7fd7e5ea31634a40d3e9e4edfdc (diff) | |
Fix first of empty array in reference implementations
Diffstat (limited to 'spec')
| -rw-r--r-- | spec/reference.bqn | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/spec/reference.bqn b/spec/reference.bqn index 4079b5da..ede5cfbd 100644 --- a/spec/reference.bqn +++ b/spec/reference.bqn @@ -167,6 +167,7 @@ Pick1←{ } Pickd←(∨´∘⥊IsArray¨∘⊣)◶Pick1‿{Pickd⟜𝕩¨𝕨} Pick←IsArray◶⥊‿⊢⊸Pickd +First←(0<≠)◶⟨Fill,0⊸⊑⟩∘Deshape match←{¬∘(0⊑𝕨)◶(1⊑𝕨)‿𝕩}´⟨ ⟨≠○IsArray , 0⟩ @@ -178,7 +179,7 @@ match←{¬∘(0⊑𝕨)◶(1⊑𝕨)‿𝕩}´⟨ Depth←IsArray◶0‿{1+0⌈´Depth¨⥊𝕩} -⊑ ↩ (0¨∘≢)⊸Pick ⊘ Pick +⊑ ↩ First ⊘ Pick ⥊ ↩ Deshape ⊘ Reshape ↕ ↩ Range ◶ ↩ {𝕨((𝕨𝔽𝕩)⊑𝕘){𝔽}𝕩} # Same definition, new Pick |