diff options
| author | Marshall Lochbaum <mwlochbaum@gmail.com> | 2020-07-04 13:22:15 -0400 |
|---|---|---|
| committer | Marshall Lochbaum <mwlochbaum@gmail.com> | 2020-07-04 13:22:15 -0400 |
| commit | 608c9e46e0d0e77897badf9c9267fc575afe7072 (patch) | |
| tree | 0a22e636e0ba516a2fe0b531fd5637268c29bdeb /spec | |
| parent | 4666f84cd9ee71d35c025cb6f5f9a275549a6a5d (diff) | |
More primitives fully supported by dzaima/BQN
Diffstat (limited to 'spec')
| -rwxr-xr-x | spec/dzref | 19 |
1 files changed, 2 insertions, 17 deletions
@@ -1,10 +1,8 @@ #!/usr/bin/env dbqn impl β "βΆ β {π¨((π¨π½π©)βπ){π½}π©} -β β ββ(Γ·2) β (ββΓ·Λ) β§ β Γ β¨ β (+-Γ) -| β ΓβΓ β {π©-π¨Γβπ©Γ·π¨} ββ @@ -64,7 +62,6 @@ _iterate_β{ β β _rankOp_ β β _iterate_ -Λ β βΒ―1 ββ @@ -83,17 +80,6 @@ _onAxes_β{ } } -SelSubβ{ - ! IsArray π¨ - ! β§Β΄β₯IntΒ¨ π¨ - ! β§Β΄β₯ π¨ (β₯β-β§<) β π© - π¨β©π¨+(β π©)Γπ¨<0 - cβ1ΓΒ΄sβ1 Cell π© - ββ(β₯π©)Β¨(cΓπ¨)+βsβ₯βc -} -SelectβToArrayβΈ(SelSub _onAxes_ 1) -β β 0βΈSelect β Select - Takeβ{ Tβ{ ! Int π¨ @@ -129,7 +115,6 @@ Replicate β {0<β β’π¨}βΆ(β₯Λββ Repβ’)βΏ{!π¨=ββ π©βπ¨Rep β β© β β Windows β½ β Reverse β Rotate -/ β Indices β Replicate ββ @@ -235,8 +220,8 @@ ProgressiveIndexOf β {π¨ββ(βΛβOccurrenceCountπ¨βΈβ)π©} { chrsββ¨ - "!ββ§β¨|βΎβββ½β/βββββββ·β" - "Λ" + "!β§β¨βΎβββ½βββββββ·β" + "" "ββββΆ" β© nc β β Β¨chrs |
