From 4481523197f1f3908d0f00051be7c5491ad2ff29 Mon Sep 17 00:00:00 2001
From: Dimitri Lozeve <dimitri@lozeve.com>
Date: Sun, 7 Oct 2018 13:09:18 +0200
Subject: [PATCH] Phase 1 answers

---
 competition.dyalog | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 competition.dyalog

diff --git a/competition.dyalog b/competition.dyalog
new file mode 100644
index 0000000..002343e
--- /dev/null
+++ b/competition.dyalog
@@ -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⍵}
+ 
\ No newline at end of file