саскучелезь, красавчеги? вот вам ещо вореант :)

Misha v.3 18.05.2006 21:22 / 18.05.2006 21:23

@splitByLetters[sWord]
$result[^hash::create[]]
^sWord.match[(.)][g]{
	^result.add[
		$.[$match.1=$result.[$match.1=]](0)
	]
	^result.[$match.1=].inc(1)
}


@words[sHavedWord;sTakenWord][hHavedWord;hTakenWord]
$hHavedWord[^splitByLetters[$sHavedWord]]
$hTakenWord[^splitByLetters[$sTakenWord]]
^hTakenWord.sub[$hHavedWord]
$result(^if($hTakenWord){0}{1})