-----Ursprüngliche Nachricht-----
Von: saaj [
Gesendet: 24.03.2010 13:13:29
An: haskell-cafe@haskell.org
Betreff: [Haskell-cafe] Re: really difficult for a beginner like me...

>saaJamal [ hotmail.com> writes:
>
>U happen to find a way for your problem? I tried a lot for more than a week 
>now, but cant do it.
>
>I tried many tutorials but wasnt of any good.
>
>as per the above case study, I need to do is:
>
>
>1) Allow words to be hyphenated and treat a hyphenated
>word as a single word.  However, for those words which are split over two
>lines, treat a split word as a single word without the hyphen.
>
>for this i tried:
>           fixupHyphens :: [ (Int, Word) ] -> [ (Int, Word ) ]
>           fixupHyphens ( (line1, word1):(line2:word2):xs )
>           | if (word1, line2) /= line1 = ( line1,word2 ) : fixupHyphens xs
>           | otherwise = (line1, word1):(line2:word2): fixupHyphens xs
>           fixupHyphens xs = xs
>

It's probably easier to treat the hyphens before pairing the words with the 
line-numbers.
If you needn't care about words containing a hyphen (like line-numbers above), 
a simple preprocessor

fixHyphens :: String -> String
fixHyphens ('-':'\n':more) = (move rest of the word before the newline and 
remove hyphen)
fixHyphens (c:cs) = c: fixHyphens cs
fixHyphens "" = ""

should do the trick.

>and for including hiphens i added this to the code: 
>
>
>            splitWords :: Line -> [Word]                       --      a)
>
>            splitWords [] = []
>            splitWords  line 
>            = takeWhile isLetter line :                --      first word in 
> line
>           (splitWords .                       --      split other words
>           dropWhile (not.isLetter) .  --      delete separators
>           dropWhile isLetter) line    --      other words
>            where
>             isLetter ch
>            =  (('a'<=ch) && (ch<='z'))
>             ||        (('A'<=ch) && (ch<='Z'))
>             ||      ('-' = ch)
>
>
>2)Treat a capitalised word (one or more capitals) as being different from the 
>word in all lower case (but they should still be sorted alphabetically)unless 
>it is at the start of a sentence with only the initial letter capitalised. 
>
>
>_______________________________________________
>Haskell-Cafe mailing list
>Haskell-Cafe@haskell.org
>http://www.haskell.org/mailman/listinfo/haskell-cafe
_______________________________________________
Haskell-Cafe mailing list
Haskell-Cafe@haskell.org
http://www.haskell.org/mailman/listinfo/haskell-cafe

Reply via email to