[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。
【初稿】 119 バイト 自分なりに工夫したつもりだったが、結構長い。。。 import Char main=do l<-getLine;interact$unlines.filter(/=[]).map(l%).lines f l=sum$map((2^).ord)l l%a|f l==f a=a|1>0=[]
