I've found in one of the Mensa quizzes a puzzle asking for a 6 letter word that allows creation of 3 valid English words
just by simply permuting the 123456 word
into 426153, 462315 & 623451.
It is not too difficult to solve it, if you wish.
I've tried to find an example that provides more answers, searched 7-letter words, surfed the web and finally got a set of 5 letters allowing 5 permutations.
Prior to giving you the sequences I must admit that:
a. proper names (people or geographical entities) are allowed.
b. plural form is OK -S is one of the letters.
The 5 permutations are:
12345
32451
51243
54123
12435
What are the words and their meanings?
20 15 18 21 19 TORUS doughnut shape
18 15 21 19 20 ROUST drive out roughly
19 20 15 21 18 STOUR hearty
19 21 20 15 18 SUTOR cobbler
20 15 21 18 19 TOURS pleasure trips
program prog5
implicit none
character f(5,12478)*1,f26(26)*1,goodchar(5,5)
integer c(5,12478),c26(26),i5,i26,i18,i18a,ii5,jj5,
1 goodc(5,5),goodcnt,p(5,5),perm(5,5),p4,p5,
1 pp5,p25
data p/1,2,3,4,5, 3,2,4,5,1, 5,1,2,4,3, 5,4,1,2,3, 1,2,4,3,5/
data f26/'A','B','C','D','E','F','G','H','I','J','K','L','M',
1 'N','O','P','J','R','S','T','U','V','W','X','Y','Z'/
do i26=1,26
c26(i26)=i26
enddo
open(1,file='ff.',status='old')
read(1,2)((f(ii5,i18),ii5=1,5),i18=1,12478)
2 format(12478(5a1,1x))
close(1)
do i18=1,12478
do ii5=1,5
do i26=1,26
if(f(ii5,i18).eq.f26(i26))c(ii5,i18)=i26
enddo
enddo
enddo
do i18=1,12478
c print 3,(f(ii5,i18),ii5=1,5),(c(ii5,i18),ii5=1,5)
3 format(5(a1,1x),5x,5(i2,1x))
enddo
do 7 i18=1,12478
do ii5=1,5
goodc(ii5,1)= c(ii5,i18)
goodchar(ii5,1)=f26(c(ii5,i18))
enddo
c print*,' 1 1st good perm '
c print 10,
c 1(goodc(jj5,1),jj5=1,5),(goodchar(jj5,1),jj5=1,5)
do pp5=2,5
do p5=1,5
perm(p5,pp5)=c(p(p5,pp5),i18)
enddo
enddo
goodcnt=1
do 6 i18a=1,12478
if(i18a.eq.i18)go to 6
do 5 p25=2,5
do p5=1,5
if (perm(p5,p25).ne.c(p5,i18a))go to 5
enddo
goodcnt=goodcnt+1
c print*,'i18 goocnt ',i18,goodcnt
do p5=1,5
goodc(p5,goodcnt)=c(p5,i18a)
goodchar(p5,goodcnt)=f(p5,i18a)
goodchar(p5,goodcnt)=f(p5,i18a)
enddo
if(goodcnt.eq.5)then
print*
do i5=1,5
print 10,
1 (goodc(jj5,i5),jj5=1,5),(goodchar(jj5,i5),jj5=1,5)
10 format(5(i2,1x),2x,5a1)
enddo
go to 7
else
go to 6
endif
5 enddo
6 enddo
7 enddo
end
I also explored what the largest families of anagrams there were for 5 letter words. These two have size 11 to 13 depending how broad your definition of English is:
APERS copiers
APRES after
ASPER 1/120th piaster
PARES trims
PARSE divide
PEARS fruits
PRASE green quartz
PRESA music symbol
RAPES sexual crimes
REAPS sickles
SPAER foreteller
SPARE additional
SPEAR weapon
ARETS? rams (Swed.)
ASTER plant
EARST erst
RATES frequencies
REAST noisily uncooperative (of a horse)
RESAT retook
STARE gaze
STEAR? stear- stearo- Stearic
STRAE straw
TARES vetches
TASER weapons
TEARS rips
TERAS terrace
Edited on August 27, 2020, 4:04 pm
I found this
