Difference between revisions of "Spreadsheet Assignment"
Line 563: | Line 563: | ||
=== equation: count if === | === equation: count if === | ||
+ | |||
+ | Functions <code>max_in_row</code> and <code>max_in_column</code> are provided. Each invokes <code>max_value_in_cell_list</code> which you will implement. | ||
====count_if_in_cell_list==== | ====count_if_in_cell_list==== | ||
fun count_if_in_cell_list(cells : cell list, predicate : (cell -> bool)) : int = | fun count_if_in_cell_list(cells : cell list, predicate : (cell -> bool)) : int = | ||
raise NotYetImplemented | raise NotYetImplemented | ||
+ | |||
+ | Count the number of cells that pass the specified predicate test function. | ||
====count_if_in_row (Provided)==== | ====count_if_in_row (Provided)==== | ||
fun count_if_in_row(s : sheet, row_index : int, predicate : (cell -> bool)) : int = | fun count_if_in_row(s : sheet, row_index : int, predicate : (cell -> bool)) : int = | ||
count_if_in_cell_list(row_at(s, row_index), predicate) | count_if_in_cell_list(row_at(s, row_index), predicate) | ||
+ | |||
+ | =====count_if_in_row 0 example===== | ||
+ | |||
+ | <nowiki>fun is_even(cell) = | ||
+ | case cell of | ||
+ | EMPTY => false | ||
+ | | TEXT(_) => false | ||
+ | | INTEGER(v) => (v mod 2) = 0</nowiki> | ||
+ | |||
+ | <code>count_if_in_row(hockey_spreadsheet, 0, is_even)</code> evaluates to '''0''' | ||
+ | {| class="wikitable" | ||
+ | |- style="background-color:#6b9ac4; | ||
+ | |Name | ||
+ | |Uniform Number | ||
+ | |Birth Year | ||
+ | |Games Played | ||
+ | |Goals | ||
+ | |Assists | ||
+ | |- | ||
+ | |Bobby Orr | ||
+ | |4 | ||
+ | |1948 | ||
+ | |657 | ||
+ | |270 | ||
+ | |645 | ||
+ | |- | ||
+ | |Wayne Gretzky | ||
+ | |99 | ||
+ | |1961 | ||
+ | |1487 | ||
+ | |894 | ||
+ | |1963 | ||
+ | |- | ||
+ | |Mario Lemieux | ||
+ | |66 | ||
+ | |1965 | ||
+ | |915 | ||
+ | |690 | ||
+ | |1033 | ||
+ | |} | ||
+ | =====count_if_in_row 1 example===== | ||
+ | <code>count_if_in_row(hockey_spreadsheet, 1, is_even)</code> evaluates to '''3''' | ||
+ | |||
+ | {| class="wikitable" | ||
+ | |Name | ||
+ | |Uniform Number | ||
+ | |Birth Year | ||
+ | |Games Played | ||
+ | |Goals | ||
+ | |Assists | ||
+ | |- style="background-color:#6b9ac4; | ||
+ | |Bobby Orr | ||
+ | |4 | ||
+ | |1948 | ||
+ | |657 | ||
+ | |270 | ||
+ | |645 | ||
+ | |- | ||
+ | |Wayne Gretzky4 | ||
+ | |99 | ||
+ | |1961 | ||
+ | |1487 | ||
+ | |894 | ||
+ | |1963 | ||
+ | |- | ||
+ | |Mario Lemieux | ||
+ | |66 | ||
+ | |1965 | ||
+ | |915 | ||
+ | |690 | ||
+ | |1033 | ||
+ | |} | ||
====count_if_in_column (Provided)==== | ====count_if_in_column (Provided)==== | ||
fun count_if_in_column(s : sheet, col_index : int, predicate : (cell -> bool)) : int = | fun count_if_in_column(s : sheet, col_index : int, predicate : (cell -> bool)) : int = | ||
count_if_in_cell_list(column_at(s, col_index), predicate) | count_if_in_cell_list(column_at(s, col_index), predicate) | ||
+ | |||
+ | =====count_if_in_column 3 example===== | ||
+ | <code>count_if_in_column(hockey_spreadsheet, 3, is_even)</code> evaluates to '''0''' | ||
+ | |||
+ | {| class="wikitable" | ||
+ | |Name | ||
+ | |Uniform Number | ||
+ | |Birth Year | ||
+ | |style="background-color:#6b9ac4;|Games Played | ||
+ | |Goals | ||
+ | |Assists | ||
+ | |- | ||
+ | |Bobby Orr | ||
+ | |4 | ||
+ | |1948 | ||
+ | |style="background-color:#6b9ac4;|657 | ||
+ | |270 | ||
+ | |645 | ||
+ | |- | ||
+ | |Wayne Gretzky | ||
+ | |99 | ||
+ | |1961 | ||
+ | |style="background-color:#6b9ac4;|1487 | ||
+ | |894 | ||
+ | |1963 | ||
+ | |- | ||
+ | |Mario Lemieux | ||
+ | |66 | ||
+ | |1965 | ||
+ | |style="background-color:#6b9ac4;|915 | ||
+ | |690 | ||
+ | |1033 | ||
+ | |} | ||
=Testing= | =Testing= |
Revision as of 17:01, 8 March 2023
Contents
- 1 Spreadsheet Examples
- 2 Basis Library
- 3 Code To Implement
- 4 Testing
- 5 Pledge, Acknowledgments, Citations
Spreadsheet Examples
nums
This rather simple spreadsheet is comprised entirely of ints.
1 | 2 | 3 | 4 |
10 | 20 | 30 | 40 |
grades
In this spreadsheet we can see that Joshua Bloch is rocking out the Java assignments in 425, Dan Grossman is allowing his subconscious disdain for Java to affect his ability with those assignments, and Shannon O'Ganns was failing poorly enough to seemingly resort to some sort of subversion of the grading process.
Name | Java List | SML Calendar | SML Hearts | SML Card Game | Java HOF | SML Binary Tree | SML Pattern Matching |
Max | 100 | 104 | 100 | 104 | 100 | 100 | 105 |
Joshua Bloch | 100 | 85 | 80 | 75 | 100 | 70 | 65 |
Harry Q. Bovik | 80 | 81 | 82 | 83 | 84 | 85 | 86 |
Dan Grossman | 75 | 104 | 100 | 104 | 80 | 100 | 105 |
Shannon O'Ganns | 70 | 40 | 0 | 120 | 120 | 130 | 140 |
hockey
In this spreadsheet we have the three greatest hockey players of all time with some of their stats. Although not particularly interesting from a computer science perspective, it is remarkable that Wayne Gretzky has more assists than the year of his birth.
Name | Uniform Number | Birth Year | Games Played | Goals | Assists |
Bobby Orr | 4 | 1948 | 657 | 270 | 645 |
Wayne Gretzky | 99 | 1961 | 1487 | 894 | 1963 |
Mario Lemieux | 66 | 1965 | 915 | 690 | 1033 |
Basis Library
Option
String
Int
List
Code To Implement
NOTE: For both CSV and Spreadsheet functions, you may assume that all rows will have the same number of columns.
Csv
read_csv
fun read_csv(csv:string) : string list list = raise NotYetImplemented
It is highly recommended that you use the String fields function. NOTE: fields is curried. You have been provided with an example usage of fields in string_fields_example.sml:
fun is_separator(c : char) : bool = c = #"/" val split_path = String.fields is_separator "git/425/sml/spreadsheet"
which when run will bind split_path
to ["git","425","sml","spreadsheet"]
Spreadsheet
types
datatype cell
datatype cell = EMPTY | TEXT of string | INTEGER of int
type sheet
type sheet = cell list list
sheet creation and access functions
For clarity, we will provide what select functions evaluate to for this spreadsheet:
Name | Uniform Number | Birth Year | Games Played | Goals | Assists |
Bobby Orr | 4 | 1948 | 657 | 270 | 645 |
Wayne Gretzky | 99 | 1961 | 1487 | 894 | 1963 |
Mario Lemieux | 66 | 1965 | 915 | 690 | 1033 |
create_sheet
fun create_sheet(word_lists : string list list) : sheet = raise NotYetImplemented
row_count
fun row_count(s : sheet) : int = raise NotYetImplemented
row_count(hockey_spreadsheet) example
row_count(hockey_spreadsheet)
evaluates to 4
Name | Uniform Number | Birth Year | Games Played | Goals | Assists |
Bobby Orr | 4 | 1948 | 657 | 270 | 645 |
Wayne Gretzky | 99 | 1961 | 1487 | 894 | 1963 |
Mario Lemieux | 66 | 1965 | 915 | 690 | 1033 |
column_count
fun column_count(s : sheet) : int = raise NotYetImplemented
column_count(hockey_spreadsheet)example
column_count(hockey_spreadsheet)
evaluates to 6
Name | Uniform Number | Birth Year | Games Played | Goals | Assists |
Bobby Orr | 4 | 1948 | 657 | 270 | 645 |
Wayne Gretzky | 99 | 1961 | 1487 | 894 | 1963 |
Mario Lemieux | 66 | 1965 | 915 | 690 | 1033 |
row_at
fun row_at(s : sheet, row_index : int) : cell list = raise NotYetImplemented
row_at(hockey_spreadsheet, 0) example
row_at(hockey_spreadsheet, 0)
evaluates to [TEXT("Name"), TEXT("Uniform Number"), TEXT("Birth Year"), TEXT("Games Played"), TEXT("Goals"), TEXT("Assists")]
Name | Uniform Number | Birth Year | Games Played | Goals | Assists |
Bobby Orr | 4 | 1948 | 657 | 270 | 645 |
Wayne Gretzky | 99 | 1961 | 1487 | 894 | 1963 |
Mario Lemieux | 66 | 1965 | 915 | 690 | 1033 |
row_at(hockey_spreadsheet, 1) example
row_at(hockey_spreadsheet, 1)
evaluates to [TEXT("Bobby Orr"), INTEGER(4), INTEGER(1948), INTEGER(657), INTEGER(270), INTEGER(645)]
Name | Uniform Number | Birth Year | Games Played | Goals | Assists |
Bobby Orr | 4 | 1948 | 657 | 270 | 645 |
Wayne Gretzky | 99 | 1961 | 1487 | 894 | 1963 |
Mario Lemieux | 66 | 1965 | 915 | 690 | 1033 |
row_at(hockey_spreadsheet, 2) example
row_at(hockey_spreadsheet, 2)
evaluates to [TEXT("Wayne Gretzky"), INTEGER(99), INTEGER(1961), INTEGER(1487), INTEGER(894), INTEGER(1963)]
Name | Uniform Number | Birth Year | Games Played | Goals | Assists |
Bobby Orr | 4 | 1948 | 657 | 270 | 645 |
Wayne Gretzky | 99 | 1961 | 1487 | 894 | 1963 |
Mario Lemieux | 66 | 1965 | 915 | 690 | 1033 |
row_at(hockey_spreadsheet, 3) example
row_at(hockey_spreadsheet, 3)
evaluates to [TEXT("Mario Lemieux"), INTEGER(66), INTEGER(1965), INTEGER(915), INTEGER(690), INTEGER(1033)]
Name | Uniform Number | Birth Year | Games Played | Goals | Assists |
Bobby Orr | 4 | 1948 | 657 | 270 | 645 |
Wayne Gretzky | 99 | 1961 | 1487 | 894 | 1963 |
Mario Lemieux | 66 | 1965 | 915 | 690 | 1033 |
cell_in_row_at_column_index
fun cell_in_row_at_column_index( r : cell list, col_index : int) : cell = raise NotYetImplemented
cell_at (Provided)
fun cell_at(s : sheet, row_index : int, col_index : int) : cell = cell_in_row_at_column_index(row_at(s, row_index), col_index)
cell_at(hockey_spreadsheet, 1, 2) evaluates to 1948
column_at
fun column_at(s : sheet, col_index : int) : cell list = raise NotYetImplemented
column_at(hockey_spreadsheet, 3) example
column_at(hockey_spreadsheet, 3)
evaluates to [TEXT("Games Played"), INTEGER(657), INTEGER(1487), INTEGER(915)]
Name | Uniform Number | Birth Year | Games Played | Goals | Assists |
Bobby Orr | 4 | 1948 | 657 | 270 | 645 |
Wayne Gretzky | 99 | 1961 | 1487 | 894 | 1963 |
Mario Lemieux | 66 | 1965 | 915 | 690 | 1033 |
equation: sum
Functions sum_in_row
and sum_in_column
are provided. Each invokes sum_in_cell_list
which you will implement.
sum_in_cell_list
fun sum_in_cell_list(cells : cell list) : int = raise NotYetImplemented
Sum the INTEGER cell values.
sum_in_row (Provided)
fun sum_in_row(s : sheet, row_index : int) : int = sum_in_cell_list(row_at(s, row_index))
sum_in_row 0 example
sum_in_row(hockey_spreadsheet, 0)
evaluates to 0
Name | Uniform Number | Birth Year | Games Played | Goals | Assists |
Bobby Orr | 4 | 1948 | 657 | 270 | 645 |
Wayne Gretzky | 99 | 1961 | 1487 | 894 | 1963 |
Mario Lemieux | 66 | 1965 | 915 | 690 | 1033 |
sum_in_row 1 example
sum_in_row(hockey_spreadsheet, 1)
evaluates to 3524
Name | Uniform Number | Birth Year | Games Played | Goals | Assists |
Bobby Orr | 4 | 1948 | 657 | 270 | 645 |
Wayne Gretzky | 99 | 1961 | 1487 | 894 | 1963 |
Mario Lemieux | 66 | 1965 | 915 | 690 | 1033 |
sum_in_column (Provided)
fun sum_in_column(s : sheet, column_index : int) : int = sum_in_cell_list(column_at(s, column_index))
sum_in_column 3 example
sum_in_column(hockey_spreadsheet, 3)
evaluates to 3059
Name | Uniform Number | Birth Year | Games Played | Goals | Assists |
Bobby Orr | 4 | 1948 | 657 | 270 | 645 |
Wayne Gretzky | 99 | 1961 | 1487 | 894 | 1963 |
Mario Lemieux | 66 | 1965 | 915 | 690 | 1033 |
equation: max
Functions max_in_row
and max_in_column
are provided. Each invokes max_value_in_cell_list
which you will implement.
max_value_in_cell_list
fun max_in_cell_list(cells : cell list) : int option = raise NotYetImplemented
Evaluate to SOME of the maximum the INTEGER cell, if found. Otherwise evaluate to NONE.
max_in_row (Provided)
fun max_value_in_row(s : sheet, row_index : int) : int option = max_value_in_cell_list(row_at(s, row_index))
max_in_row 0 example
max_in_row(hockey_spreadsheet, 0)
evaluates to NONE
Name | Uniform Number | Birth Year | Games Played | Goals | Assists |
Bobby Orr | 4 | 1948 | 657 | 270 | 645 |
Wayne Gretzky | 99 | 1961 | 1487 | 894 | 1963 |
Mario Lemieux | 66 | 1965 | 915 | 690 | 1033 |
max_in_row 1 example
max_in_row(hockey_spreadsheet, 1)
evaluates to SOME(1948)
Name | Uniform Number | Birth Year | Games Played | Goals | Assists |
Bobby Orr | 4 | 1948 | 657 | 270 | 645 |
Wayne Gretzky4 | 99 | 1961 | 1487 | 894 | 1963 |
Mario Lemieux | 66 | 1965 | 915 | 690 | 1033 |
max_in_column (Provided)
fun max_in_column(s : sheet, column_index : int) : int option = max_in_cell_list(column_at(s, column_index))
max_in_column 3 example
max_in_column(hockey_spreadsheet, 3)
evaluates to SOME(1487)
Name | Uniform Number | Birth Year | Games Played | Goals | Assists |
Bobby Orr | 4 | 1948 | 657 | 270 | 645 |
Wayne Gretzky | 99 | 1961 | 1487 | 894 | 1963 |
Mario Lemieux | 66 | 1965 | 915 | 690 | 1033 |
equation: count if
Functions max_in_row
and max_in_column
are provided. Each invokes max_value_in_cell_list
which you will implement.
count_if_in_cell_list
fun count_if_in_cell_list(cells : cell list, predicate : (cell -> bool)) : int = raise NotYetImplemented
Count the number of cells that pass the specified predicate test function.
count_if_in_row (Provided)
fun count_if_in_row(s : sheet, row_index : int, predicate : (cell -> bool)) : int = count_if_in_cell_list(row_at(s, row_index), predicate)
count_if_in_row 0 example
fun is_even(cell) = case cell of EMPTY => false | TEXT(_) => false | INTEGER(v) => (v mod 2) = 0
count_if_in_row(hockey_spreadsheet, 0, is_even)
evaluates to 0
Name | Uniform Number | Birth Year | Games Played | Goals | Assists |
Bobby Orr | 4 | 1948 | 657 | 270 | 645 |
Wayne Gretzky | 99 | 1961 | 1487 | 894 | 1963 |
Mario Lemieux | 66 | 1965 | 915 | 690 | 1033 |
count_if_in_row 1 example
count_if_in_row(hockey_spreadsheet, 1, is_even)
evaluates to 3
Name | Uniform Number | Birth Year | Games Played | Goals | Assists |
Bobby Orr | 4 | 1948 | 657 | 270 | 645 |
Wayne Gretzky4 | 99 | 1961 | 1487 | 894 | 1963 |
Mario Lemieux | 66 | 1965 | 915 | 690 | 1033 |
count_if_in_column (Provided)
fun count_if_in_column(s : sheet, col_index : int, predicate : (cell -> bool)) : int = count_if_in_cell_list(column_at(s, col_index), predicate)
count_if_in_column 3 example
count_if_in_column(hockey_spreadsheet, 3, is_even)
evaluates to 0
Name | Uniform Number | Birth Year | Games Played | Goals | Assists |
Bobby Orr | 4 | 1948 | 657 | 270 | 645 |
Wayne Gretzky | 99 | 1961 | 1487 | 894 | 1963 |
Mario Lemieux | 66 | 1965 | 915 | 690 | 1033 |
Testing
source folder: | src/test/sml/spreadsheet |
how to run with CM.make verbosity off: | sml -Ccm.verbose=false run_spreadsheet_testing.sml |
how to run with CM.make verbosity on: | sml run_spreadsheet_testing.sml |
note: ensure that you have removed all printing to receive credit for any assignment.
Pledge, Acknowledgments, Citations
file: | studio-spreadsheet-pledge-acknowledgments-citations.txt |
More info about the Honor Pledge