80分求助
查看原帖
80分求助
342185
__builtin_orz楼主2023/9/17 12:52
import Data.List(find)
main::IO()
main=getLine>>=(\s->putStrLn$maybe"no"(:[])$find(\x->(==1)$length$filter(==x)s)s)
2023/9/17 12:52
加载中...