3 ms·

okay so it's not really smaller because it uses UTF8 also it relies on order of operations to get rid of the parens around ⍵≡'' but us←{('_'@(1+⍸2{(⍺≡⊃K)∧⍵≡'

okay so it's not really smaller because it uses UTF8 also it relies on order of operations to get rid of the parens around ⍵≡'*' but us←{('_'@(1+⍸2{(⍺≡⊃K)∧⍵≡'*'}/⍵))⍵} is one(1) character shorter.

rak1507 5y ago
⍵≡'*' should be ⍵≡,'*' like in the original k us←⊃,⍥⊆2{(⍺≡⊃K)∧⍵≡,'*':,'_'⋄⍵}/⊢ is shorter anyway
- geocar 5y ago
  us←{'_'@{¯1⌽⍵⍷⍨(⊂⊃K),'*'}⍵}
  - rak1507 5y ago
    Ah, ⍷, clever, don't even need the outer {...⍵}, us←'_'@{¯1⌽⍵⍷⍨(⊂⊃K),'*'}
    - geocar 5y ago
      Yes! You could also do: ⌽'*',⊂⊃K to save another character. I don't know if that's "better" though.
      - rak1507 5y ago
        Or alternatively '*',⍨⊂⊃K which I think I prefer over ⌽, but neither seem that 'better' in my mind anyway.
wanderer2323 5y ago
Is this the same language or a different one?
- rak1507 5y ago
  This is APL, k is a descendant of APL.