-1

これは私の「タプルプログラムのリストで検索する」です:

   import Data.List
   import Data.Char
   data BookInfo = Book Int String [String]
      deriving(Show)

   enter :: Int->String->[String]->BookInfo
   enter id name subject=Book id name subject
   bookId   (Book id _     _  ) = id
   index :: BookInfo -> Int
   index (Book id name subject) =  bookId  (Book id name subject) 
        arrayentering book bookList
         | empty book = bookList
         | otherwise  = book : bookList
         where
         empty (Book _ name subject) = all isSpace name && all (all isSpace) subject
         bubbleSort::(Ord t) => [t]->[t]
         bubbleSort[x,y,z,xs]=
                if x<y then x : [y,z,xs]
                       else y : [x,z,xs]
         superBubble::(Ord t) =>[[t]]->[[t]]
         superBubble a=map bubbleSort a
         combining::[BookInfo]->[[Int]]
         combining books=superBubble [(map index books)] 

          bsearch :: [[a]]-> a -> a -> Int 
          bsearch ms key s  

                  | elemtIndex m ms = s  return 9999
                  |
                    key=m  elemIndex m ms
                  |
                    key<m  bsearch (splitAt ms o) key o 
                   | otherwise bsearch (splitAt ms (o+2) ) key n  
                  o<-s/2-1
                  n<-length ms
         finalBsearch::(Ord)=> [a]->a->a->Int
         finalBsearch ms key s= bsearch  (combining ms) key s

コンパイルしようとするとエラーが発生します: ERROR line 2 - Syntax error in input (unexpected keyword "import").

これは何を意味し、どうすれば修正できますか?

4

1 に答える 1

1

このように2行目をインデントしましたか？

import Data.List
 import Data.Char

その場合、パーサーはステートメントが 2 つではなく 1 つあると見なします。

于 2012-07-17T05:31:44.290 に答える