Johan and Jonah are two boys' names (in the US) that are anagrams of one another.

Find at least three well known boys' names (in the US) that are anagrams of one another.

OPEN "boynames.txt" FOR INPUT AS #1
OPEN "boyname.txt" FOR OUTPUT AS #2
DO
  LINE INPUT #1, l$
  n$ = RTRIM$(LEFT$(l$, 15))
  n2$ = n$
  DO
    finished = 1
    FOR i = 1 TO LEN(n$) - 1
      IF MID$(n$, i, 1) > MID$(n$, i + 1, 1) THEN
        h$ = MID$(n$, i, 1): MID$(n$, i, 1) = MID$(n$, i + 1, 1)
        MID$(n$, i + 1, 1) = h$
        finished = 0
      END IF
    NEXT
  LOOP UNTIL finished
  PRINT #2, USING "\              \"; n$; n2$
LOOP UNTIL EOF(1)
CLOSE

SHELL "sort < boyname.txt > boyname2.txt"

OPEN "boyname2.txt" FOR INPUT AS #1

l$ = ""
DO
  p$ = l$
  LINE INPUT #1, l$
  IF LEFT$(l$, 15) = LEFT$(p$, 15) THEN PRINT MID$(p$, 16, 16); MID$(l$, 16, 16)
LOOP UNTIL EOF(1)

 

This program reads a list of 1219 boys' names from

http://deron.meranda.us/data/census-dist-male-first.txt

and lists:

 ADAN            DANA
 BRANDEN         BRENDAN
 BRAIN           BRIAN
 MICHAEL         MICHALE
 MICHALE         MICHEAL
 CARMELO         MARCELO
 CARLO           CAROL
 CLAY            LACY
 DARNELL         RANDELL
 LEANDRO         LEONARD
 LEONARD         RENALDO
 DANE            DEAN
 ANDRE           ARDEN
 ARDEN           DAREN
 ARNOLDO         ORLANDO
 ORLANDO         ROLANDO
 ARNOLD          ROLAND
 ROLAND          RONALD
 ANGEL           GALEN
 JAIME           JAMIE
 ARIEL           ARLIE
 ISRAEL          ISREAL
 ANTIONE         ANTOINE
 LANE            NEAL
 WARNER          WARREN
 JASON           JONAS
 RAMON           ROMAN
 REUBEN          RUEBEN
 BERT            BRET
 BRYON           BYRON
 CHRISTOPER      CRISTOPHER
 CLEO            COLE
 COREY           ROYCE
 DINO            DION
 JEFFERY         JEFFREY
 ELMER           MERLE
 FOREST          FOSTER
 KEITH           KIETH
 JOESPH          JOSEPH
 JOSEPH          JOSPEH
 LEON            NOEL
 NOEL            OLEN
 ELROY           LEROY
 LINO            OLIN
 TORY            TROY

 
 The order is what they'd be in if the letters within each word were alphabetized, so AADN appears at the top and ORTY at the bottom.
 
 It's a judgement call on what names are common, what names are even boys' names as opposed to girls' names and which are just alternative spellings of the two names on the list.   The original link can be used to see the relative frequencies (commonness) of the various names are; the rest is pure judgement.
 
 my comments on some

 
  ADAN            DANA
  BRANDEN         BRENDAN   not bad
  BRAIN           BRIAN     weird left-hand value
  MICHAEL         MICHALE
  MICHALE         MICHEAL
  CARMELO         MARCELO   somewhat ethnic Italian
  CARLO           CAROL     don't usually think of Carol as a boy's name
  CLAY            LACY      same with Lacy; and Clay isn't too common
  DARNELL         RANDELL
  LEANDRO         LEONARD   A triple
  LEONARD         RENALDO      continues here.
  DANE            DEAN
  ANDRE           ARDEN     this set
  ARDEN           DAREN             makes a triple
  ARNOLDO         ORLANDO   as does
  ORLANDO         ROLANDO         this set
  ARNOLD          ROLAND    pretty good
  ROLAND          RONALD    pretty good also, making a triple: Arnold, Roland, Ronald
  ANGEL           GALEN     not bad; Angel somewhat ethnic
  JAIME           JAMIE     one of the best, I think
  ARIEL           ARLIE
  ISRAEL          ISREAL
  ANTIONE         ANTOINE
  LANE            NEAL
  WARNER          WARREN
  JASON           JONAS     also one of the best
  RAMON           ROMAN     not bad
  REUBEN          RUEBEN    just a different spelling
  BERT            BRET      another of the best
  BRYON           BYRON     Bryon is a rather unusual spelling
  CHRISTOPER      CRISTOPHER
  CLEO            COLE      Cleo doesn't sound like a boy's name
  COREY           ROYCE
  DINO            DION      not bad
  JEFFERY         JEFFREY
  ELMER           MERLE     not bad
  FOREST          FOSTER    not bad
  KEITH           KIETH
  JOESPH          JOSEPH
  JOSEPH          JOSPEH
  LEON            NOEL      not bad
  NOEL            OLEN
  ELROY           LEROY
  LINO            OLIN
  TORY            TROY
  

Johan itself was not on the original list referenced above and so does not appear paired with Jonah, though the latter is on the original list. 

Posted by Charlie on 2013-12-30 12:17:33