Refactor as a namespace
This commit is contained in:
parent
bf5298b2d5
commit
2ec19672f5
1 changed files with 20 additions and 18 deletions
|
@ -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
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue