sumim #7001(2008/08/06 10:18 GMT) [ Smalltalk ] Rating0/0=0.00
Squeak Smalltalk で。
1 2 3 4 5
| fridayThe13ths | fridayThe13ths := (Date today to: 2013 asYear end) dates select: [:date | date dayOfMonth = 13 and: [date dayOfWeekName = #Friday]]. World findATranscript: nil. ^fridayThe13ths do: [:each | Transcript cr; show: each]; size
Rating0/0=0.00-0+
[ reply ]
sumim
#7001()
[
Smalltalk
]
Rating0/0=0.00
Squeak Smalltalk で。
| fridayThe13ths | fridayThe13ths := (Date today to: 2013 asYear end) dates select: [:date | date dayOfMonth = 13 and: [date dayOfWeekName = #Friday]]. World findATranscript: nil. ^fridayThe13ths do: [:each | Transcript cr; show: each]; sizeRating0/0=0.00-0+
[ reply ]