все равно мудрено

Азат Разетдинов 06.02.2003 18:01

Побреем ^remove[] бритвой Оккама:

@delete[login] Удалить юзера
^if(^passwd.locate[login;$login]){
        $passwd[^remove[$passwd;^passwd.line[];1]]
}

==>

@delete[login] Удалить юзера
$passwd[^passwd.select($passwd.login ne $login)]

---