Commit386b811

committed

Computer now sometimes places 2s

1 parent16e3360 commit386b811Copy full SHA for 386b811

File tree

+14

-2

lines changed

+14

-2

lines changed

Lines changed: 12 additions & 1 deletion

Original file line number	Diff line number	Diff line change
`@@ -84,6 +84,7 @@ enumerateboard b = zip [1..] (concat b)`
`84`	`84`	`cturn:: [[Int]]->StdGen-> ([[Int]],Int)`
`85`	`85`	`cturn b g=`
`86`	`86`	`let`
	`87`	`+ r= random1or2 g`
`87`	`88`	`xs= zeroIndices b`
`88`	`89`	`upperbound=length (xs)`
`89`	`90`	`rs= randomRs (0, upperbound-1) g`
`@@ -92,7 +93,17 @@ cturn b g =`
`92`	`93`	`s=length b`
`93`	`94`	`index= mapback x s`
`94`	`95`	`in`
`95`		`- (replace2d index1 b, x)`
	`96`	`+-- Replace the random 0 with the random 1 or 2.`
	`97`	`+-- Return the updated board as well as the updated index.`
	`98`	`+ (replace2d index r b, x)`
	`99`	`+`
	`100`	`+-- Returns 1 or 2.`
	`101`	`+-- There is an 80% chance that you'll get 1.`
	`102`	`+random1or2::StdGen->Int`
	`103`	`+random1or2 g=let`
	`104`	`+ rs= randomRs (0::Int,9::Int) g`
	`105`	`+ r= rs!!0`
	`106`	`+inif r>7then2else1-- [8,9] is 20% of [0..9], so 20% chance of getting a 2.`
`96`	`107`
`97`	`108`	`-- Replace item at (row, col) with value in 2d list.`
`98`	`109`	`replace2d:: (Int,Int)->a-> [[a]]-> [[a]]`

Lines changed: 2 additions & 1 deletion

Original file line number	Diff line number	Diff line change
`@@ -35,7 +35,8 @@ Choose a direction - up, down, left or right, by entering the corresponding wasd`
`35`	`35`	`Two things will now happen.`
`36`	`36`	`One: the pieces on the board slide in the direction of your choice.`
`37`	`37`	`And two: the computer places a new piece on the board, indicated by an asterisk.`
`38`		-For example, after entering`w` for up:
	`38`	+This new piece will usually be a`1`, but sometimes you'll get a sneaky`2`.
	`39`	+For example, after entering`w` for up, you might get:
`39`	`40`
`40`	`41`	```
`41`	`42`	`. 1 . . 1*`

Comments

(0)