Skip to main content
Commonmark migration
Source Link

#Visual Basic for Applications, 110 102 bytes#

Visual Basic for Applications, 110 102 bytes

Edit: saved eight more bytes by using split() instead of array()

while rnd>.3:?split("Red,Orange,Yellow,Green,Blue,Indigo,Violet",",")(rnd*6)+" duck":wend:?"Gray duck"

Type in the immediate window.

#Visual Basic for Applications, 110 102 bytes#

Edit: saved eight more bytes by using split() instead of array()

while rnd>.3:?split("Red,Orange,Yellow,Green,Blue,Indigo,Violet",",")(rnd*6)+" duck":wend:?"Gray duck"

Type in the immediate window.

Visual Basic for Applications, 110 102 bytes

Edit: saved eight more bytes by using split() instead of array()

while rnd>.3:?split("Red,Orange,Yellow,Green,Blue,Indigo,Violet",",")(rnd*6)+" duck":wend:?"Gray duck"

Type in the immediate window.

added 81 characters in body
Source Link
dnep
  • 311
  • 2
  • 5

#Visual Basic for Applications, 110110 102 bytes# while rnd>.3:?array("Red","Orange","Yellow","Green","Blue","Indigo","Violet")(rnd*6)+" duck":wend

Edit:?"Gray duck" saved eight more bytes by using split() instead of array()

while rnd>.3:?split("Red,Orange,Yellow,Green,Blue,Indigo,Violet",",")(rnd*6)+" duck":wend:?"Gray duck"

Type in the immediate window.

#Visual Basic for Applications, 110 bytes# while rnd>.3:?array("Red","Orange","Yellow","Green","Blue","Indigo","Violet")(rnd*6)+" duck":wend:?"Gray duck"

Type in the immediate window.

#Visual Basic for Applications, 110 102 bytes#

Edit: saved eight more bytes by using split() instead of array()

while rnd>.3:?split("Red,Orange,Yellow,Green,Blue,Indigo,Violet",",")(rnd*6)+" duck":wend:?"Gray duck"

Type in the immediate window.

Source Link
dnep
  • 311
  • 2
  • 5

#Visual Basic for Applications, 110 bytes# while rnd>.3:?array("Red","Orange","Yellow","Green","Blue","Indigo","Violet")(rnd*6)+" duck":wend:?"Gray duck"

Type in the immediate window.