#Rebol - 78#
Rebol - 78
f: func[d][system/locale/days/(until[d: d + 1 d/day * d/month = 58]d/weekday)]
Ungolfed:
f: func [d] [
system/locale/days/(
until [
d: d + 1
d/day * d/month = 58
]
d/weekday
)
]
Example usage (in Rebol console):
>> f 0001年01月01日
== "Sunday"
>> f 2100年01月01日
== "Friday"
#Rebol - 78#
f: func[d][system/locale/days/(until[d: d + 1 d/day * d/month = 58]d/weekday)]
Ungolfed:
f: func [d] [
system/locale/days/(
until [
d: d + 1
d/day * d/month = 58
]
d/weekday
)
]
Example usage (in Rebol console):
>> f 0001年01月01日
== "Sunday"
>> f 2100年01月01日
== "Friday"
Rebol - 78
f: func[d][system/locale/days/(until[d: d + 1 d/day * d/month = 58]d/weekday)]
Ungolfed:
f: func [d] [
system/locale/days/(
until [
d: d + 1
d/day * d/month = 58
]
d/weekday
)
]
Example usage (in Rebol console):
>> f 0001年01月01日
== "Sunday"
>> f 2100年01月01日
== "Friday"
#Rebol - 78#
f: func[d][system/locale/days/(until[d: d + 1 d/day * d/month = 58]d/weekday)]
Ungolfed:
f: func [d] [
system/locale/days/(
until [
d: d + 1
d/day * d/month = 58
]
d/weekday
)
]
Example usage (in Rebol console):
>> f 0001年01月01日
== "Sunday"
>> f 2100年01月01日
== "Friday"