Calendar: Difference between revisions

Content added Content deleted
(revised/clarified task & added Template:Needs-review. Also updated the ALGOL 68 code to match. BTW: μέγας κῦδος to the Tcl code for the "octubre 1582" :Europe/Madrid es_ES calendar!!!)
(→‎{{header|J}}: Updated example use to match changed requirements)
Line 165:
</pre>
=={{header|J}}==
{{Template:Needs-review}}
'''Solution:'''
<lang j>require 'dates format' NB. J6.x
Line 173 ⟶ 172:
formatCalendar=: calTitle , calBody</lang>
'''Example use:'''
<lang j> 13280 formatCalendar 1969
[Insert Snoopy here]
1969
Jan │ Feb │ Mar │ Apr │ May │ Jun
Su Mo Tu We Th Fr Sa│ Su Mo Tu We Th Fr Sa│ Su Mo Tu We Th Fr Sa│ Su Mo Tu We Th Fr Sa│ Su Mo Tu We Th Fr Sa│ Su Mo Tu We Th Fr Sa
1 2 3 4│ 1│ 1│ 1 2 3 4 5│ 1 2 3│ 1 2 3 4 5 6 7
5 6 7 8 9 10 11│ 2 3 4 5 6 7 8│ 2 3 4 5 6 7 8│ 6 7 8 9 10 11 12│ 4 5 6 7 8 9 10│ 8 9 10 11 12 13 14
12 13 14 15 16 17 18│ 9 10 11 12 13 14 15│ 9 10 11 12 13 14 15│ 13 14 15 16 17 18 19│ 11 12 13 14 15 16 17│ 15 16 17 18 19 20 21
19 20 21 22 23 24 25│ 16 17 18 19 20 21 22│ 16 17 18 19 20 21 22│ 20 21 22 23 24 25 26│ 18 19 20 21 22 23 24│ 22 23 24 25 26 27 28
26 27 28 29 30 31 │ 23 24 25 26 27 28 │ 23 24 25 26 27 28 29│ 27 28 29 30 │ 25 26 27 28 29 30 31│ 29 30
│ │ 30 31 │ │ │
─────────────────────┼─────────────────────┼─────────────────────
─────────────────────┼─────────────────────┼─────────────────────┼─────────────────────┼─────────────────────┼─────────────────────
JulApr │ AugMay │ Sep │ Oct │ Nov │ DecJun
Su Mo Tu We Th Fr Sa│ Su Mo Tu We Th Fr Sa│ Su Mo Tu We Th Fr Sa│ Su Mo Tu We Th Fr Sa│ Su Mo Tu We Th Fr Sa│ Su Mo Tu We Th Fr Sa
1 2 3 4 5│ 1 2│ 2 3│ 1 2 3 4 5 6│6 1 2 3 4│ 1│ 1 2 3 4 5 67
6 7 8 9 10 11 12│ 3 4 5 6 7 8 9│ 7 8 9 10 11 12 13│ 5 6 7 8 9 10 11│ 2 3 4 5 6 7 8│ 710│ 8 9 10 11 12 13 14
13 14 15 16 17 18 19│ 10 11 12 13 14 15 16│ 14 15 16 17 18 19 20│ 12 13 14 15 16 17 18│ 9 10 11 12 13 14 15│ 1417│ 15 16 17 18 19 20 21
20 21 22 23 24 25 26│ 17 18 19 20 21 22 23│ 21 22 23 24 25 26 27│ 19 20 21 22 23 24 25│ 16 17 18 19 20 21 22│ 2124│ 22 23 24 25 26 27 28
27 28 29 30 31 │ 24 25 26 27 28 29 30│ 28 29 30 │ 26 27 2831│ 29 30 31 │ 23 24 25 26 27 28 29│ 28 29 30 31
│ 31 │ │ │ 30 │ </lang>
─────────────────────┼─────────────────────┼─────────────────────
Jul │ Aug │ Sep
Su Mo Tu We Th Fr Sa│ Su Mo Tu We Th Fr Sa│ Su Mo Tu We Th Fr Sa
1 2 3 4 5│ 1 2│ 1 2 3 4 5 6
6 7 8 9 10 11 12│ 3 4 5 6 7 8 9│ 7 8 9 10 11 12 13
13 14 15 16 17 18 19│ 10 11 12 13 14 15 16│ 14 15 16 17 18 19 20
20 21 22 23 24 25 26│ 17 18 19 20 21 22 23│ 21 22 23 24 25 26 27
27 28 29 30 31 │ 24 25 26 27 28 29 30│ 28 29 30
│ 31 │
─────────────────────┼─────────────────────┼─────────────────────
Oct │ Nov │ Dec
Su Mo Tu We Th Fr Sa│ Su Mo Tu We Th Fr Sa│ Su Mo Tu We Th Fr Sa
1 2 3 4│ 1│ 1 2 3 4 5 6
5 6 7 8 9 10 11│ 2 3 4 5 6 7 8│ 7 8 9 10 11 12 13
12 13 14 15 16 17 18│ 9 10 11 12 13 14 15│ 14 15 16 17 18 19 20
19 20 21 22 23 24 25│ 16 17 18 19 20 21 22│ 21 22 23 24 25 26 27
26 27 28 29 30 31 │ 23 24 25 26 27 28 29│ 28 29 30 31
│ 30 │ </lang>
 
=={{header|PicoLisp}}==
Retrieved from "https://rosettacode.org/wiki/Calendar"