SK
>>> import re
>>> s="abcdtttt"
>>> t="t"
re.match(f"^.*?(t+)$", s).group(1)
'tttt'
>>> s="abcdtttt"
>>> t="t"
re.match(f"^.*?(t+)$", s).group(1)
'tttt'
Size: a a a
2021 November 28
SK
там вопросик есть :D
ЕД
Точно, про вопрос я не сообразил 👍
SK
ЕД
re.search наверное самое быстрое будет из регулярных, раз он первый подходящий вариант возвращает
SK
Если надо больше одного символа, то чуть усложнить придётся:
>>> s="abcdtatatata"
>>> t="ta"
>>> re.search(f"(({t})+)$", s).group(1)
'tatatata'
тк + относится к последнему токену ре, надо группировать т.
>>> s="abcdtatatata"
>>> t="ta"
>>> re.search(f"(({t})+)$", s).group(1)
'tatatata'
тк + относится к последнему токену ре, надо группировать т.
SK
наверное так
SK
Здесь есть два лагеря:
- противники ре, которые любят вложенные циклы и строковые функции.
- сторонники ре, ленивые взрослые люди, читающие доки.
- противники ре, которые любят вложенные циклы и строковые функции.
- сторонники ре, ленивые взрослые люди, читающие доки.
ЕД
re это сила, главное отладить все капитально и самому не запутаться)
SK
Это вопрос опыта :D
Через какое-то время открывается ре.чакра и понимаешь красоту и простоту ре.
Через какое-то время открывается ре.чакра и понимаешь красоту и простоту ре.
ЕД
надо чаще re.медитировать)
SK
Я на перле много писал и потому мне ре прост и понятен. В питоне вроде как та же либа используется. В перле нет необходимости в функциях даже, там ре -- часть языка.
sub lastT($$) {
my ($t,$_)=$@;
return $1 if /($t+)$/;
}
sub lastT($$) {
my ($t,$_)=$@;
return $1 if /($t+)$/;
}
ЕД
ЕД
sub lastT($$) {
my ($t,$_)=$@;
return $1 if /($t+)$/;
}
print lastT("Hellotttttt")
my ($t,$_)=$@;
return $1 if /($t+)$/;
}
print lastT("Hellotttttt")
ЕД
в перле я 0 )
A
За такой код сразу же молотком по пальцам
A
perl -le 'my $row = "abctttttt"; my ($symbols) = $row =~ m/^.+?(t+)$/; print $symbols'
ЕД
этот код понятнее, и даже у меня работает
SK
я не проверял. Так, накидал по-быстрому.
Что-то я устал и торможу:
sub lastT {
my ($t,$s)=@_;
return $1 if $s=~/($t+)$/;
}
print lastT('t','abcdttt'),"\n";
Что-то я устал и торможу:
sub lastT {
my ($t,$s)=@_;
return $1 if $s=~/($t+)$/;
}
print lastT('t','abcdttt'),"\n";
SK
return $1 if $s=~/($t+)$/;
суть туть :D
суть туть :D