Update all new Tasks

2015-02-20 09:02:09 -05:00 · 2015-02-20 09:02:09 -05:00 · 91df62d461
commit 91df62d461
parent 00a190b0a6
5697 changed files with 93386 additions and 804 deletions
--- a/Task/Calendar---for-REAL-programmers/PicoLisp/calendar---for-real-programmers.l
+++ b/Task/Calendar---for-REAL-programmers/PicoLisp/calendar---for-real-programmers.l
@ -0,0 +1,14 @@
+(DE CAL (YEAR)
+   (PRINL "====== " YEAR " ======")
+   (FOR DAT (RANGE (DATE YEAR 1 1) (DATE YEAR 12 31))
+      (LET D (DATE DAT)
+         (TAB (3 3 4 8)
+            (WHEN (= 1 (CADDR D))
+               (GET `(INTERN (PACK (MAPCAR CHAR (42 77 111 110)))) (CADR D)) )
+            (CADDR D)
+            (DAY DAT `(INTERN (PACK (MAPCAR CHAR (42 68 97 121)))))
+            (WHEN (=0 (% (INC DAT) 7))
+               (PACK (CHAR 87) "EEk " (WEEK DAT)) ) ) ) ) )
+
+(CAL 1969)
+(BYE)