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

Phase 1 answers

Browse source
This commit is contained in:
Dimitri Lozeve 2018-10-07 13:09:18 +02:00
parent 8f628c237e
commit 4481523197
1 changed files with 11 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

11
competition.dyalog Normal file
View file

@ -0,0 +1,11 @@
{⍴∪⌈\⍵}
(⌊,(⊣-⌊))
{{⍺,⊂(≢⍵)⍴'*'}⌸(,⊃∘.+/⍳¨⍵,1)-1}
{signs←'Dog' 'Rooster' 'Monkey' 'Goat' 'Horse' 'Snake' 'Dragon' 'Rabbit' 'Tiger' 'Ox' 'Rat' 'Pig'⋄((2020-⍵)⍴signs)[2019-⍵+⍵<0]}
{dates←20 19 21 20 21 21 23 23 23 23 22 22⋄zodiac←'Capricorn' 'Aquarius' 'Pisces' 'Aries' 'Taurus' 'Gemini' 'Cancer' 'Leo' 'Virgo' 'Libra' 'Scorpio' 'Sagittarius'⋄zodiac[⍵[1]+⍵[2]≥dates[⍵[1]]]}
({((⍴⍵)⍴1 0)≡'<>'⍷⍵}('<>'∩⍨⊢))
{(-2×⍺)↓((|⍺)⍴0),⍵,(|⍺)⍴0}
{(∧/⍺∊⍳⍴⍴⍵)∧(∧/(⍳⌈/⍺,0)∊⍺)∧(≢⍺)=⍴⍴⍵}
{×⊃(0≠⍺-⍵)/⍺-⍵}
{f←((⊂⍋)⌷⊢)(,~∘' ')⋄(f⍺)≡f⍵}