Submission #1694913


Source Code Expand

import qualified Data.ByteString.Char8 as BC
import Data.Maybe (fromJust)
import Control.Monad
--import Data.Sequence
import Prelude
import System.IO
import Data.List

-- a <- replicateM n readLn
-- mapM_ print $

main = do
    n <- readLn
    a <- replicateM n getLine
    putStrLn $ solve a

solve :: [String] -> String
solve a = connect $ take 2 $ sort a

connect :: [String] -> String
connect (a:b) = a ++ (head b)

-- リストに関数を適用する。map だと1変数関数しか使えない悲しみ。
--map' :: ([Int] -> Int -> Int -> Int) -> [Int] -> [Int] -> [Int]
map' _ _ [] = []
map' f a (i:is) = f a i 0 : map' f a is

-- t と等しい最初の要素の index を返す。あとで直す
search :: [Int] -> Int -> Int -> Int
search a t i = if a!!i == t
    then i
    else search a t (i + 1)

Submission Info

Submission Time
Task B - パスワード
User noy72
Language C++14 (GCC 5.4.1)
Score 0
Code Size 843 Byte
Status CE

Compile Error

./Main.cpp:23:1: error: stray ‘\343’ in program
 -- リストに関数を適用する。map だと1変数関数しか使えない悲しみ。
 ^
./Main.cpp:23:1: error: stray ‘\203’ in program
./Main.cpp:23:1: error: stray ‘\252’ in program
./Main.cpp:23:1: error: stray ‘\343’ in program
./Main.cpp:23:1: error: stray ‘\202’ in program
./Main.cpp:23:1: error: stray ‘\271’ in program
./Main.cpp:23:1: error: stray ‘\343’ in program
./Main.cpp:23:1: error: stray ‘\203’ in program
./Main.cpp:23:1: error: stray ‘\210’ in program
./Main.cpp:23:1: error: stray ‘\343’ in program
./Main.cpp:23:1: error: stray ‘\201’ in program
./Main.cpp:23:1: error: stray ‘\253’ in program
./Main.cpp:23:1: error: stray ‘\351’ in program
./Main.cpp:23:1: error: stray ‘\226’ in program
./Main.cpp:23:1: error: stray ‘\242’ in program
./Main.cpp:23:1: error: stray ‘\346’ in program
./Main.cpp:23:1: error: stray ‘\225’ in program
./Main.cpp:23:1: error: stray ‘\260’ in program
./Main.cpp:23:1: error: stray ‘\343’ in program
./Main.cpp:23:1: error: stray ‘\202’ in program
./Main.cpp:23:1: error...