Difference between revisions of "Spreadsheet Assignment"

From CSE425S Wiki
Jump to navigation Jump to search
 
(5 intermediate revisions by the same user not shown)
Line 102: Line 102:
 
<syntaxhighlight lang="sml">
 
<syntaxhighlight lang="sml">
 
fun read_csv(csv:string) : string list list =
 
fun read_csv(csv:string) : string list list =
−
     raise NotYetImplemented
+
     raise Fail "NotYetImplemented"
 
</syntaxhighlight>
 
</syntaxhighlight>
  
Line 117: Line 117:
  
 
==Spreadsheet==
 
==Spreadsheet==
−
 
 
=== types ===
 
=== types ===
 
==== datatype cell ====
 
==== datatype cell ====
−
 
+
<syntaxhighlight lang="sml">
−
datatype cell = EMPTY | TEXT of string | INTEGER of int
+
datatype cell = EMPTY | TEXT of string | INTEGER of int
−
 
+
</syntaxhighlight>
 
==== type sheet ====
 
==== type sheet ====
−
 
+
<syntaxhighlight lang="sml">
−
type sheet = cell list list
+
type sheet = cell list list
−
 
+
</syntaxhighlight>
 
=== sheet creation and access functions ===
 
=== sheet creation and access functions ===
 
   
 
   
Line 132: Line 131:
 
{{HockeySpreadsheet}}
 
{{HockeySpreadsheet}}
 
====create_sheet====
 
====create_sheet====
−
fun create_sheet(word_lists : string list list) : sheet =
+
<syntaxhighlight lang="sml">
−
         raise NotYetImplemented
+
fun create_sheet(word_lists : string list list) : sheet =
−
 
+
         raise Fail "NotYetImplemented"
 +
</syntaxhighlight>
 
====row_count====
 
====row_count====
−
fun row_count(s : sheet) : int =
+
<syntaxhighlight lang="sml">
−
         raise NotYetImplemented
+
fun row_count(s : sheet) : int =
 +
         raise Fail "NotYetImplemented"
 +
</syntaxhighlight>
  
 
=====row_count(hockey_spreadsheet) example=====
 
=====row_count(hockey_spreadsheet) example=====
Line 144: Line 146:
 
{{HockeySpreadsheet}}
 
{{HockeySpreadsheet}}
 
====column_count====
 
====column_count====
−
fun column_count(s : sheet) : int =  
+
<syntaxhighlight lang="sml">
−
         raise NotYetImplemented
+
fun column_count(s : sheet) : int =  
 +
         raise Fail "NotYetImplemented"
 +
</syntaxhighlight>
  
 
=====column_count(hockey_spreadsheet)example=====
 
=====column_count(hockey_spreadsheet)example=====
Line 152: Line 156:
 
{{HockeySpreadsheet}}
 
{{HockeySpreadsheet}}
 
====row_at====
 
====row_at====
−
fun row_at(s : sheet, row_index : int) : cell list =  
+
<syntaxhighlight lang="sml">
−
         raise NotYetImplemented
+
fun row_at(s : sheet, row_index : int) : cell list =  
 +
         raise Fail "NotYetImplemented"
 +
</syntaxhighlight>
  
 
=====row_at(hockey_spreadsheet, 0) example=====
 
=====row_at(hockey_spreadsheet, 0) example=====
Line 292: Line 298:
  
 
====cell_in_row_at_column_index====
 
====cell_in_row_at_column_index====
−
fun cell_in_row_at_column_index( r : cell list, col_index : int) : cell =  
+
<syntaxhighlight lang="sml">
−
         raise NotYetImplemented
+
fun cell_in_row_at_column_index( r : cell list, col_index : int) : cell =  
 +
         raise Fail "NotYetImplemented"
 +
</syntaxhighlight>
  
 
====cell_at (Provided)====
 
====cell_at (Provided)====
−
fun cell_at(s : sheet, row_index : int, col_index : int) : cell =  
+
<syntaxhighlight lang="sml">
 +
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_in_row_at_column_index(row_at(s, row_index), col_index)
 +
</syntaxhighlight>
  
 
'''cell_at'''(hockey_spreadsheet, 1, 2) evaluates to '''1948'''
 
'''cell_at'''(hockey_spreadsheet, 1, 2) evaluates to '''1948'''
  
 
====column_at====
 
====column_at====
−
fun column_at(s : sheet, col_index : int) : cell list =
+
<syntaxhighlight lang="sml">
−
         raise NotYetImplemented
+
fun column_at(s : sheet, col_index : int) : cell list =
 +
         raise Fail "NotYetImplemented"
 +
</syntaxhighlight>
  
 
=====column_at(hockey_spreadsheet, 3) example=====
 
=====column_at(hockey_spreadsheet, 3) example=====
Line 342: Line 354:
  
 
====sum_in_cell_list====
 
====sum_in_cell_list====
−
fun sum_in_cell_list(cells : cell list) : int =
+
<syntaxhighlight lang="sml">
−
         raise NotYetImplemented
+
fun sum_in_cell_list(cells : cell list) : int =
 +
         raise Fail "NotYetImplemented"
 +
</syntaxhighlight>
  
 
Sum the INTEGER cell values.
 
Sum the INTEGER cell values.
  
 
====sum_in_row (Provided)====
 
