Comment detail

年間カレンダー (Nested Flatten)
ひたすらコンパクトさ目指して、32進表記とか。
   cal 2008
uv12345 6789abc defghij klmnopq 
rstuv12 3456789 abcdefg hijklmn 
opqrst1 2345678 9abcdef ghijklm 
nopqrst uv12345 6789abc defghij 
klmnopq rstu123 456789a bcdefgh 
ijklmno pqrstuv 1234567 89abcde 
fghijkl mnopqrs tu12345 6789abc 
defghij klmnopq rstuv12 3456789 
abcdefg hijklmn opqrstu v123456 
789abcd efghijk lmnopqr stu1234 
56789ab cdefghi jklmnop qrstuv1 
2345678 9abcdef ghijklm nopqrst 
u123456 789abcd efghijk lmnopqr 
stuv123 456789a bcdefgh ijklmno 
1
2
3
load 'dates'
n32=:{&' 123456789abcdefghijklmnopqrstuv'
cal=:3 :'14 32$,,.&'' ''_7[\n32"0[,2}."1 todate((todayno-weekday)y,1 1)+i.400'

全部で365日をこえてしまってまっているようですが…

前にも後ろにもはみ出しています。「年間」カレンダーとはよべないかも
しれません。4クールカレンダーかな。
もうすこしカレンダーらしくなるように考えてみます。

Index

Feed

Other

Link

Pathtraq

loading...