Skip to content

U
uva
Commit e37f59f9 authored by Taddeüs Kroes's avatar Taddeüs Kroes
Browse files
Options

funclang series2: Added some more test for date2str.

parent b47a5c84
Show whitespace changes
Inline Side-by-side
Showing with 2 additions and 0 deletions
funclang-taddeus/series2/ass5.ml
View file @ e37f59f9
...@@ -40,6 +40,8 @@ let test_date2str d m y expect = ...@@ -40,6 +40,8 @@ let test_date2str d m y expect =
;; ;;
test_date2str 1 1 2010 "January 1st, 2010";; test_date2str 1 1 2010 "January 1st, 2010";;
test_date2str 9 2 2010 "February 9th, 2010";; test_date2str 9 2 2010 "February 9th, 2010";;
test_date2str 3 3 2011 "March 3rd, 2011";;
test_date2str 22 12 2012 "December 22nd, 2012";;
(* Sum all digits of a natural number *) (* Sum all digits of a natural number *)
let rec sum_digits n = let rec sum_digits n =
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment