Damn , this is just the sort of thing to suk me into consuming time apparently
frivolously .

As Blay must agree , this anagram sort of stuff is the right on the domain
where APL
rules .
( If Math is the Queen of Sciences , APL is the King of Programming
Languages . )

This problem also has a bit of history with me . The printing of the list of
all possible
permutations of a seat post mounted , stamped metal , bicycle rear wheel lock
which had 6
tabs each with 3 positions : in , out , leave-alone ; was one of the first
tasks I ever
tried to solve on Miami(Ohio) U.`s academic computer , an IBM 1620
( Can`t.Add.Doesn`t.Even.Try , ( did BCD arithmatic by table lookup ) ) ,
in 1963 . I gave up after it crunched so long that I calculated how long it
should take .
It would have taken well over half an hour , and I couldn`t hog the School`s
Computer
that long . Physics Grad students needed it , and I was just a Freshman
majoring in James
Bond .


Anyway , the first time I was issued a ( 4 digit ) Bank PIN , around 1982 , I
did a little
APL to list all mnemonics associated with it . ( I still use the same PIN . )

In CoSy/APL , I keep around the function ( verb ) CHARSTOTELENUM to
convert words to
digits for autodialing :

DIGITS is '0123456789'

R is CHARSTOTELENUM STR

| Converts character strings to corresponding telephone pad numbers .
R is DIGITS , ( 3 / 2 drop DIGITS ) , '*#.'
R is R [ ( DIGITS , 'ABCDEFGHIJKLMNOPRSTUVWXY' , '*#') iota STR ]
| Circa Rochester `80__83 |1993 10 5 12 24, Bob A

CHARSTOTELENUM 'FRE.EDOM'
373.3366

Without creating a new word , I can just execute a couple of lines to see all
the anagrams
for a given number :

T0 is '1' w 'ABC' w 'DEF' w 'GHI' w 'JKI' w 'MNO' w 'PQRS' w 'TUV' w 'WXYZ'

FMTC ' CARTESIAN ' AKROS T0 at ( -1 ) + 5 1 6
J1M J1N J1O K1M K1N K1O I1M I1N I1O

FMTC ' CARTESIAN ' AKROS T0 at ( -1 ) + 2 4 8
AGT AGV AHU AIT AIV BGU BHT BHV BIU CGT CGV CHU CIT CIV
AGU AHT AHV AIU BGT BGV BHU BIT BIV CGU CHT CHV CIU
FMTC ' CARTESIAN ' AKROS T0 at ( -1 ) + 7 4 6
PGM PGO PHN PIM PIO QGN QHM QHO QIN RGM RGO RHN RIM RIO SGN SHM SHO SIN
PGN PHM PHO PIN QGM QGO QHN QIM QIO RGN RHM RHO RIN SGM SGO SHN SIM SIO

FMTC ' CARTESIAN ' AKROS T0 at ( -1 ) + 2 6 8 4
AMTG AMVG ANUG AOTG AOVG BMUG BNTG BNVG BOUG CMTG CMVG CNUG COTG COVG
AMTH AMVH ANUH AOTH AOVH BMUH BNTH BNVH BOUH CMTH CMVH CNUH COTH COVH
AMTI AMVI ANUI AOTI AOVI BMUI BNTI BNVI BOUI CMTI CMVI CNUI COTI COVI
AMUG ANTG ANVG AOUG BMTG BMVG BNUG BOTG BOVG CMUG CNTG CNVG COUG
AMUH ANTH ANVH AOUH BMTH BMVH BNUH BOTH BOVH CMUH CNTH CNVH COUH
AMUI ANTI ANVI AOUI BMTI BMVI BNUI BOTI BOVI CMUI CNTI CNVI COUI

The crucial word is CARTESIAN :

( SHOW 'CARTESIAN' ) RPL APLtoASCIIglb
R is A CARTESIAN B
| Returns matrix of all row-wise combinations of A and B : by Paul.C.Berry
A is ERECT A & B is ERECT B
R is(1 0 2 transpose((1 take rho B),rho A)rho A),((1 take rho A),rho B) rho B
R is (( x /2 take rho R),_1 take rho R) rho R
| from before 1980 |1989 2 2 15 12, Bob A

Hard core APL .
You should be able to run these lines on the CoSy you can download at
http://cosy.com/cosynbc.htm .
If you join the mailgroup by sending a msg :
mailto:cosy-notecomputing-subscribe@egroups.com ,
( or goto http://www.egroups.com/list/cosy-notecomputing/ ) ,
I'll email a copy of the updated version I have just been getting running under
Win98 on
my new Sony Z505SX , including code to slave a K process ( see
http://kx.com or
http://cosy.com/language/index.htm#K ) to CoSy .


Blay Tarnoff wrote:
> These may be available, any preferences?
> 516 535 1776 > 516 663 1776 > 516 535 LPNY > 516 739 LPNY > 516 746 LPNY (516
7 GO LPNY)
> 516 535 3516 > 516 663 1663 > 516 535 2345 > 516 535 4321

> Thanks for the input, Bonnie and John, but I just got some more info --
> I am apparently limited to the following exchanges. Unfortunately, 353
> and 373 (for ELECT US and FREEDOM) are not there. Can any of you
> anagram wizards out there do anything with the following choices, to
> which we are limited?
>
> 248 ABC GHI TUV > 294 ABC WXY(Z) GHI
> 535 JKL DEF JKL > 663 MNO MNO DEF
> 739 P(Q)RS DEF WXY(Z) > 741 P(Q)RS GHI 1
> 742 P(Q)RS GHI ABC > 746 P(Q)RS GHI MNO
> 747 P(Q)RS GHI P(Q)RS > 873 TUV P(Q)RS DEF
> 877 TUV P(Q)RS P(Q)RS


--- BobArmstrong -- http://CoSy.com -- 212-285-1864 ---
++ NoteComputing Environment ++

Libertarian candidate , (NY-8) in 2000 : http://boba-in-y2k.org

"We must be ready to employ trickery , deceit , law-breaking ,
withholding and concealing truth . We can and must write in a
language which sows among the masses hate , revulsion , scorn ,
and the like , toward those who disagree with us . "
Lenin , quoted in Max Eastman , Reflections on the failure of Socialism ,
1955 , p87 .

See http://cosy.com/home.htm#Today for recent commentary and events .

** I reserve the right to post all communications I receive or
generate to CoSy website for further reflection .