Implement Elm List functions reverse, member and any

And add tests for these functions.

implement/elm-fullstack/ElmEngine/evaluate-elm-program/src/ElmInteractive.elm

@@ -298,7 +298,9 @@ elmCoreModulesTexts =
 module List exposing (..)
 
 
-import Char exposing (Char)
+cons : a -> List a -> List a
+cons element list =
+    PineKernel.listCons element list
 
 
 foldl : (a -> b -> b) -> b -> List a -> b
@@ -316,6 +318,30 @@ length xs =
     foldl (\\_ i -> i + 1) 0 xs
 
 
+reverse : List a -> List a
+reverse list =
+    foldl cons [] list
+
+
+member : a -> List a -> Bool
+member x xs =
+    any (\\a -> a == x) xs
+
+
+any : (a -> Bool) -> List a -> Bool
+any isOkay list =
+    case list of
+        [] ->
+            False
+
+        next :: xs ->
+            if isOkay next then
+                True
+
+            else
+                any isOkay xs
+
+
 drop : Int -> List a -> List a
 drop n list =
     if n <= 0 then

implement/elm-fullstack/ElmEngine/evaluate-elm-program/src/Pine.elm

@@ -230,6 +230,21 @@ evaluatePineApplication context application =
                         "PineKernel.listTail" ->
                             functionExpectingOneArgumentOfTypeList (List.tail >> Maybe.withDefault [] >> PineList)
 
+                        "PineKernel.listCons" ->
+                            evaluatePineApplicationExpectingExactlyTwoArguments
+                                { mapArg0 = evaluatePineExpression context
+                                , mapArg1 = evaluatePineExpression context
+                                , apply =
+                                    \leftValue rightValue ->
+                                        case rightValue of
+                                            PineList rightList ->
+                                                Ok (PineList (leftValue :: rightList))
+
+                                            _ ->
+                                                Err "Right operand for listCons is not a list."
+                                }
+                                application.arguments
+
                         "String.fromInt" ->
                             case application.arguments of
                                 [ argument ] ->

implement/test-elm-fullstack/elm-interactive-scenarios/elm-list-core-functions/steps/0/expected-value

@@ -0,0 +1 @@
+["c","b","a"]

implement/test-elm-fullstack/elm-interactive-scenarios/elm-list-core-functions/steps/0/submission

@@ -0,0 +1 @@
+List.reverse  [ "a", "b", "c" ]

implement/test-elm-fullstack/elm-interactive-scenarios/elm-list-core-functions/steps/1/expected-value

@@ -0,0 +1 @@
+[False,True,False]

implement/test-elm-fullstack/elm-interactive-scenarios/elm-list-core-functions/steps/1/submission

@@ -0,0 +1 @@
+[ List.member "a" [ "ab", "ba" ], List.member "hello" [ "test", "hello" ], List.member True [ False ] ]