March 2014 update

2014-04-02 16:56:35 +00:00 · 2014-04-02 16:56:35 +00:00 · a25938f123
commit a25938f123
parent 09687c4926
1846 changed files with 21876 additions and 5203 deletions
--- a/Task/MD5/Common-Lisp/md5.lisp
+++ b/Task/MD5/Common-Lisp/md5.lisp
@ -0,0 +1,14 @@
+(ql:quickload 'ironclad)
+(defun md5 (str)
+  (ironclad:byte-array-to-hex-string
+    (ironclad:digest-sequence :md5
+                              (ironclad:ascii-string-to-byte-array str))))
+(defvar *tests* '(""
+                  "a"
+                  "abc"
+                  "message digest"
+                  "abcdefghijklmnopqrstuvwxyz"
+                  "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"
+                  "12345678901234567890123456789012345678901234567890123456789012345678901234567890"))
+(dolist (msg *tests*)
+  (format T "~s: ~a~%" msg (md5 msg)))