Submission #2698478

---

Source Code Expand

import Control.Monad
import Control.Applicative
main = do
    n <- readLn
    list <- replicateM n getLine
    let answer = map solve list
    mapM print answer
solve :: String -> Int
solve = f 0
f :: Int -> String -> Int
f n str = case str of ('t':'o':'k':'y':'o':xs) -> f (n+1) xs
                      ('k':'y':'o':'t':'o':xs) -> f (n+1) xs   
                      (x:xs) -> f n xs
                      "" -> n

Submission Info

Judge Result