One quiz at a time

[Old Bridge]

3112

[CPR 1]

3002

[jdaw1]

2927

Second-best of the guesses up to it.

3112

Fourth-best of the guesses up to it.

3002

Third-best of the guesses up to it.

[jdaw1]

(Aside: are you flailing around or is somebody doing the logic? The guesses suggest flailing.)

[Old Bridge]

2875

[Doggett]

2902? And yes...just flailing around, but trying to apply some logic too/guess.

[jdaw1]

2875

Second. Much more cunning.

2902? And yes...just flailing around, but trying to apply some logic too/guess.

Third.

[Old Bridge]

2873

[jdaw1]

2873

Even though it is the best guess so far, less cunning than I had hoped.

[Old Bridge]

2850

[Old Bridge]

Ahh. not my turn.

I shall go to bed. We are an hour ahead of you.

[jdaw1]

I am going to bed soon as well. A few more guesses might help somebody post some logic, to lessen the flailing.

[CPR 1]

2706

[jdaw1]

2706

It being the sixth-best might seem rubbish. But it greatly narrows the search space.

[flash_uk]

2790

[jdaw1]

2790

Just in time — new best.

Good night.

[Old Bridge]

2850

[PhilW]

2585
_{(based on logic; I may be one off).}

[jdaw1]

2850

New best.

2585
_{(based on logic; I may be one off).}

Logic is over-rated, Mr. 11th-Best. I’m disappointed.

[flash_uk]

2830

[Old Bridge]

2823

[jdaw1]

2830

The book has several indexes, so the entries each need an index identifier. Word has no built-in means of knowing whether any of these have been mis-typed, so I wrote a script.

Code: Select all

' © 2017 Julian D. A. Wiseman, contactable via www.jdawiseman.com
' Copying and distribution of this file, with or without modification, are permitted in any medium without royalty
' provided the copyright notice and this notice are preserved. This file is offered as-is, without any warranty.

Sub FieldIdentifiers()
	Dim i, j, k, numDifferentIdentifiers, iIndentifierCount(1 To 100) As Integer
	Dim thisIdent, strIdentifier(1 To 100), ans As String
	Dim fld As Field
	Dim thisIdentExists As Boolean

	numDifferentIdentifiers = 0

	For Each fld In ActiveDocument.Fields
		If fld.Type = wdFieldIndexEntry Then
			i = InStr(1, fld.Code.Text, "\f", 1)
			If i = 0 Then
				MsgBox "No \f in “" & fld.Code.Text & "”", 0, "XE missing \f"
			Else
				thisIdent = Mid(fld.Code.Text, i + 3, Len(fld.Code.Text) - i - 3)
				thisIdentExists = False
				For j = 1 To numDifferentIdentifiers
					If thisIdent = strIdentifier(j) Then
						iIndentifierCount(j) = 1 + iIndentifierCount(j)
						thisIdentExists = True
						Exit For
					End If  ' thisIdent = strIdentifier(j)
				Next j
				If Not (thisIdentExists) Then
					numDifferentIdentifiers = 1 + numDifferentIdentifiers
					strIdentifier(numDifferentIdentifiers) = thisIdent
					iIndentifierCount(numDifferentIdentifiers) = 1
				End If  ' Not(thisIdentExists)
			End If	' i=0
		End If  ' wdFieldIndexEntry
	Next fld
	' Sort, not efficiently as done once and list not long
	For i = 1 To numDifferentIdentifiers - 1: For j = i + 1 To numDifferentIdentifiers
		If strIdentifier(j) < strIdentifier(i) Then
			ans = strIdentifier(j): strIdentifier(j) = strIdentifier(i): strIdentifier(i) = ans  ' ans is temp variable
			k = iIndentifierCount(j): iIndentifierCount(j) = iIndentifierCount(i): iIndentifierCount(i) = k  ' k is temp variable
		End If
	Next j: Next i
	ans = "": k = 0
	For j = 1 To numDifferentIdentifiers
		k = k + iIndentifierCount(j)
		' In next line the ‘2’ is approximate, being relative width of digit and space
		ans = ans & Space(2 * (Len(Format(iIndentifierCount(1), "#,##0")) - Len(Format(iIndentifierCount(j), "#,##0")))) _
		& Format(iIndentifierCount(j), "#,##0") & " * " & strIdentifier(j) & vbNewLine
	Next j
	ans = ans & vbNewLine & "Total = " & k
	MsgBox ans, 0, "Frequencies of \f (and subsequent) parameters in XE index entries"
End Sub  ' FieldIdentifiers

Which results in:

Mike’s turn.

Perhaps henceforth questions of the form ‘how many …?’ could have answers in the form ‘n^th-best guess’.

2823

Second-best of the guesses up to it.

[PhilW]

2585
_{(based on logic; I may be one off).}

Logic is over-rated, Mr. 11th-Best. I’m disappointed.

Me too. Stupid calculation error (mis-read/typed an 8 for a 3). At the time (of Simon's 4800 guess) we knew that the answer was >2583, and <2837 (a smaller range than you indicated), unfortunately a typo led me to <2587 instead of 2837, which was less helpful.
{Sackcloth}

[jdaw1]

(a smaller range than you indicated)

Sackcloth and ashes for me too: I realised after that I was using the easy high-yield information, but not all the information.

I can’t yet see what is the optimal guessing strategy.

[flash_uk]

I'm staying in a hotel tonight. Which chain?