All about flooble | fun stuff | Get a free chatterbox | Free JavaScript | Avatars
 perplexus dot info

 Seven numbers for seven words (Posted on 2015-11-02)
7875 90 19 720 19 7875 1800

The above seven numbers represent seven words, the last word being the longest.

The numbers represent the product of the numerical values of words' letters: e.g. LOVE would be represented by 19800 (12*15*22*5).

What is the hidden message?

 See The Solution Submitted by Ady TZIDON No Rating

Comments: ( Back to comment list | You must be logged in to post comments.)
 computer assisted solution Comment 1 of 1
1  you

2  are
2  area
2  baccae
2  cafe
2  cob
2  ear
2  er
2  era
2  face
2  oaf
2  of
2  re

3  aas
3  as

4  aided
4  ardeb
4  babied
4  balboa
4  barde
4  bared
4  beard
4  blob
4  box
4  brat
4  bred
4  capo
4  chafe
4  chef
4  cop
4  debar
4  decal
4  died
4  dit
4  dita
4  dol
4  ell
4  fable
4  foh
4  haji
4  hare
4  hear
4  her
4  laced
4  leal
4  old
4  pie
4  rabat
4  rhea
4  talc

5  aas
5  as

6  you

7  baccate
7  baffy
7  bite
7  bole
7  celeb
7  deer
7  deface
7  dere
7  dray
7  dree
7  dry
7  eared
7  echo
7  exec
7  facet
7  feel
7  feod
7  flay
7  flee
7  fly
7  lobe
7  oft
7  oho
7  ooh
7  rate
7  reata
7  rebbe
7  rede
7  reed
7  ret
7  tare
7  tear
7  yard

The above is the sorted output from

DefDbl A-Z
Dim crlf\$, vlu As Variant

Form1.Visible = True

Text1.Text = ""
crlf = Chr\$(13) + Chr\$(10)

vlu = Array(0, 7875, 90, 19, 720, 19, 7875, 1800)

Open "\words\words.txt" For Input As #1

Do
Line Input #1, l\$
prod = 1
For i = 1 To Len(l)
prod = prod * InStr("abcdefghijklmnopqrstuvwxyz", Mid(l, i, 1))
Next
For i = 1 To 7
If prod = vlu(i) Then
Text1.Text = Text1.Text & i & "  " & l & crlf
End If
Next
Loop Until EOF(1)
Close

Text1.Text = Text1.Text & crlf & " done"

End Sub

with blank lines introduced between different word position identifiers.

The choice of words:

You are as old as you feel.

 Posted by Charlie on 2015-11-02 14:48:09

 Search: Search body:
Forums (0)