Submission #305596

---

Source Code Expand

import Control.Monad
import Control.Applicative
import Data.List
import Data.Bits
import Data.Char
import Data.Ord
import Data.Maybe
import Data.Tuple
import qualified System.IO
import qualified Data.Map as M

main = do
  [n] <- map read . words <$> getLine
  putStr . unlines . (\ a -> [show ((length a)-1)] ++ a) $ solve n

solve :: Z -> [S]
solve 1 = map (:[]) $ ['0'..'9']
solve n = let
  a = solve (n-1)
  in concat [map (c:) aa | (c,aa) <- zip ['0'..'9'] $ cycle [a, reverse a]]

type Z = Integer
type Q = Rational
type R = Double
type S = String

fint :: (Integral a, Num b) => a -> b
fint = fromIntegral

Submission Info

Compile Error

./Main.cpp:14:3: error: stray ‘\’ in program
./Main.cpp:1:1: error: ‘import’ does not name a type