Return to Answer

added 9 characters in body

edited Oct 19, 2017 at 18:46

Perl 5, 120(削除) 120 (削除ここまで) 118 + 2 (`-al`) = 122120 bytes

$f{$F[0]}++;$l{$k{$_}=$F[1]}++}{for(keys%k)map{print$_.' definitely'x($f{$t}>$l{$t})." has two first names"if$f{$t=$k{$_}}}keys%k

$f{$F[0]}++;$l{$k{$_}=$F[1]}++}{for(keys%k){print$_.' definitely'x($f{$t}>$l{$t})." has two first names"if$f{$t=$k{$_}}}

$f{$F[0]}++;$l{$k{$_}=$F[1]}++}{map{print$_.' definitely'x($f{$t}>$l{$t})." has two first names"if$f{$t=$k{$_}}}keys%k

answered Oct 19, 2017 at 18:22

answered Oct 19, 2017 at 18:22

$f{$F[0]}++;$l{$k{$_}=$F[1]}++}{for(keys%k){print$_.' definitely'x($f{$t}>$l{$t})." has two first names"if$f{$t=$k{$_}}}