Ну и этот затестите:

G_Z 18.05.2006 17:32

@words[sHavedWord;sTakenWord][hHavedWord;hTakenWord;match;sLetter;iNumberOfLetterInWord]
$hHavedWord[^hash::create[]]
$hTakenWord[^hash::create[]]

^sHavedWord.match[(.)][g]{
	^hHavedWord.add[
		$.[$match.1](^if($hHavedWord.[$match.1])($hHavedWord.[$match.1] + 1)(1))
	]
}

^sTakenWord.match[(.)][g]{
	^hTakenWord.add[
		$.[$match.1](^if($hTakenWord.[$match.1])($hTakenWord.[$match.1] + 1)(1))
	]
}

$result(true)

^hTakenWord.foreach[sLetter;iNumberOfLetterInWord]{
	^if(^hHavedWord.$sLetter.int(0) >= $iNumberOfLetterInWord){
		$result($result * true)
	}{
		$result($result * false)
	}
}