Brain Teaser for a Friday Afternoon

answer: not long ;-)

under 5 minutes using 108 characters

Excluding sub/end sub, 3 lines, 110 characters, about 10 minutes.

No not heard of it before.

I agree that does sound very high.
If I was doing it with pen/paper under interview conditions I would have gone with the safe loop and if test approach.
Being able to test in real time I used a loop and switch function.

no never heard it before. haven't checked number of characters but it's 8 lines including sub and end sub lines and 2 variable declaration lines. pretty sure it's over 200 characters

edit: make that 3 lines including sub and end sub if I output to a sheet instead of the immediate window

For i = 1 To 100
Debug.Print Choose(1 - 2 * (i Mod 3 = 0) - (i Mod 5 = 0), i, "Sauce", "Duck", "DuckSauce")
Next

in the immediate window,

Please Login or Register  to view this content.

Mrs. Pope has a clever boy ...

And he even squeezed in the control variable for the Next.

For x = 1 To 100
Debug.Print IIf(x Mod 3, "", "Duck") & IIf(x Mod 5, IIf(x Mod 3, x, ""), "Sauce")
Next

Which is 105, but I can't get any lower

Must admit, If I was in an interview scenario, I'd go for a safer If test though

Great solution Andy

Are you all purposely making your code hard to see?

Shows up fine in IE9 ...

Taking advantage of Andy's Immediate window trick

For i=1 To 100:Debug.Print Choose(1-2*(i Mod 3=0)-(i Mod 5=0),i,"Sauce","Duck","DuckSauce"):Next i

being an excelian

Please Login or Register  to view this content.

Nifty, is a cheeky language switch cheating?

for(i=1;i<101;i++){console.log((i%3?'':'Duck')+(i%5?i%3?i:'':'Sauce'))}

@joseph I reckon you should get a couple of bonus points for not using a loop

http://rosettacode.org/wiki/FizzBuzz

That's pretty whimsical ...

I gave it a shot, here are the results:

Time: 2min 28sec
Lines (including sub/end sub): 19
Characters (including sub/end sub and spaces): 421

Code used (semi-hidden to allow others to try before viewing mine):

Please Login or Register  to view this content.

After I finished I took a look at the other solutions. Some really clever stuff, nice job guys!
I just created a code I felt was safe and and accurate as quickly as I could.

OK I cheated and used a formula - cell A1 copied down

=IFERROR(LOOKUP(2,1/(MOD(ROWS(A$1:A1),{3,5,15})=0),{"Duck","Sauce","DuckSauce"}),ROWS(A$1:A1))

(94 characters)

you can cheet better than that:

Formula:

Please Login or Register  to view this content.