Anagram generator: Difference between revisions
Content added Content deleted
m (→{{header|J}}: clean out debugging and irrelevant code) |
m (→{{header|J}}: bugfix (would have not rejected a non-anagram which only differed by case)) |
||
| Line 47: | Line 47: | ||
done=. (+/"2 maybe{c)*/ .=ref |
done=. (+/"2 maybe{c)*/ .=ref |
||
if. 1 e. done do. |
if. 1 e. done do. |
||
r=. |
r=. ;:inv ((done#maybe) { ok2#I.ok1){L:0 1 <;._2 fread x |
||
if. #r do. r return. end. |
if. #r=. r #~ -. r -:"1&tolower y do. r return. end. |
||
end. |
end. |
||
maybe=. ; c {{ |
maybe=. ; c {{ |
||