Ну, собственно, где-то так:

G_Z 18.05.2006 16:01 / 18.05.2006 16:02

@words[sHavedWord;sTakenWord][hHavedWord;hTakenWord;iHavedWordLetterCounter;iTakenWordLetterCounter;sLetter]
$hHavedWord[^hash::create[]]
$hTakenWord[^hash::create[]]

^for[iHavedWordLetterCounter](0;^sHavedWord.length[] - 1){
	$sLetter[^sHavedWord.mid($iHavedWordLetterCounter;1)]
	^hHavedWord.add[
		$.$sLetter(^if($hHavedWord.$sLetter){^eval($hHavedWord.$sLetter + 1)}{1})
	]
}

^for[iTakenWordLetterCounter](0;^sTakenWord.length[] - 1){
	$sLetter[^sTakenWord.mid($iTakenWordLetterCounter;1)]
	^hTakenWord.add[
		$.$sLetter(^if($hTakenWord.$sLetter){^eval($hTakenWord.$sLetter + 1)}{1})
	]
}

$result(true)

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