View Single Post
  #5 (permalink)  
Old 14-May-2006, 05:17 AM
snarkophilus's Avatar
snarkophilus snarkophilus is offline
Senior Member
 
Join Date: Sep 2005
Posts: 1,094
Default

Um, I've seen "tom-tom" written as "tam-tam" before.

Here's a list of all letter combinations -- under one page of code to generate them. (Three cheers for Prolog!)

http://web.unbc.ca/~mcnamarg/words.zip

Code if you'd rather generate your own:
%
% letpuz.pl
% To get 6 letter combinations, call getSolutions(6,myfile).

getSolutions(Length, Filename) :-
tell(Filename),
writeSolutions(Length),
!,
told.

writeSolutions(M) :-
solution(M, S),
writeSol(S),
nl,
fail.
writeSolutions(_).

solution(0,[]) :- !.
solution(N, [Let|R]) :-
letter(Let),
M is N-1,
solution(M, R).

writeSol([]).
writeSol([A|R]) :-
write(A),
!,
writeSol(R).

letter(a).
letter(d).
letter(g).
letter(j).
letter(m).
letter(p).
letter(t).
letter(w).
__________________
"It's turtles all the way down."
Reply With Quote