FP Laboratory 6 - Revision history

Beh01: Marked this version for translation

2023-10-26T08:02:10Z

Marked this version for translation

2023-08-21T08:02:38Z

Additional exercises

2023-08-02T12:01:05Z

2021-10-20T10:14:05Z

Marked this version for translation

2021-10-20T10:12:14Z

2021-09-22T13:49:55Z

2021-09-22T13:43:27Z

2020-10-16T10:39:18Z

Complex function - Huffman Codes

2020-10-14T12:15:12Z

2020-10-09T12:30:07Z

Complex function - Huffman Codes

@@ Line 1: / Line 1: @@
 <translate>
-== Operators ==  <!--T:1-->
+== Operators == <!--T:1-->
 *Define following functions that performs corresponding logic operations: <code>not', and', or', nand', xor', impl', equ'</code>
 *Define the 'standard' priority for all these functions, if they are used as operators.
@@ Line 123: / Line 123: @@
 <translate>
-== Additional exercises ==
+== Additional exercises == <!--T:4-->
 * Create a function that divides a list of elements into the list lists using a separator.
 </translate>

@@ Line 124: / Line 124: @@
 <translate>
 == Additional exercises ==
-* Create the function that divides a list of elements into the list lists using a separator.
+* Create a function that divides a list of elements into the list lists using a separator.
 </translate>

← Older revision		Revision as of 12:01, 2 August 2023
Line 121:		Line 121:
	</div>		</div>
	<div style="clear:both"></div>		<div style="clear:both"></div>
		+
		+	<translate>
		+	== Additional exercises ==
		+	* Create the function that divides a list of elements into the list lists using a separator.
		+	</translate>
		+
		+	<syntaxhighlight lang="Haskell">splitByElement :: Eq a => [a] -> a -> [[a]]</syntaxhighlight>
		+	<syntaxhighlight lang="Haskell" class="myDark">
		+	*Main> splitByElement "I love functional programming!" ' '
		+	["I","love","functional","programming!"]
		+	*Main> splitByElement [1,2,1,2,3,4,5,5,6,4,1,2,0,1,4] 1
		+	[[2],[2,3,4,5,5,6,4],[2,0],[4]]
		+	*Main> splitByElement [1,2,1,2,3,4,5,5,6,4,1,2,0,1,4] 5
		+	[[1,2,1,2,3,4],[6,4,1,2,0,1,4]]
		+	</syntaxhighlight>

@@ Line 1: / Line 1: @@
 <translate>
-== Operators ==
+== Operators ==  <!--T:1-->
 *Define following functions that performs corresponding logic operations: <code>not', and', or', nand', xor', impl', equ'</code>
 *Define the 'standard' priority for all these functions, if they are used as operators.
@@ Line 61: / Line 61: @@
 <translate>
 *Extend the previously defined function to accept any number of variables (the number of variables will be given as a first parameter).
 </translate>
@@ Line 92: / Line 93: @@
 <translate>
-== Complex function - Huffman Codes ==
+== Complex function - Huffman Codes == <!--T:3-->
 *Create a function that will compute [https://en.wikipedia.org/wiki/Huffman_coding Huffman codes] for a given list of characters and their frequencies.
 </translate>

@@ Line 1: / Line 1: @@
 == Operators ==
 *Define following functions that performs corresponding logic operations: <code>not', and', or', nand', xor', impl', equ'</code>
 *Define the 'standard' priority for all these functions, if they are used as operators.
 *Create a function that prints the truth table of a given logical expression for two variables.
 <syntaxhighlight lang="Haskell">table :: (Bool -> Bool -> Bool) -> IO ()</syntaxhighlight>
 <syntaxhighlight lang="Haskell" class="myDark">
@@ Line 57: / Line 60: @@
 <div style="clear:both"></div>
 *Extend the previously defined function to accept any number of variables (the number of variables will be given as a first parameter).
 <syntaxhighlight lang="Haskell">tablen :: Int -> ([Bool] -> Bool) -> IO ()</syntaxhighlight>
 <syntaxhighlight lang="Haskell" class="myDark">
@@ Line 85: / Line 91: @@
 <div style="clear:both"></div>
+<translate>
 == Complex function - Huffman Codes ==
-*Create a function that will compute [https://en.wikipedia.org/wiki/Huffman_coding Huffman codes] for a given list of characters and their frequencies. <div style="float: right"> [[File:Video logo.png|80px|link=https://youtu.be/HWYQZtbxMhc]]</div>
+<div style="float: right"> [[File:Video logo.png|80px|link=https://youtu.be/HWYQZtbxMhc]]</div>
 <syntaxhighlight lang="Haskell">huffman :: [(Char, Int)] -> [(Char, String)]</syntaxhighlight>
 <syntaxhighlight lang="Haskell" class="myDark">

@@ Line 6: / Line 6: @@
 <syntaxhighlight lang="Haskell" class="myDark">
 table (\a b -> (and' a (or' a b)))
-True True True
+True  True  True
-True False True
+True  False True
-False True False
+False True  False
 False False False
 </syntaxhighlight>
@@ Line 46: / Line 46: @@
 equ' x y = x == y
 infixl 7 `equ'`
 </syntaxhighlight>
 </div>

@@ Line 89: / Line 89: @@
 <div class="mw-collapsible mw-collapsed" data-collapsetext="Hide solution" data-expandtext="Show solution">
 <syntaxhighlight lang="Haskell">
 huffman :: [(Char, Int)] -> [(Char, String)]
 huffman input =