Data update

Task/Playing-cards/VBScript/playing-cards-1.vb

@@ -1,66 +0,0 @@
-class playingcard
-	dim suit
-	dim pips
-end class
-
-class carddeck
-	private suitnames
-	private pipnames
-	private cardno
-	private deck(52)
-	private nTop
-	
-	sub class_initialize
-		dim suit
-		dim pips
-		suitnames = split("H,D,C,S",",")
-		pipnames = split("A,2,3,4,5,6,7,8,9,10,J,Q,K",",")
-		cardno = 0
-
-		for suit = 1 to 4
-			for pips = 1 to 13
-				set deck(cardno) = new playingcard
-				deck(cardno).suit = suitnames(suit-1)
-				deck(cardno).pips = pipnames(pips-1)
-				cardno = cardno + 1
-			next
-		next
-		nTop = 0
-	end sub
-	
-	public sub showdeck
-		dim a
-		redim a(51-nTop)
-		for i = nTop to 51
-			a(i) = deck(i).pips & deck(i).suit
-		next
-		wscript.echo join( a, ", ")
-	end sub
-	
-	public sub shuffle
-		dim r
-		randomize timer
-		for i = nTop to 51
-			r = int( rnd * ( 52 - nTop ) )
-			if r <> i then
-				objswap deck(i),deck(r)
-			end if
-		next
-	end sub
-
-	public function deal()
-		set deal = deck( nTop )
-		nTop = nTop + 1
-	end function
-
-	public property get cardsRemaining
-		cardsRemaining = 52 - nTop
-	end property
-	
-	private sub objswap(   a,   b )
-		dim tmp
-		set tmp = a
-		set a = b
-		set b = tmp
-	end sub
-end class

Task/Playing-cards/VBScript/playing-cards-2.vb

@@ -1,17 +0,0 @@
-dim pack
-set pack = new carddeck
-wscript.echo "--before shuffle"
-pack.showdeck
-pack.shuffle
-wscript.echo "--after shuffle"
-pack.showdeck
-
-dim card
-for i = 1 to 52
-	set card = pack.deal
-next
-wscript.echo "--dealt a card, it's the", card.pips, "of", card.suit
-wscript.echo "--", pack.cardsRemaining, "cards remaining"
-if pack.cardsRemaining <> 0 then
-	pack.showdeck
-end if