Return to Answer

added 52 characters in body

edited Mar 31, 2019 at 15:48

APL (Dyalog Classic), 5350 bytes

{⎕a@(⎕a⌽⍨⎕a⍳⍵)@(∪⌊-⎕a⍳⍞)⌽∪⌊.5+35+{3 5.5∘×¨15×1-2 1∘○¨○-19÷⍨⍳381○○⍵÷¯19}¨⍳38)⊢7 12⍴''}

{(⎕a⌽⍨⎕a⍳⍵)@(∪⌊.5+3 5.5∘×¨1-2 1∘○¨○-19÷⍨⍳38)⊢7 12⍴''}

⎕a@((-⎕a⍳⍞)⌽∪⌊.5+{3 5.5×1-2 1○○⍵÷¯19}¨⍳38)⊢7 12⍴''

answered Mar 31, 2019 at 15:19

{(⎕a⌽⍨⎕a⍳⍵)@(∪⌊.5+3 5.5∘×¨1-2 1∘○¨○-19÷⍨⍳38)⊢7 12⍴''}