FP Laboratory 11 - Revision history

Beh01 at 11:30, 19 November 2024

2024-11-19T11:30:56Z

Beh01: Marked this version for translation

2024-11-19T11:25:51Z

Marked this version for translation

Beh01 at 11:25, 19 November 2024

2024-11-19T11:25:22Z

Beh01 at 10:58, 19 November 2024

2024-11-19T10:58:42Z

Beh01 at 07:28, 16 November 2023

2023-11-16T07:28:59Z

Beh01: Marked this version for translation

2023-11-15T13:24:23Z

Marked this version for translation

Beh01 at 13:22, 15 November 2023

2023-11-15T13:22:29Z

Beh01 at 13:21, 15 November 2023

2023-11-15T13:21:25Z

Beh01 at 13:18, 15 November 2023

2023-11-15T13:18:56Z

Beh01 at 12:41, 15 November 2023

2023-11-15T12:41:35Z

@@ Line 109: / Line 109: @@
 <translate>
 <!--T:22-->
-* Cerate a function <code>deleteFrom</code>, it will delete an element from the existing container from a GUI. The functions parameters will be:
+* Create a function <code>deleteFrom</code>, it will delete an element from the existing container from a GUI. The functions parameters will be:
-** first parameter will be the GUI, where we are inserting the new element;
+** first parameter will be the GUI, where we are deleting the element;
-** second parameter is the name of the component, that will be rwmoved, you can safely assume, that it will always exist;
+** second parameter is the name of the component, that will be removed, you can safely assume, that it will always exist;
 </translate>

@@ Line 108: / Line 108: @@
 <translate>
 * Cerate a function <code>deleteFrom</code>, it will delete an element from the existing container from a GUI. The functions parameters will be:
 ** first parameter will be the GUI, where we are inserting the new element;

@@ Line 118: / Line 118: @@
 <syntaxhighlight lang="Haskell" class="myDark">
-ghci> insertInto gui "Footer" (TextBox "Done" (Position (Point 0 500) 300 10) "We are done!")
+ghci> deleteFrom gui "btn_close"
 Container - My App
-        Container - Menu
+  Container - Menu
-                (0,0)[100,20] Button[btn_new]: New
+    (0,0)[100,20] Button[btn_new]: New
-                (100,0)[100,20] Button[btn_open]: Open
+    (100,0)[100,20] Button[btn_open]: Open
-                (200,0)[100,20] Button[btn_close]: Close
+  Container - Body
-        Container - Body
+    (0,20)[300,500] TextBox[textbox_1]: Some text goes here
-                (0,20)[300,500] TextBox[textbox_1]: Some text goes here
+  Container - Footer
 </syntaxhighlight>
 <div class="mw-collapsible mw-collapsed" data-collapsetext="Hide solution" data-expandtext="Show solution">
 <syntaxhighlight lang="Haskell">
-insertInto :: Component -> String -> Component -> Component
+deleteFrom :: Component -> String -> Component
-insertInto (Container cName children ) toName element
+deleteFrom (Container x child) target = Container x [deleteFrom c target |c<-child, name c /=target ]
-    | cName == toName = Container cName (children++[element])
+deleteFrom c _ = c
 </syntaxhighlight>
 </div>

@@ Line 81: / Line 81: @@
 <syntaxhighlight lang="Haskell">
 insertInto :: Component -> String -> Component -> Component
 </syntaxhighlight>

@@ Line 23: / Line 23: @@
 gui :: Component
 gui =
-   Container
+   Container "My App"
-    "My App"
+     [ Container "Menu"
          [ Button "btn_new" (Position (Point 0 0) 100 20) "New",
            Button "btn_open" (Position (Point 100 0) 100 20) "Open",

@@ Line 1: / Line 1: @@
 <translate>
-== Complex data structure ==
+== Complex data structure == <!--T:6-->
 Consider following data structure representing some kind of GUI.
 </translate>
@@ Line 16: / Line 16: @@
 <translate>
 As an example, we can use following data structure.
 </translate>
@@ Line 36: / Line 37: @@
 <translate>
 * Add the data type <code>Component</code> into the type class <code>Show</code>.
 The result for our data from previous example should be something like this.
 </translate>
@@ Line 71: / Line 74: @@
 <translate>
 * Cerate a function <code>insertInto</code>, it will insert an element into the existing container from a GUI. The functions parameters will be:
 ** first parameter will be the GUI, where we are inserting the new element;
@@ Line 106: / Line 110: @@
 <translate>
 * Extend the definition of a button in our GUI as follows.
 </translate>
@@ Line 117: / Line 122: @@
 </syntaxhighlight>
 <translate>
 Our '''onClick''' is a function, that will be fired when the button is clicked on. The parameter of this function is data describing the firing event.
 </translate>
@@ Line 128: / Line 134: @@
 </syntaxhighlight>
 <translate>
 * Create a function <code>clickOnButton</code> that will take our GUI and an event. If it is a mouse event, and the position where we have clicked is inside some of the buttons from the gui, then it evaluates the coresponding <code>onClick</code> function and the result will be produced string. In all other cases, the result will be <code>Nothing</code>.
 </translate>
@@ Line 164: / Line 171: @@
 <translate>
-== Additional exercises ==
+== Additional exercises == <!--T:14-->
 </translate>
 <translate>
 * Consider the following definition and the example of the m-ary tree.
 </translate>
@@ Line 181: / Line 189: @@
 <translate>
 * Create a function that sums all values stored in the m-ary tree.
 </translate>
@@ Line 189: / Line 198: @@
 <translate>
 * Create a function that extracts all values from the m-ary tree into a list.
 </translate>
@@ Line 197: / Line 207: @@
 <translate>
 * Create a function that counts all leaves in the m-ary tree.
 </translate>
@@ Line 204: / Line 215: @@
 <translate>
 * Create a function that finds a maximum value stored in the m-ary tree.
 </translate>
@@ Line 212: / Line 224: @@
 <translate>
 * Create a function that checks whether a given element is stored in the m-ary tree.
 </translate>
@@ Line 220: / Line 233: @@
 <translate>
 * Create a function that returns a number of elements greater than a given value.
 </translate>

@@ Line 6: / Line 6: @@
 <syntaxhighlight lang="Haskell">
 data Point = Point {column::Int,row::Int} deriving (Show)
 data Position = Position {leftTopCorner :: Point, width :: Int, height :: Int}
@@ Line 111: / Line 108: @@
 <syntaxhighlight lang="Haskell">
 ...
    | Button {name :: String, position :: Position, text :: String, onClick :: Maybe (Event -> String)}