source code clone download copy to clipboard report bug / make suggestion

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
my @lines = <main::DATA>;
 
foreach my $line (@lines) {
  chomp($line);
  print "[" . (($line =~ m/(?=.*?(?<!@ )(\b\w+\b)).*\(@.*\1.*\)/)? "yes" : "no") . "]\t$1\t$line\n";
}
 
__DATA__
abc (@ abc )
abc (@ (& abc ) )
abc (& def (@ abc ) )
(& (& abc def ) (@ abc ) )
(& def (& abc ) (@ abc ) )
abc
(@ abc )
abc (@ def )
abc (& abc)
(@ abc ) abc
(@ abc ) (@ abc )

clone download copy to clipboard

• upload with new input
  You have reached a limit of free submissions this month.
  You cannot send submissions this month anymore because of exceeding your monthly limit. Please recharge your account.
  
• # 1:   hide show   clone   input   262 days 14 hours ago    Success

  result: Success     time: 0s    memory: 4596 kB     returned value: 0

  input: no
  output:

  [yes]	abc	abc (@ abc )
  [yes]	abc	abc (@ (& abc ) )
  [yes]	abc	abc (& def (@ abc ) )
  [yes]	abc	(& (& abc def ) (@ abc ) )
  [yes]	abc	(& def (& abc ) (@ abc ) )
  [no]	abc	abc
  [no]	abc	(@ abc )
  [no]	abc	abc (@ def )
  [no]	abc	abc (& abc)
  [yes]	abc	(@ abc ) abc
  [no]	abc	(@ abc ) (@ abc )