====sum_in_row (Provided)====
−
fun sum_in_row(s : sheet, row_index : int) : int =
+
<syntaxhighlight lang="sml">
 +
fun sum_in_row(s : sheet, row_index : int) : int =
 
         sum_in_cell_list(row_at(s, row_index))
 
         sum_in_cell_list(row_at(s, row_index))
 +
</syntaxhighlight>
  
 
=====sum_in_row 0 example=====
 
=====sum_in_row 0 example=====
Line 417: Line 433:
  
 
====sum_in_column (Provided)====
 
====sum_in_column (Provided)====
−
fun sum_in_column(s : sheet, column_index : int) : int =
+
<syntaxhighlight lang="sml">
 +
fun sum_in_column(s : sheet, column_index : int) : int =
 
         sum_in_cell_list(column_at(s, column_index))
 
         sum_in_cell_list(column_at(s, column_index))
 +
</syntaxhighlight>
  
 
=====sum_in_column 3 example=====
 
=====sum_in_column 3 example=====
Line 456: Line 474:
 
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.
 
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.
 
====max_value_in_cell_list====
 
====max_value_in_cell_list====
−
fun max_in_cell_list(cells : cell list) : int option =
+
<syntaxhighlight lang="sml">
−
         raise NotYetImplemented
+
fun max_in_cell_list(cells : cell list) : int option =
 +
         raise Fail "NotYetImplemented"
 +
</syntaxhighlight>
  
 
Evaluate to SOME of the maximum the INTEGER cell, if found.  Otherwise evaluate to NONE.
 
Evaluate to SOME of the maximum the INTEGER cell, if found.  Otherwise evaluate to NONE.
  
 
====max_in_row (Provided)====
 
====max_in_row (Provided)====
−
fun max_value_in_row(s : sheet, row_index : int) : int option =
+
<syntaxhighlight lang="sml">
 +
fun max_value_in_row(s : sheet, row_index : int) : int option =
 
         max_value_in_cell_list(row_at(s, row_index))
 
         max_value_in_cell_list(row_at(s, row_index))
 +
</syntaxhighlight>
  
 
=====max_in_row 0 example=====
 
=====max_in_row 0 example=====
Line 531: Line 553:
  
 
====max_in_column (Provided)====
 
====max_in_column (Provided)====
−
fun max_in_column(s : sheet, column_index : int) : int option =
+
<syntaxhighlight lang="sml">
 +
fun max_in_column(s : sheet, column_index : int) : int option =
 
         max_in_cell_list(column_at(s, column_index))
 
         max_in_cell_list(column_at(s, column_index))
 +
</syntaxhighlight>
  
 
=====max_in_column 3 example=====
 
=====max_in_column 3 example=====
Line 571: Line 595:
  
 
For the examples we will use this simple function:
 
For the examples we will use this simple function:
−
<nowiki>fun is_even(cell) =  
+
 
 +
<syntaxhighlight lang="sml">
 +
fun is_even(cell) =  
 
     case cell of
 
     case cell of
 
           EMPTY => false
 
           EMPTY => false
 
     |    TEXT(_) => false
 
     |    TEXT(_) => false
−
     | INTEGER(v) => (v mod 2) = 0</nowiki>
+
     | INTEGER(v) => (v mod 2) = 0
 +
</syntaxhighlight>
  
 
====count_if_in_cell_list====
 
====count_if_in_cell_list====
 +
<syntaxhighlight lang="sml">
 
  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 Fail "NotYetImplemented"
 +
</syntaxhighlight>
  
 
Count the number of cells that pass the specified predicate test function.
 
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 =  
+
<syntaxhighlight lang="sml">
 +
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)
 +
</syntaxhighlight>
  
 
=====count_if_in_row 0 example=====
 
=====count_if_in_row 0 example=====
Line 653: Line 684:
  
 
====count_if_in_column (Provided)====
 
====count_if_in_column (Provided)====
−
fun count_if_in_column(s : sheet, col_index : int, predicate : (cell -> bool)) : int =  
+
<syntaxhighlight lang="sml">
 +
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)
 +
</syntaxhighlight>
  
 
=====count_if_in_column 1 example=====
 
=====count_if_in_column 1 example=====

Latest revision as of 19:17, 10 July 2023

Contents

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 Fail "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"</nowiki>

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 Fail "NotYetImplemented"

row_count

fun row_count(s : sheet) : int =
        raise Fail "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 Fail "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 Fail "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 Fail "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 Fail "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 Fail "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 Fail "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.

For the examples we will use this simple function: 

fun is_even(cell) = 
    case cell of
           EMPTY => false
    |    TEXT(_) => false
    | INTEGER(v) => (v mod 2) = 0

count_if_in_cell_list

 fun count_if_in_cell_list(cells : cell list, predicate : (cell -> bool)) : int = 
        raise Fail "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

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 1 example

count_if_in_column(hockey_spreadsheet, 1, is_even) evaluates to 2

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_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.

SML Error Messages

Pledge, Acknowledgments, Citations

file: studio-spreadsheet-pledge-acknowledgments-citations.txt

More info about the Honor Pledge

Retrieved from "http://classes.engineering.wustl.edu/cse425s/index.php?title=Spreadsheet_Assignment&oldid=2199"