September 2017 Update

Task/Date-format/Scheme/date-format.ss

@@ -0,0 +1,16 @@
+(define short-date
+  (lambda (lt)
+    (strftime "%Y-%m-%d" (localtime lt))))
+
+(define long-date
+  (lambda (lt)
+    (strftime "%A, %B %d, %Y" (localtime lt))))
+
+(define main
+  (lambda (args)
+    ;; Current date
+    (let ((dt (car (gettimeofday))))
+      ;; Short style
+      (display (short-date dt))(newline)
+      ;; Long style
+      (display (long-date dt))(newline))))