It's work !
Thank you so much !
I change my editor settings as you said.
Thank you again, and Have a nice day.

S. Chang


2014-04-06 9:18 GMT+09:00 Bob Ippolito <bob@redivi.com>:
The problem is that you are mixing tabs and spaces. It doesn't realize that the two lines are supposed to be at the same level of indentation. It's best to always use spaces, never tabs.

This might be easier to avoid if you put where on its own line, but the best solution is to configure your text editor to always expand tabs to spaces.


On Sat, Apr 5, 2014 at 5:13 PM, S. H. Aegis <shaegis@gmail.com> wrote:
Hi.
I'm new to Haskell. I try to solve Euler Project for studying Haskell through Googling, reading books.
There is a error in where sentence, but I can't fix this.

maxEleList :: String -> String -> [Int]
maxEleList xs ys = maxOfTwo upperList lowerList
where upperList = map turpleSum $ zip (toIntList xs) (toIntList ys)
lowerList = map turpleSum $ zip (toIntList xs) (tail $ toIntList ys)

Error message is
~/maxPathSum.hs: line 4, column 75:
  Parse error
  Error message:
    Parse error: =
  Code:
      maxEleList xs ys = maxOfTwo upperList lowerList
      where upperList = map turpleSum $ zip (toIntList xs) (toIntList ys)
    > lowerList = map turpleSum $ zip (toIntList xs) (tail $ toIntList ys)


How can I fix this?
Thank you for your kind help.

S. Chang


----------------
This code is for Euler project: problem 18, and whole code is like this... (Not yet finished...)

maxEleList :: String -> String -> [Int]
maxEleList xs ys = maxOfTwo upperList lowerList
where upperList = map turpleSum $ zip (toIntList xs) (toIntList ys)
lowerList = map turpleSum $ zip (toIntList xs) (tail $ toIntList ys)
maxOfTwo :: [Int] -> [Int] -> [Int]
maxOfTwo [] [] = []
maxOfTwo (x:xs) (y:ys) = max x y : maxOfTwo xs ys

turpleSum :: (Int, Int) -> Int
turpleSum (x, y) = x + y

toIntList :: String -> [Int]
toIntList = map (\x -> read x :: Int) . words

rowData :: [[Int]]
--rowData = reverse $ map (map (\x -> read x :: Int) . words) [r1, r2, r3, r4, r5, r6, r7, r8, r9, r10, r11, r12, r13, r14, r15]
rowData = map (map (\x -> read x :: Int) . words) [r1, r2, r3, r4, r5, r6, r7, r8, r9, r10, r11, r12, r13, r14, r15]

r1 = "75"
r2 = "95 64"
r3 = "17 47 82"
r4 = "18 35 87 10"
r5 = "20 04 82 47 65"
r6 = "19 01 23 75 03 34"
r7 = "88 02 77 73 07 63 67"
r8 = "99 65 04 28 06 16 70 92"
r9 = "41 41 26 56 83 40 80 70 33"
r10 = "41 48 72 33 47 32 37 16 94 29"
r11 = "53 71 44 65 25 43 91 52 97 51 14"
r12 = "70 11 33 28 77 73 17 78 39 68 17 57"
r13 = "91 71 52 38 17 14 91 43 58 50 27 29 48"
r14 = "63 66 04 68 89 53 67 30 73 16 69 87 40 31"
r15 = "04 62 98 27 23 09 70 98 73 93 38 53 60 04 23"

_______________________________________________
Beginners mailing list
Beginners@haskell.org
http://www.haskell.org/mailman/listinfo/beginners



_______________________________________________
Beginners mailing list
Beginners@haskell.org
http://www.haskell.org/mailman/listinfo/beginners




--
Sok Ha, CHANG
Dr. Chang's Clinic. #203. 503-23. AmSa-Dong, GangDong-Gu, Seoul.
Tel: +82-2-442-7585