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

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

30
Task/Old-lady-swallowed-a-fly/VBScript/old-lady-swallowed-a-fly.vb Normal file
View file

@ -0,0 +1,30 @@
a=array( _
array("fly",""),_
array("spider","That wiggled and jiggled and tickled inside her"), _
array("bird","How absurd, to swallow a bird"), _
array("cat","Imagine that. She swallowed a cat"), _
array("dog","What a hog to swallow a dog"), _
array("goat","She just opened her throat and swallowed that goat"),_
array("cow","I don't know how she swallowed that cow"), _
array("horse","She's dead of course...")_
)
b1="I don't know why she swallowed the fly." & vbcrlf &"Perhaps she'll die."& vbcrlf
b2="There was an old lady who swallowed a @ani@."
b3="She swallowed the @ani@ to catch the @pani@."
sub print(s): wscript.stdout.write(s) & vbcrlf : end sub
for i=0 to ubound(a)
ani=a(i)(0)
print replace(b2,"@ani@",ani)
print a(i)(1)
if i=ubound(a) then exit for 'horse
for j= i-1 to 0 step -1
oldani=ani
ani=a(j)(0)
print replace(replace(b3,"@ani@",oldani),"@pani@",ani)
if j=1 then print a(1)(1) ' spider
next
print b1
next