dimitri/apl-competition-2020
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Format solutions as functions, remove extraneous parentheses

Browse source
This commit is contained in:
Dimitri Lozeve 2020-05-08 17:11:19 +02:00
parent 8e859f4286
commit 7a73c178c2
1 changed files with 8 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

17
phase1.dyalog
View file

@ -1,17 +1,16 @@
⍝ 1: Let's Split! ⍝ 1: Let's Split!
{(0>⍺)⌽(⊂⍺↑⍵),⊂⍺↓⍵} split←(0>⊣)⌽((⊂↑),(⊂↓))
((0>⊣)⌽((⊂↑),(⊂↓)))
⍝ 2: Character Building ⍝ 2: Character Building
{(~⍵∊127+⍳64)⊂⍵} characters←{(~⍵∊127+⍳64)⊂⍵}
⍝ 3: Excel-lent Columns ⍝ 3: Excel-lent Columns
(26⊥64-⍨⎕UCS) columns←26⊥64-⍨⎕UCS
⍝ 4: Take a Leap ⍝ 4: Take a Leap
(1 3∊⍨(0+.=400 100 4∘.|⊢)) leap←1 3∊⍨(0+.=400 100 4∘.|⊢)
⍝ 5: Stepping in the Proper Direction ⍝ 5: Stepping in the Proper Direction
{(⊃⍵)+(-×-/⍵)×0,⍳|-/⍵} stepping←{(⊃⍵)+(-×-/⍵)×0,⍳|-/⍵}
⍝ 6: Please Move to the Front ⍝ 6: Please Move to the Front
{⍵[⍋⍺≠⍵]} movefront←{⍵[⍋⍺≠⍵]}
⍝ 7: See You in a Bit ⍝ 7: See You in a Bit
{f←⍸∘⌽(2∘⊥⍣¯1)⋄∧/(f⍺)∊f⍵} bits←{f←⍸∘⌽(2∘⊥⍣¯1)⋄∧/(f⍺)∊f⍵}
⍝ 8: Zigzag Numbers ⍝ 8: Zigzag Numbers
(∧/2 ¯2∊⍨2-/∘×2-/(10∘⊥⍣¯1)) zigzag←∧/2=∘|2-/∘×2-/(10∘⊥⍣¯1)