Data update

Task/Text-processing-1/NewLISP/text-processing-1-2.l

@@ -0,0 +1,22 @@
+;;  (20.0 "1990-01-01" 1 0)
+(define (line->matrix line)
+  (letn (fields (parse line {\s+} 0)
+         day (pop fields)
+         lst)
+    (for (i 0 (- (length fields) 1) 2)
+      (push (array 4 (list (float (fields i)) day (int (fields (+ i 1))) 0))
+        lst -1))
+    lst))
+
+(setq all-readings
+  (array (* 24 (length all-lines)) 4
+         '(0.0 "2000-00-00" 0 0))
+  _ nil)
+
+(let (cnt 0)
+  (dolist (line all-lines)
+    (setq one-day (line->matrix line))
+    (dolist (reading one-day)
+      (setf (all-readings cnt) reading)
+      (++ cnt)))
+  'ok)