[REBOL] Re: optimization?
From: gregg:pointillistic at: 29-Sep-2007 8:09
Hi Kai, How about this? (uses my COLLECT function, easy to work around though) day-names: func [date [date!] /local days] [ days: copy/deep system/locale/days forall days [clear at days/1 4] date/day: 1 collect name [ until [ name: pick days date/weekday date: date + 1 ; When day is back to 1, we've hit the next month date/day = 1 ] ] ] -- Gregg