Data update

Task/Text-processing-Max-licenses-in-use/NewLISP/text-processing-max-licenses-in-use-1.l

@@ -0,0 +1,18 @@
+(define (foo  , INOUT Time mxcnt cnt line times tokens a)
+  (let (handle (open "mlijobs.txt" "read"))
+    (while (setq line (read-line handle))
+      (setq tokens (parse line {[ ]+} 0))
+      ;; Match the 7 tokens.
+      (when (setq a (unify '(_ INOUT _ Time _ _ _) tokens))
+        (bind a)  ;; Assign to variables INOUT and Time.
+        (case INOUT
+          ("OUT"
+            (when (> (++ cnt) mxcnt) (setq mxcnt cnt) (setq times '()))
+            (if (= cnt mxcnt) (push Time times)))
+          ("IN" (-- cnt)))))
+    (close handle)
+    (list mxcnt times)))
+
+(foo)
+
+(99 ("2008/10/03_08:40:40" "2008/10/03_08:39:34"))

Task/Text-processing-Max-licenses-in-use/NewLISP/text-processing-max-licenses-in-use-2.l

@@ -0,0 +1,10 @@
+(define (foo  , mxcnt cnt times)
+  (let (handle (open "mlijobs.txt" "read"))
+    (while (search handle { (IN|OUT) +@ +(\S+)} true 0)
+      (case $1
+        ("OUT"
+          (when (> (++ cnt) mxcnt) (setq mxcnt cnt) (setq times '()))
+          (if (= cnt mxcnt) (push $2 times)))
+        ("IN" (-- cnt))))
+    (close handle)
+    (list mxcnt times)))