Jump to content
BrainDen.com - Brain Teasers

Seveny Rollo


Aaryan
 Share

Recommended Posts

I will be scoring correct letters in the wrong position with a 0.5. In the case of multiples of the same letter only the first letter will be scored if in the incorrect position. Due to change of rules I will only take 0.5 points for each guess.

Example:

Word=APPLE

Guess=PLANE

P= +0.5 (for the first P)

L= +0.5

A= +0.5

N= +0

E= +1

Total guess score of 2.5

Guess=LLAMA

L= +0.5

L= +0 (First L already scored)

A= +0.5

M= +0

A= +0

Total guess score of 1

Guess=LADLE

L= +0 (Fourth L is correct and is the L to be scored)

A= +0.5

D= +0

L= +1

E= +1

Total guess score of 2.5

Guess=PROPS

P= +0.5 (Scores against first P in APPLE)

R= +0

O= +0

P= +0.5 (Scores against second P in APPLE)

S= +0

Total guess score of 1

Let the fun begin!

RECYCLE

CURRENT - 1.5

CASCADE - 2.0

ZOOMING - 0.0

STORAGE - 1.5

GEMMING - 1.0

MEETING - 1.5

DECAYER - 3.5

REDECAY - 4.0

CENTURY - 2.5

RECEDES - 3.5

ROOTING - 1.0

DOOMING - 0.0

REREACH - 3.0

REPEACH - 3.0

REPEATS - 2.5

REPEALS - 3.5

RESTORE - 3.0

REPLACE - 4.0

RECYCLE - 7.0

+40 Nana +9 curr3nt

Link to comment
Share on other sites

I can do the score update when I get home.

Curr, I like your new method, but why not take full credit rather than 1/2 for guesses? What do others think?

I have a word, same scoring as Curr with 1/2 for right letter in wrong spot.

???????

Edited by nana77
Link to comment
Share on other sites

CHOWDER

PRESHOW

I put the word in A1 and the guesses in A2 and so on. The put the formula in B2 and just drag the formula down as I add guesses

Also note that the macro assumes that the words have the same length...

=alt_score($A$1,A2)

Public Function alt_score(Word As String, Guess As String) As Double

Dim ret As Double

Dim Word_Letters() As String

Dim Guess_Letters() As String

Dim idx As Long, j As Long

Dim Word_Length As Long


ret = -1

If Len(Word) = Len(Guess) Then

	 ret = 0


	 Word_Length = Len(Word)

	 ReDim Word_Letters(Word_Length)

	 ReDim Guess_Letters(Word_Length)


	 For idx = 1 To Word_Length

		 Word_Letters(idx) = Mid(Word, idx, 1)

		 Guess_Letters(idx) = Mid(Guess, idx, 1)

	 Next


	 For idx = 1 To Word_Length

		 If Word_Letters(idx) = Guess_Letters(idx) Then

			 ret = ret + 1

			 Word_Letters(idx) = ""

			 Guess_Letters(idx) = ""

		 End If

	 Next


	 For idx = 1 To Word_Length

		 If Not Word_Letters(idx) = "" Then

			 For j = 1 To Word_Length

				 If Word_Letters(idx) = Guess_Letters(j) Then

					 ret = ret + 0.5

					 Guess_Letters(j) = ""

					 j = Word_Length

				 End If

			 Next

		 End If

	 Next


End If


alt_score = ret

End Function

Edited by curr3nt
Link to comment
Share on other sites

I have an excel file with word lists for each rollo game. I then have a script that uses the guesses to give me a new valid word list and tell me the most likely letter for each position. I'll then usually pick words with a couple of the most likely letter to help narrow down the list.

I had modified it to use the scoring script I gave you instead of the normal scoring.

Link to comment
Share on other sites

Thalia: 1187

WombatBreath: 992

nana77: 379

Maquis: 265

TheCube: 261

maurice: 227

curr3nt: 226

fabpig: 212

'Cat'astrophe: 194

Brainiac: 183

JDave: 179

MikeD: 137

sks: 58

Hidden G: 45

Aaryan: 37

Yodell: 25

ShadowAngel7: 15

kristmark1: 10

SMV: 10

benjer3: 5

shakingdavid: 5

Edited by nana77
Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...