-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

你是这样缩进第二行的吗?

import Data.List
 import Data.Char

如果是这样,解析器会认为有 1 个语句而不是 2 个语句。

于 2012-07-17T05:31:44.290 回答