Haskellの練習 main = do input <- getContents let c = head . head $ lines input s = last $ lines input putStrLn $ filter (/=c) s

はじめ、'.'を取り除き忘れていて1WA t1 = "TAKAHASHIKUN" t2 = "Takahashikun" t3 = "takahashikun" main = do ns <- getLine str <- getLine let ws = removedot $ words str putStrLn . show $ foldr (\ cs acc -> if cs==t1 || cs==t2 || cs==t3 then ac…

参加しました 2問解けて86位。A #include <cstdio> #include <math.h> #include <algorithm> using namespace std; int N; int x[100]; int y[100]; int main(){ scanf("%d", &N); for(int i = 0; i < N; i++){ scanf("%d %d", &x[i], &y[i]); } double ans; for(int i = 0; i < N; i++)</algorithm></math.h></cstdio>…