Add skeleton for solution in elm

ep0001/Solution.elm

@@ -0,0 +1,51 @@
+-- #AUTO-IMPORTED
+-- import Basics exposing (..)
+-- import List exposing ( List, (::) )
+-- import Maybe exposing ( Maybe( Just, Nothing ) )
+-- import Result exposing ( Result( Ok, Err ) )
+-- import String
+-- import Tuple
+--
+-- import Debug
+--
+-- import Platform exposing ( Program )
+-- import Platform.Cmd exposing ( Cmd, (!) )
+-- import Platform.Sub exposing ( Sub )
+
+
+module Main exposing (..)
+
+import Html exposing (text)
+import Dict exposing (..)
+import Task exposing (fail)
+
+
+type Stock
+    = Stock String Int
+
+
+library1 : List Stock
+library1 =
+    [ Stock "ABART" 20
+    , Stock "CDXEF" 50
+    , Stock "BKWRK" 25
+    , Stock "BTSQZ" 89
+    , Stock "DRTYM" 60
+    ]
+
+
+categories1 : List Char
+categories1 =
+    [ 'A'
+    , 'B'
+    , 'C'
+    , 'W'
+    ]
+
+
+stockList : List Stock -> List Char -> List ( Char, Int )
+stockList st cs =
+  ...
+
+main =
+    text (toString (stockList library1 categories1))