Refactor as a namespace

2020-05-09 12:28:02 +02:00 · 2020-05-09 12:28:02 +02:00 · 2ec19672f5
commit 2ec19672f5
parent bf5298b2d5
1 changed files with 20 additions and 18 deletions
--- a/phase1.dyalog
+++ b/phase1.dyalog
@ -1,18 +1,20 @@
- ⍝ 1: Let's Split!
- split←(0>⊣)⌽((⊂↑),(⊂↓))
- ⍝ 2: Character Building
- characters←{(~⍵∊127+⍳64)⊂⍵}
- ⍝ 3: Excel-lent Columns
- columns←26⊥64-⍨⎕UCS
- ⍝ 4: Take a Leap
- leap←1 3∊⍨(0+.=400 100 4∘.|⊢)
- ⍝ 5: Stepping in the Proper Direction
- stepping←{(⊃⍵)+(-×-/⍵)×0,⍳|-/⍵}
- ⍝ 6: Please Move to the Front
- movefront←{⍵[⍋⍺≠⍵]}
- ⍝ 7: See You in a Bit
- bits←{f←⍸∘⌽(2∘⊥⍣¯1)⋄∧/(f⍺)∊f⍵}
- ⍝ 8: Zigzag Numbers
- zigzag←∧/2=∘|2-/∘×2-/(10∘⊥⍣¯1)
- ⍝ 9: Rise and Fall
- risefall←{∧/(⍳∘≢≡⍋)¨(⊂((⊢⍳⌈/)↑⊢),⍵),⊂⌽((⊢⍳⌈/)↓⊢),⍵}
+:Namespace Phase1
+        ⍝ 1: Let's Split!
+        split←(0>⊣)⌽((⊂↑),(⊂↓))
+        ⍝ 2: Character Building
+        characters←{(~⍵∊127+⍳64)⊂⍵}
+        ⍝ 3: Excel-lent Columns
+        columns←26⊥64-⍨⎕UCS
+        ⍝ 4: Take a Leap
+        leap←1 3∊⍨(0+.=400 100 4∘.|⊢)
+        ⍝ 5: Stepping in the Proper Direction
+        stepping←{(⊃⍵)+(-×-/⍵)×0,⍳|-/⍵}
+        ⍝ 6: Please Move to the Front
+        movefront←{⍵[⍋⍺≠⍵]}
+        ⍝ 7: See You in a Bit
+        bits←{f←⍸∘⌽(2∘⊥⍣¯1)⋄∧/(f⍺)∊f⍵}
+        ⍝ 8: Zigzag Numbers
+        zigzag←∧/2=∘|2-/∘×2-/(10∘⊥⍣¯1)
+        ⍝ 9: Rise and Fall
+        risefall←{∧/(⍳∘≢≡⍋)¨(⊂((⊢⍳⌈/)↑⊢),⍵),⊂⌽((⊢⍳⌈/)↓⊢),⍵}
+:EndNamespace