Slides

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

NONE
SOME(v)

String

fields NOTE: curried
size

Int

List

length
nth
map NOTE: curried
foldl or foldr NOTE: both curried

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

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

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_count(hockey_spreadsheet) evaluates to 4

column_count

fun column_count(s : sheet) : int = 
       raise NotYetImplemented

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(hockey_spreadsheet) evaluates to 6

row_at

fun row_at(s : sheet, row_index : int) : cell list = 
       raise NotYetImplemented

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, 0) evaluates to [TEXT("Name"), TEXT("Uniform Number"), TEXT("Birth Year"), TEXT("Games Played"), TEXT("Goals"), TEXT("Assists")]

row_at(hockey_spreadsheet, 1) evaluates to [TEXT("Bobby Orr"), VALUE(4), VALUE(1948), VALUE(657), VALUE(270), VALUE(645)]

row_at(hockey_spreadsheet, 2) evaluates to [TEXT("Wayne Gretzky"), VALUE(99), VALUE(1961), VALUE(1487), VALUE(894), VALUE(1963)]

row_at(hockey_spreadsheet, 3) evaluates to [TEXT("Mario Lemieux"), VALUE(66), VALUE(1965), VALUE(915), VALUE(690), VALUE(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) evaluates to [TEXT("Games Played"), VALUE(657), VALUE(1487), VALUE(915)]

sum_values_in_cell_list

fun sum_values_in_cell_list(cells : cell list) : int =
       raise NotYetImplemented

sum_values_in_row (Provided)

fun sum_values_in_row(s : sheet, row_index : int) : int =
       sum_values_in_cell_list(row_at(s, row_index))

sum_values_in_column (Provided)

fun sum_values_in_column(s : sheet, column_index : int) : int =
       sum_values_in_cell_list(column_at(s, column_index))

max_value_in_cell_list

fun max_value_in_cell_list(cells : cell list) : int option =
       raise NotYetImplemented

max_value_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_value_in_column (Provided)

fun max_value_in_column(s : sheet, column_index : int) : int option =
       max_value_in_cell_list(column_at(s, column_index))

count_if_in_cell_list

fun count_if_in_cell_list(cells : cell list, predicate : (cell -> bool)) : int = 
       raise NotYetImplemented

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

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

Spreadsheet Assignment

Contents