7 lines
231 B
Text
7 lines
231 B
Text
get_weekday=: {{ 'Y M D'=. y
|
|
Y0=. todayno Y,1 1
|
|
Y1=. todayno 1+Y,0 0
|
|
aday=. M{_,1+7|1++/\.>.//./}.|:todate Y0+i.Y1-Y0
|
|
dday=. 7|2 5 4 6+/ .*1,4 100 400|/Y
|
|
'day',~;(7|D+dday-aday){;:'Sun Mon Tues Wednes Thurs Fri Satur'
|
|
}}
|