Anagrams: Difference between revisions

Content added Content deleted
Line 5,447: Line 5,447:
dict swap getd dup
dict swap getd dup
"Unfound" == if
"Unfound" == if
drop ps> ps> 1 tolist 2 tolist setd
drop ps> ps> 1 tolist
else
else
ps> swap ps> 0 put len maxlen max var maxlen 2 tolist setd
ps> swap ps> 0 put len maxlen max var maxlen
endif
endif
var dict
2 tolist setd var dict
endfor
endfor