Sudoku

input/code.hs:4:1: Warning:
    Top-level binding with no type signature: lol :: [Char]

input/code.hs:6:1: Warning:
    Top-level binding with no type signature: main :: IO ()

input/code.hs:10:1: Warning:
    Top-level binding with no type signature:
      f :: [Char] -> Char -> Char

input/code.hs:10:3: Warning: Defined but not used: `a'

import Data.List
import Data.Char

lol = "123456789\n456789123\n789123456\n214365897\n365897214\n897214365\n531642978\n642978531\n978531642"

main = do
  x <- getLine
  putStrLn $ map (f x) lol

f a '\n' = '\n'
f a x = a !! (ord x - ord '1')

Test 1

Verdict: ACCEPTED

Test 2

Verdict: ACCEPTED

Test 3

Verdict: ACCEPTED

Test 4

Verdict: ACCEPTED

Test 5

Verdict: ACCEPTED