Merkkijono

input/code.hs:3:1: warning: [-Wmissing-signatures]
    Top-level binding with no type signature: main :: IO ()
  |
3 | main = readLn >>= putStrLn . f ""
  | ^^^^

input/code.hs:5:1: warning: [-Wmissing-signatures]
    Top-level binding with no type signature: f :: t -> Int -> [Char]
  |
5 | f _ 1 = "a"
  | ^

import Data.List

main = readLn >>= putStrLn . f ""

f _ 1 = "a"
f s n = let c = toEnum (n+96) in c : intersperse c (f s (n-1)) ++ [c]

Test 1

Verdict: ACCEPTED

Test 2

Verdict: ACCEPTED

Test 3

Verdict: ACCEPTED

Test 4

Verdict: ACCEPTED

Test 5

Verdict: ACCEPTED

Test 6

Verdict: ACCEPTED

Test 7

Verdict: ACCEPTED

Test 8

Verdict: ACCEPTED

Test 9

Verdict: ACCEPTED

Test 10

Verdict: ACCEPTED

Test 11

Verdict: ACCEPTED

Test 12

Verdict: ACCEPTED

Test 13

Verdict: ACCEPTED

Test 14

Verdict: ACCEPTED

Test 15

Verdict: ACCEPTED

Test 16

Verdict: ACCEPTED