aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

langs a-z

Browse source
This commit is contained in:
Ingy döt Net 2013-04-10 22:43:41 -07:00
parent db842d013d
commit d066446780
11389 changed files with 98361 additions and 1020 deletions
Download patch file Download diff file Expand all files Collapse all files

26
Task/FizzBuzz/VBScript/fizzbuzz-1.vbscript Normal file
View file

@ -0,0 +1,26 @@
'using the IF/ELSEIF ladder
function fb( n )
if n mod 15 = 0 then
fb = "FizzBuzz"
elseif n mod 5 = 0 then
fb = "Fizz"
elseif n mod 3 = 0 then
fb = "Buzz"
else
fb = n
end if
end function
'the Mexican IF
function eef( b, p1, p2 )
if b then
eef = p1
else
eef = p2
end if
end function
'using the Mexican IF
function fb2( n )
fb2 = eef( n mod 15 = 0, "FizzBuzz", eef( n mod 5 = 0, "Fizz", eef( n mod 3 = 0, "Buzz", n ) ) )
end function

9
Task/FizzBuzz/VBScript/fizzbuzz-2.vbscript Normal file
View file

@ -0,0 +1,9 @@
for i = 1 to 16
wscript.stdout.write fb(i) & " "
next
wscript.echo
for i = 1 to 16
wscript.stdout.write fb2(i) & " "
next
wscript.echo