Dyalog APL Problem Solving Competition - My Solutions

{(⍵=⌈\⍵)/⍵}

{(⍺⌽⎕A,' ')[⎕A⍳⍵]}

{×+/(⍺(×-)⍵)× ⌽10*⍳3}

{n ← (≢⍺)⌊(≢⍵) ⋄ s←+/(n↑⍺)≤(n↑⍵) ⋄ s,n-s}

{p←{(⍺≠⍵)⊆⍵} ⋄ ↑⊢(2⊃⍺)p¨(⊃⍺)p ⍵}
{p←≠⊆⊢ ⋄ ↑⊢(2⊃⍺)p¨(⊃⍺)p ⍵}

{{(≢⍵)-1}⌸'ACGT',⍵}

{+/⍺≠⍵}
⍝ or
(+/⊣≠⊢)

{⎕IO ← 0 ⋄ run←⍳⍵×2 ⋄ (2|run)/run}
{run←⍳2×⍵ ⋄ (2|run)/run}
{⍸2|⍳2×⍵}

{100×(+/65≤⍵)÷≢⍵}

{≢(' '≠⍵)⊆'',⍵}
{≢(' '≠⍵)⊆,⍵}

{m ← (1 ¯1 0)[('()'⍳' ',⍵)] ⋄ ∧/0=(+/⊃¯1={ ⍺, ⍺ + ⍵}/m)(+/m)}

{m ← (1 ¯1 0)['()'⍳' ',⍵] ⋄ ∧/0=(+/¯1=+\m)(+/m)}

{m ← (1 ¯1 0)['()'⍳' ',⍵] ⋄ ^/(0≤+\m)∧(0=+/m)}

∘.=⍨⍳

{⌈/,⍵-⌊/,⍵}

(⌈/-⌊/),

{(0≠1|⍵)/⍵}

∘.×⍨⍳

{r←,{⍬(⊣⍣(⊃⍺≠0))(+/⍵÷≢⍵)}⌺⍺⊢⍵ ⋄ (r≠0)/r}