51 lines
902 B
Elm
51 lines
902 B
Elm
-- #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))
|