Data update

Task/Take-notes-on-the-command-line/PascalABC.NET/take-notes-on-the-command-line.pas

@@ -0,0 +1,11 @@
+begin
+  //Print(ParamStr(1));
+  if ParamCount = 0 then
+    System.IO.File.ReadAllText('Notes.txt').Print
+  else begin
+    System.IO.File.AppendAllText('Notes.txt',DateTime.Now.ToString);
+    var s := (1..ParamCount).Select(i -> ParamStr(i)+NewLine).JoinToString;
+    s := #9 + NewLine + s;
+    System.IO.File.AppendAllText('Notes.txt',s);
+  end;
+end.

Task/Take-notes-on-the-command-line/UNIX-Shell/take-notes-on-the-command-line-1.sh

@@ -1,8 +1,12 @@
 #
-NOTES=$HOME/notes.txt
-if [[ $# -eq 0 ]] ; then
-  [[ -r  $NOTES ]] && more $NOTES
-else
-  date >> $NOTES
-  echo "  $*" >> $NOTES
+
+if
+  declare NOTES=$HOME/notes.txt
+  (($#))
+then
+  {
+    date
+    echo "  $*"
+  } >> $NOTES
+else [[ -r  $NOTES ]] && more $NOTES
 fi