Submission #22299505

---

Source Code Expand

import Data.List

modulus = 10^9+7

main :: IO ()
main = do
  n <- readLn
  s1 <- getLine
  s2 <- getLine
  print $ solve n s1 s2

solve :: Int -> String -> String -> Int
solve n s1 s2 = foldl' go (if hp == 1 then 3 else 6) $ zip patterns $ tail patterns
  where
    patterns = map length $ group s1
    hp = head patterns
    go acc (1, 1) = acc `modMul` 2
    go acc (1, 2) = acc `modMul` 2
    go acc (2, 1) = acc
    go acc (2, 2) = acc `modMul` 3

modMul :: Int -> Int -> Int
modMul a b = a * b `mod` modulus

Submission Info

Compile Error

Loaded package environment from /home/contestant/.ghc/x86_64-linux-8.8.3/environments/default

Judge Result