Refactor as a namespace

This commit is contained in:
Dimitri Lozeve 2020-05-09 12:28:02 +02:00
parent bf5298b2d5
commit 2ec19672f5

View file

@ -1,3 +1,4 @@
:Namespace Phase1
⍝ 1: Let's Split! ⍝ 1: Let's Split!
split←(0>⊣)⌽((⊂↑),(⊂↓)) split←(0>⊣)⌽((⊂↑),(⊂↓))
⍝ 2: Character Building ⍝ 2: Character Building
@ -16,3 +17,4 @@
zigzag←∧/2=∘|2-/∘×2-/(10∘⊥⍣¯1) zigzag←∧/2=∘|2-/∘×2-/(10∘⊥⍣¯1)
⍝ 9: Rise and Fall ⍝ 9: Rise and Fall
risefall←{∧/(⍳∘≢≡⍋)¨(⊂((⊢⍳⌈/)↑⊢),⍵),⊂⌽((⊢⍳⌈/)↓⊢),⍵} risefall←{∧/(⍳∘≢≡⍋)¨(⊂((⊢⍳⌈/)↑⊢),⍵),⊂⌽((⊢⍳⌈/)↓⊢),⍵}
:EndNamespace