Anagram generator: Difference between revisions
m
→{{header|J}}: clean out debugging and irrelevant code
(J) |
m (→{{header|J}}: clean out debugging and irrelevant code) |
||
Line 35:
<lang J>anagen=: {{
seed=
letters=
list=
ok1=
ref=
counts=
ok2=
c=
maybe=
while.
if. 1 e. done do.
r=. (;:inv ((done#maybe) { ok2#I.ok1){L:0 1 <;._2 fread x)-.tolower y
if. #r do. r return. end.
end.
<(#~ n */ .<:"1~ [: +/"2 {&m) y,"1 0 ({:y)}.i.#m
}} ref"1(-.done)#maybe
end.
EMPTY
| |||