Return to Answer

deleted 151 characters in body

edited Mar 23, 2022 at 10:47

edited Mar 23, 2022 at 10:47

Perl 5, 5860 bytes

sub{my%s;my%s;$_=(@r=grep/^s(?!h)/i&!$s{lc$_}++,@_/\bs(?!h)\w*/gi)<7?()"":@r[0"@r[0..6]}6]"

sub{my%s;(@r=grep/^s(?!h)/i&!$s{lc$_}++,@_)<7?():@r[0..6]}

my%s;$_=(@r=grep!$s{lc$_}++,/\bs(?!h)\w*/gi)<7?"":"@r[0..6]"

answered Mar 23, 2022 at 10:37

answered Mar 23, 2022 at 10:37

sub{my%s;(@r=grep/^s(?!h)/i&!$s{lc$_}++,@_)<7?():@r[0..6]}