7 lines
366 B
BQN
7 lines
366 B
BQN
in←>•FLines"input"
|
||
n←≠in
|
||
freqs←∾"0aA"+¨↕¨10‿26‿26
|
||
as←∾{(≠⌜˜↕∘≠)⊸(/○⥊)(⊣+-)⌜˜/○⥊⟜(↕≢)𝕩=in}¨freqs
|
||
•Show ≠⍷(∧´¨0⊸≤∧<⟜n¨¨)⊸/as
|
||
as2←∾{∾(≠⌜˜↕∘≠)⊸(/○⥊){(<𝕩)+(<𝕩-𝕨)×↕n}⌜˜/○⥊⟜(↕≢)𝕩=in}¨freqs
|
||
•Show ≠⍷(∧´¨0⊸≤∧<⟜n¨¨)⊸/as2
|