[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

1 · 2 · [3] · See whole thread