Rosetta Code

Day of the week: Difference between revisions

Page Discussion

Day of the week (view source)

Revision as of 19:52, 25 March 2015

209 bytes removed ,  9 years ago
→‎{{header|Logo}}
Line 1,302:
to sunday? :year :month :day
output equal? 0 day_of_week day_number :year :month :day
end
 
; Generate a list of integers from start through end, inclusive
to seq :start :end
local "start_1 make "start_1 difference :start 1
output cascade difference :end :start_1 [lput sum :start_1 # ?] []
end
 
; Put it all together to answer the question posed in the problem
print filter [sunday? ? 12 25] seqiseq 2008 2121
bye</lang>
 
Markjreed
1,480

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/93373"