/* bananag.tc - tct - 1/10-12/2010

/* Ref: http://www.npr.org/templates/story/story.php?storyId=122396987

/* Think of a familiar 10-letter hyphenated word that uses all seven
/* letters of the alphabet from "F" to "L" plus three other letters of your
/* choosing. What word is it? It's a word everyone knows, and it's in some
/* dictionaries.

/* Variable names were inspired by Bananagram game and copa cabana.

/* The idea here is we generate a file of scrambled 10 letter words and then
/* look at it in hopes we'll see something that will lead us in the right
/* direction.

/* Looking at MFILE.TXT and a tiny hint at
/* http://www.crosswordmanblog.com/2010/01/npr-puzzle-11010-string-of-alphabet.html
/* finally allowed me to solve it.

char banana(10),copa(10),mfile(14000)
int l,m

peel [ /* scrambles banana
 int i,j,k,used(10)
 used(0)=j=random(0,10)
 copa(0)=banana(j)
 for (i=1;i<=10;++i) [
  while (1) [
   j=random(0,10)
   for (k=0;k<i;++k) [
    if (used(k)==j) break
    ]
   if (k==i) [copa(i)=banana(j);used(i)=j;break]
]]]

mains [ /* scramble banana and save the "word"
 int i
 peel
 for (i=0;i<=10;++i) mfile(l+i)=copa(i)
 l=l+11;mfile(l)='|';++l;++m;if (m%8==0) [mfile(l)=13;++l;mfile(l)=10;++l]
]

main [ /* generate 1000 words and put results in a file
 int i
 pl "";ps "bananag.tc - tct - 1/12/2010";pl ""
 strcpy banana,"FGHIJKL   -"
 for (i=0;i<1000;++i) mains
 if (writefile("mfile.txt",mfile,mfile+12000+2*m/8-1,1)>0) [
  pl "";ps "see MFILE.TXT";pl ""
]]