Cheryl's birthday: Difference between revisions

Content added Content deleted

Inline

@@ Line 3,171: / Line 3,171: @@
 For x = 29 To 0 Step -1 : @d(x) = Pop() : Next
-Push  Dup("ERR"), Dup("Jan"), Dup("Feb"), Dup("Mar"), Dup("Apr"), Dup("May")
+Push  "ERR", "Jan", "Feb", "Mar", "Apr", "May"
-Push  Dup("Jun"), Dup("Jul"), Dup("Aug"), Dup("Sep"), Dup("Oct"), Dup("Nov"), Dup("Dec")
+Push  "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"
 For x = 12 To 0 Step -1 : @m(x) = Pop() : Next
@@ Line 3,288: / Line 3,288: @@
 OK, 0:657</pre>
 =={{header|VBA}}==
 <syntaxhighlight lang="vb">Private Sub exclude_unique_days(w As Collection)