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

Home > General > Word Problems
Numbered Letters II (Posted on 2011-05-09) Difficulty: 3 of 5
Consider the values of the individual letters in Numbered Letters in their original order.

What are the English words that have a total letter value of exactly 100 when you add up all of the letters, whenever:

(I) Each of the letters in the odd positions have the same values as in the original system, but the letters in the even positions are assigned the values in reverse order (a=1, b=26, c=3, d=24, e=5, f=22, ..., y=25, z=2)?

(II) Each of the the letters in the even positions have the same values as in the original system, but the letters in the odd positions are assigned the values in reverse order(a=25, b=2, c=23, d=4, e=21, f=6, ..., y=1, z=26)?

No Solution Yet Submitted by K Sengupta    
No Rating

Comments: ( Back to comment list | You must be logged in to post comments.)
the program | Comment 3 of 4 |

this assumes that "odd positions" and "even positions" refer only to positions within the alphabet, rather than positions within the word, as shown by the parenthetical explanations.

DIM t1(26), t2(26)
OPEN "\words\words.txt" FOR INPUT AS #1
OPEN "numlet2a.txt" FOR OUTPUT AS #2
OPEN "numlet2b.txt" FOR OUTPUT AS #3
DO
  LINE INPUT #1, l1$
  l$ = LCASE$(l1$)
  IF l$ = l1$ THEN
    tot1 = 0: tot2 = 0
    FOR i = 1 TO LEN(l$)
     v = INSTR("abcdefghijklmnopqrstuvwxyz", MID$(l$, i, 1))
     IF v MOD 2 = 1 THEN
       tot1 = tot1 + v: t1(i) = v
       tot2 = tot2 + 26 - v: t2(i) = 26 - v
     ELSE
       tot1 = tot1 + 28 - v: t1(i) = 28 - v
       tot2 = tot2 + v: t2(i) = v
     END IF
    NEXT
    IF tot1 = 100 THEN
      PRINT l1$: PRINT #2, l1$;
'     FOR i = 1 TO LEN(l$)
'      PRINT #2, t1(i);
'     NEXT
      PRINT #2,
    END IF
    IF tot2 = 100 THEN
      PRINT "                 "; l1$: PRINT #3, l1$;
'     FOR i = 1 TO LEN(l$)
'      PRINT #3, t2(i);
'     NEXT
      PRINT #3,
    END IF
  END IF
LOOP UNTIL EOF(1)
CLOSE

 


  Posted by Charlie on 2011-05-09 14:45:34
Please log in:
Login:
Password:
Remember me:
Sign up! | Forgot password


Search:
Search body:
Forums (0)
Newest Problems
Random Problem
FAQ | About This Site
Site Statistics
New Comments (2)
Unsolved Problems
Top Rated Problems
This month's top
Most Commented On

Chatterbox:
Copyright © 2002 - 2017 by Animus Pactum Consulting. All rights reserved. Privacy Information