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

Solve problem 9

Browse source
This commit is contained in:
Dimitri Lozeve 2020-05-09 12:15:04 +02:00
parent 32739f9edf
commit bf5298b2d5
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
phase1.dyalog
View file

@ -14,3 +14,5 @@
bits←{f←⍸∘⌽(2∘⊥⍣¯1)⋄∧/(f⍺)∊f⍵} bits←{f←⍸∘⌽(2∘⊥⍣¯1)⋄∧/(f⍺)∊f⍵}
⍝ 8: Zigzag Numbers ⍝ 8: Zigzag Numbers
zigzag←∧/2=∘|2-/∘×2-/(10∘⊥⍣¯1) zigzag←∧/2=∘|2-/∘×2-/(10∘⊥⍣¯1)
⍝ 9: Rise and Fall
risefall←{∧/(⍳∘≢≡⍋)¨(⊂((⊢⍳⌈/)↑⊢),⍵),⊂⌽((⊢⍳⌈/)↓⊢),⍵}