Create data structure for parsing Json

Author: mantasavas

practise/1 task/.vscode/launch.json

@@ -0,0 +1,44 @@
+module MyModule where
+
+import Data.List
+import Data.Char
+
+-- Cordinates Of Shot:
+
+-- {
+-- 	"coord": ["D", "7"],
+-- 	"result": "HIT",
+-- 	"prev": {
+-- 		"coord": ["A", "10"],
+-- 		"result": null,
+-- 		"prev": null
+-- 	}
+-- }
+
+-- {"coord":["D","7"],"result":"HIT","prev":{"coord":["A","10"],"result":null,"prev":null}}
+
+-- data MyBool a = MyFalse | MyTrue a
+--   deriving Show
+
+data MoveMsg = DicMsg [(String, MoveMsg)]
+              | CordList [MoveMsg] 
+              | CordValue String
+              | Exist (Maybe MoveMsg)
+  deriving Show
+
+
+-- Some examples of parsing data
+firstMove :: MoveMsg
+firstMove = DicMsg [
+    ("coord",  CordList[CordValue "A", CordValue "10"]),
+    ("result", Exist Nothing),
+    ("prev",   Exist Nothing)
+  ]
+
+secondMove :: MoveMsg
+secondMove = DicMsg [
+    ("coord",  CordList[CordValue "D", CordValue "7"]),
+    ("result",  CordValue "HIT"),
+    ("prev",    firstMove)
+  ]
+

practise/1 task/battleship.hs

@@ -174,3 +174,33 @@ fewMoves = MsgDict [
     , ("prev", firstMove)
   ]
 
+
+-- data type: Extinguisher
+-- data value: Extinguishers
+data Extinguisher = Extinguishers {
+    tipas :: Tipas
+  , talpa :: Int
+} deriving Show
+
+defaultE10r :: Extinguisher
+defaultE10r = Extinguishers {tipas = C, talpa = 5}
+
+-- It automatically generates getters and setters, so we can simply use to get value:
+-- talpa defaultE10r
+
+
+-- data List = Nil | Cons Integer List
+--   deriving Show
+
+-- constructor Cons takes two arguments:
+-- a - integer
+-- List a - because this constructor returns List a type value, it can be passed as parameter to constructor as if recursion
+-- And returns List a
+data List a = Nil | Cons a (List a)
+  deriving Show
+
+
+-- emptyList = Nil
+-- oneElList = Cons 1 emptyList
+-- twoElList = Cons 2 oneElList
+-- threeElList = Cons 3 twoElList