all tasks

2013-04-11 01:07:29 -07:00 · 2013-04-11 01:07:29 -07:00 · 68f8f3e56b
commit 68f8f3e56b
parent b83f433714
14735 changed files with 178959 additions and 0 deletions
--- a/Task/Take-notes-on-the-command-line/Clojure/take-notes-on-the-command-line.clj
+++ b/Task/Take-notes-on-the-command-line/Clojure/take-notes-on-the-command-line.clj
@ -0,0 +1,13 @@
+(ns rosettacode.notes
+  (:use [clojure.string :only [join]]))
+
+(defn notes [notes]
+  (if (seq notes)
+    (spit
+     "NOTES.txt"
+     (str (java.util.Date.) "\n" "\t"
+          (join " " notes) "\n")
+     :append true)
+    (println (slurp "NOTES.txt"))))
+
+(notes *command-line-args*)