Standard ML Mini-tutorial [1mm] (in particular SML/NJ) – Programming Languages CS442
Standard ML Mini-tutorial
(in particular SML/NJ)
Programming Languages CS442
David Toman
School of Computer Science
University of Waterloo
David Toman (University of Waterloo) Standard ML 1 / 21
Introduction
• SML (Standard Meta Language)
⇒ originally part of the LCF project (Gordon et al.)
• Industrial strength PL (SML’90, SML’97)
⇒ based formal semantics (Milner et al.)
• SML “Basis Library” (all you ever wanted)
⇒ based on advanced module system
• Quality compilers:
⇒ SML/NJ (Bell Labs)
⇒ Moscow ML
David Toman (University of Waterloo) Standard ML 2 / 21
Features
• Everything is built from expressions
⇒ functions are first class citizens
⇒ pretty much extension of our simple functional PL
• Support for structured values: lists, trees, . . .
• Strong type system
⇒ let-polymorphic functions
⇒ type inference
• Powerful module system
⇒ signatures, implementations, ADTs,. . .
• Imperative features (e.g., I/O)
David Toman (University of Waterloo) Standard ML 3 / 21
Tutorial Goals
1 Make link from our functional language to SML
2 Provide enough SML syntax and examples for A2
• How to use SML/NJ interactive environment
• How to write simple functional programs
• How to define new data types
• How to understand compiler errors
• Where to find more information
3 Show type inference in action (so we understand what’s coming)
David Toman (University of Waterloo) Standard ML 4 / 21
Getting started
• Starting it up: sml in UNIX (click somewhere in W/XP)
Example
Standard ML of New Jersey, Version 110.0.7 [CM&CMB]
–
⇒ great support in Emacs
• Notation and simple examples:
Example
– 1;
val it = 1 : int
– 2+3;
val it = 5 : int
–
⇒ I type in blue, SML replies in black
David Toman (University of Waterloo) Standard ML 5 / 21
Simple Declarations
• We can create declarations (bindings):
Example
– val x = 2*3+4;
val x = 10 : int
⇒ now x stands for 10
• and use them:
Example
– val y = x*2;
val y = 20 : int
⇒ analogue of an environment {x = 10, y = 20}
David Toman (University of Waterloo) Standard ML 6 / 21
Types of Simple Things
• there is more than integers:
Example
– 1.0;
val it = 1.0 : real
– “abc”;
val it = “abc” : string
– #”a”;
val it = #”a” : char
• and these types come with additional operations
Example
– “abc”^”def”;
val it = “abcdef” : string
David Toman (University of Waterloo) Standard ML 7 / 21
Functions
• λ-abstractions:
Example
– fn x => x+1;
val it = fn : int -> int
• functions can be “declared” and “used”:
Example
– val twice = (fn x => 2*x);
val twice = fn : int -> int
– twice y;
val it = 40 : int
⇒ what if we wanted a recursive function?
David Toman (University of Waterloo) Standard ML 8 / 21
Functions
• there is a rec construction (which almost nobody uses)
• functions are defined “explicitly” using a fun declaration:
Example
– fun fac n = if (n=0) then 1 else n*(fac (n-1));
val fac = fn : int -> int
• but more commonly using match patterns:
Example
– fun fac 0 = 1
= | fac n = n*(fac (n-1));
val fac = fn : int -> int
– fac 10;
val it = 3628800 : int
⇒ match patterns better cover all possible parameter values!
David Toman (University of Waterloo) Standard ML 9 / 21
Complex Types: Tuples
• Pairs and k -tuples:
Example
– val pair = (1,”abc”);
val pair = (1,”abc”) : int * string
– val triple = (1,true,1.0);
val triple = (1,true,1.0) : int * bool * real
• and projections:
Example
– #3(triple);
val it = 1.0 : real
– val (x,y) = pair;
val x = 1 : int
val y = “abc” : string
David Toman (University of Waterloo) Standard ML 10 / 21
Complex Types: Lists
• List construction
Example
– 1::nil;
val it = [1] : int list
– val l = [1,2,3];
val l = [1,2,3] : int list
• and operations:
Example
– hd l;
val it = 1 : int
– tl l;
val it = [2,3] : int list
– tl(tl(tl l));
val it = [] : int list
David Toman (University of Waterloo) Standard ML 11 / 21
Functions on Lists
• Function that appends two (arbitrary) lists:
Example
– fun app nil l = l
= | app (h::t) l = h::(app t l);
val app = fn : ’a list -> ’a list -> ’a list
⇒ what are the ’a types? polymorphic type variables
• And what does it do:
Example
– app [1,2,3] [4,5,6];
val it = [1,2,3,4,5,6] : int list
– app [“a”,”b”] [“c”];
val it = [“a”,”b”,”c”] : string list
⇒ the arguments must be lists of the same type
David Toman (University of Waterloo) Standard ML 12 / 21
Polymorphic Functions
• polymorphic = “universal” functions (for all types)
Example
– fun mklist x = [x];
val mklist = fn : ’a -> ’a list
– mklist 1;
val it = [1] : int list
– mklist (mklist 1);
val it = [[1]] : int list list
– fn x=> mklist (mklist x);
val it = fn : ’a -> ’a list list
– it “a”;
val it = [[“a”]] : string list list
David Toman (University of Waterloo) Standard ML 13 / 21
Higher-order Functions
• functions as parameters? the map function:
Example
– fun map f [] = []
= | map f (h::t) = (f h)::(map f t);
val map = fn : (’a -> ’b) -> ’a list -> ’b list
• what does it do?
Example
– map (fn x=> x+1) [1,2,3];
val it = [2,3,4] : int list
– map (fn x=> [x]) [1,2,3];
val it = [[1],[2],[3]] : int list list
– fn l=>map (fn x=> [x]) l;
val it = fn : ’a list -> ’a list list
David Toman (University of Waterloo) Standard ML 14 / 21
Datatypes
• what if we need more than pairs and lists
• SML provides datatypes (disjoint unions)
Example (Binary Trees)
– datatype ’a bintr = LEAF of ’a
= | NODE of ’a bintr*’a bintr;
datatype ’a bintr = LEAF of ’a
| NODE of ’a bintr * ’a bintr
⇒ this works for any number of variants
• creating a new tree:
Example
– val tree = NODE (NODE(LEAF 1,LEAF 4),LEAF 7);
val tree = NODE(NODE(LEAF 1,LEAF 4),LEAF 7) : int bintr
David Toman (University of Waterloo) Standard ML 15 / 21
Datatypes (cont.)
• functions on trees: use pattern matching again
Example
– fun addl (LEAF n) = n
= | addl (NODE(n1,n2)) = (addl n1)+(addl n2);
val addl = fn : int bintr -> int
– addl tree;
val it = 12 : int
• we can do better (a polymorphic function):
Example
– fun mapt f g (LEAF l) = (g l)
= | mapt f g (NODE(n1,n2)) =
= f (mapt f g n1) (mapt f g n2);
val mapt = fn : (’a -> ’a -> ’a) ->
(’b -> ’a) -> ’b bintr -> ’a
David Toman (University of Waterloo) Standard ML 16 / 21
Local Declarations
• local declarations let
Example
– fun addl (LEAF l) = l
= | addl (NODE(n1,n2)) =
= let val a1 = (addl n1)
= val a2 = (addl n2)
= in
= a1+a2
= end;
val addl = fn : int bintr -> int
• local (helper) function declarations:
local
David Toman (University of Waterloo) Standard ML 17 / 21
Exceptions
• what does hd nil do? 1 div 0?
Example
– 1 div 0;
uncaught exception divide by zero
raised at:
• we can have our own exceptions:
Example
– exception myex of int;
exception myex of int
– fun cf n = if (n<0) then raise (myex ~1)
= else (fac n);
val cf = fn : int -> int
– cf ~1 handle (myex n) => n;
val it = ~1 : int
David Toman (University of Waterloo) Standard ML 18 / 21
Modules
• Structures (essentially named declarations)
structure IntLT = struct
type t = int val lt = (op <) val eq = (op =)
end
⇒ access to components: IntLT.lt
• Signatures (essentially types of declarations)
signature ORDERED = sig
type t
val lt : t * t -> bool val eq : t * t -> bool
end
• Ascription (match of signature and structure)
⇒ structure strid : sigexp = strexp (transparent)
⇒ structure strid :> sigexp = strexp (opaque)
• Parametrized module: functors
David Toman (University of Waterloo) Standard ML 19 / 21
Compiler Error Messages
• incorrect base syntax:
– let x=1 in x end;
stdIn:4.1-4.7 Error: syntax error: deleting LET ID EQUAL
stdIn:4.9 Error: syntax error found at IN
• undeclared identifiers:
– foo;
stdIn:4.1 Error: unbound variable or constructor: foo
• type problems:
– [1,”foo”];
stdIn:4.1-4.10 Error: operator and operand don’t agree
operator domain: int * int list
operand: int * string list
in expression:
1 :: “foo” :: nil
David Toman (University of Waterloo) Standard ML 20 / 21
Summary and Quick Hints
• This should get you started with SML (go and try)
• Several helpful hints:
1 reading program text from file:
use “file.sml”;
2 print a string on “stdout”:
print “string-here\n”;
3 fix-up defaults for printing:
Compiler.Control.Print.printDepth := 50;
Compiler.Control.Print.printLength:= 1000;
Compiler.Control.Print.stringDepth:= 200;
4 these “GC #6.42.43.47.144.8522: (0 ms)” are harmless
⇒ unless they’re coming and coming (infinite loop)
5 more help: http://www.smlnj.org//index.html
more complete tutorial:
http://www.cs.cmu.edu/People/rwh/introsml/
David Toman (University of Waterloo) Standard ML 21 / 21