LINUX.ORG.RU

Progect Euler 11 problem

 ,


0

1

Хаскелисты, помогите, угажите на говнокод и что я делаю неправильно. В результате выполнения

*WhoeMeal> problem_11
9171350956890128384
Получаю это число, но оно не подходит. ВОТ ВОТ КОД:
toDigitMatrix :: [[Int]]
toDigitMatrix = map (map read . words) $ lines linxMatrix
    where 
        linxMatrix = "08 02 22 97 38 15 00 40 00 75 04 05 07 78 52 12 50 77 91 08\n49 49 99 40 17 81 18 57 60 87 17 40 98 43 69 48 04 56 62 00\n81 49 31 73 55 79 14 29 93 71 40 67 53 88 30 03 49 13 36 65\n52 70 95 23 04 60 11 42 69 24 68 56 01 32 56 71 37 02 36 91\n22 31 16 71 51 67 63 89 41 92 36 54 22 40 40 28 66 33 13 80\n24 47 32 60 99 03 45 02 44 75 33 53 78 36 84 20 35 17 12 50\n32 98 81 28 64 23 67 10 26 38 40 67 59 54 70 66 18 38 64 70\n67 26 20 68 02 62 12 20 95 63 94 39 63 08 40 91 66 49 94 21\n24 55 58 05 66 73 99 26 97 17 78 78 96 83 14 88 34 89 63 72\n21 36 23 09 75 00 76 44 20 45 35 14 00 61 33 97 34 31 33 95\n78 17 53 28 22 75 31 67 15 94 03 80 04 62 16 14 09 53 56 92\n16 39 05 42 96 35 31 47 55 58 88 24 00 17 54 24 36 29 85 57\n86 56 00 48 35 71 89 07 05 44 44 37 44 60 21 58 51 54 17 58\n19 80 81 68 05 94 47 69 28 73 92 13 86 52 17 77 04 89 55 40\n04 52 08 83 97 35 99 16 07 97 57 32 16 26 26 79 33 27 98 66\n88 36 68 87 57 62 20 72 03 46 33 67 46 55 12 32 63 93 53 69\n04 42 16 73 38 25 39 11 24 94 72 18 08 46 29 32 40 62 76 36\n20 69 36 41 72 30 23 88 34 62 99 69 82 67 59 85 74 04 36 16\n20 73 35 29 78 31 90 01 74 31 49 71 48 86 81 16 23 57 05 54\n01 70 54 71 83 51 54 69 16 92 33 48 61 43 52 01 89 19 67 48"


diagonals matrix = map (map (\(x,y) -> matrix !! x !! y)) points
    where
        points                      = map ( takeWhile isValidPoint . iterate addOneToTuple) maxRowAndColPoints
        (maxRow, maxCol)            = (length matrix, length (head matrix))
        addOneToTuple (x,y)         = (x+1, y+1)
        maxRowAndColPoints          = zip [0 .. maxRow-1] (repeat 0) ++ zip (repeat 0) [1 .. maxCol-1]
        isValidPoint (start, end) = ((start >= 0) && (start < maxRow)) && ((end >= 0) && (end < maxCol))

problem_11 = maximum $ (map (\row -> maximum (map product . (take 4). tails $ row))) allInOne
    where
        allInOne = diagonals toDigitMatrix ++ toDigitMatrix ++ transpose toDigitMatrix

угажите на говнокод и что я делаю неправильно

Ты написал программу, и не можешь понять, где ошибка — вот что неправильно. Обычно программу пишут поступательно, поэтапно, и на каждом этапе добиваются ее работоспособности. А ты написал с десяток функций, а потом внезапно выяснилось, что они, будучи использованными все вместе, делают что-то не то.

Выпиши каждую функцию отдельно и оттестируй на тестовых данных, чтобы убедиться, что она выдает правильные результаты на граничных значениях (если они есть), либо на нескольких случайных. Тогда и цепочка вызовов этих функций будет выдавать правильные результаты (ну, в идеале :).

Virtuos86 ★★★★★ ()
Последнее исправление: Virtuos86 (всего исправлений: 1)

https://projecteuler.net/problem=11

1. Считай матрицу не в [[Int]], а в (Int, Int) -> Int. Удобнее будет получать доступ по координатам. Хотя это дело вкуса.

2. Для каждой из 400 возможных координат получи группы из 4 чисел с началом в заданных координатах. Всего будет около 8*400 групп (немного меньше из-за граничных условий)

3. Пройдись целевой функцией по списку групп и найти максимум.

В твоём коде ошибку не искал

Crocodoom ★★ ()
Последнее исправление: Crocodoom (всего исправлений: 1)

Твой код получения диагоналей читать конечно невозможно

diagonals :: [[a]] -> [[a]]
diagonals matrix = map (map $ \(x, y) -> matrix !! x !! y) $ diagonalIndexes w h
    where w = length matrix
          h = length $ head matrix

diagonalIndexes :: Int -> Int -> [[(Int, Int)]]
diagonalIndexes w h = do
    i <- [0..w - 1]
    j <- [0..h - 1]
    guard $ i == 0 || j == 0
    pure $ zip [i..w - 1] [j..h - 1]
Nexmean ()

9171350956890128384

Странно, у меня Hugs показывает 2083952640. Тоже не верно.
Функция diagonals сильно не то делает. Программа должна искать не только диагонали.
К слову, 11 проблема решается глазами за несколько минут. А именно искать самые большие числа, а от них делать списки по 4.

Fermion ()
Ответ на: комментарий от Nexmean

А не проще ли, вместо обращений по индексам к односвязным спискам, вычисления их длин, построения списка индексов и всего такого, сделать так:

diagonals :: [[a]] -> ([a], [a])
diagonals matrix = (diagonal matrix, diagonal $ map reverse matrix)
 
diagonal :: [[a]] -> [a]
diagonal []           = []
diagonal ((x:_):rows) = x : diagonal (map tail rows)

?

korvin_ ★★★★★ ()
Последнее исправление: korvin_ (всего исправлений: 2)
Ответ на: комментарий от anonymous

Это бесконечно малая поправка для матрицы N*N, а прикидывать чо там конкретно для N=20 было совершено лень

Хотя погоди, или ты про то, что группы будут учтены по два раза? Да, это предполагалось

Crocodoom ★★ ()
Последнее исправление: Crocodoom (всего исправлений: 1)

Это не педагогично, но вот https://stackoverflow.com/questions/32465776/getting-all-the-diagonals-of-a-m...

Этот говнокод в чём-то говнокодистее, а в чём-то красивее (да, я знаю что за штуки вроде \\ и & нормальные люди убивают)

import Data.List hiding ((\\))

infixr 0 &
(&) = flip (.)
(\\) x f = f x

matrix :: [[Int]]
matrix = linxMatrix \\ lines \\ map words \\ map (map read) where
  linxMatrix = "08 02 22 97 38 15 00 40 00 75 04 05 07 78 52 12 50 77 91 08\n49 49 99 40 17 81 18 57 60 87 17 40 98 43 69 48 04 56 62 00\n81 49 31 73 55 79 14 29 93 71 40 67 53 88 30 03 49 13 36 65\n52 70 95 23 04 60 11 42 69 24 68 56 01 32 56 71 37 02 36 91\n22 31 16 71 51 67 63 89 41 92 36 54 22 40 40 28 66 33 13 80\n24 47 32 60 99 03 45 02 44 75 33 53 78 36 84 20 35 17 12 50\n32 98 81 28 64 23 67 10 26 38 40 67 59 54 70 66 18 38 64 70\n67 26 20 68 02 62 12 20 95 63 94 39 63 08 40 91 66 49 94 21\n24 55 58 05 66 73 99 26 97 17 78 78 96 83 14 88 34 89 63 72\n21 36 23 09 75 00 76 44 20 45 35 14 00 61 33 97 34 31 33 95\n78 17 53 28 22 75 31 67 15 94 03 80 04 62 16 14 09 53 56 92\n16 39 05 42 96 35 31 47 55 58 88 24 00 17 54 24 36 29 85 57\n86 56 00 48 35 71 89 07 05 44 44 37 44 60 21 58 51 54 17 58\n19 80 81 68 05 94 47 69 28 73 92 13 86 52 17 77 04 89 55 40\n04 52 08 83 97 35 99 16 07 97 57 32 16 26 26 79 33 27 98 66\n88 36 68 87 57 62 20 72 03 46 33 67 46 55 12 32 63 93 53 69\n04 42 16 73 38 25 39 11 24 94 72 18 08 46 29 32 40 62 76 36\n20 69 36 41 72 30 23 88 34 62 99 69 82 67 59 85 74 04 36 16\n20 73 35 29 78 31 90 01 74 31 49 71 48 86 81 16 23 57 05 54\n01 70 54 71 83 51 54 69 16 92 33 48 61 43 52 01 89 19 67 48"

n = 4

-- reversed chunks of length m
rchunks :: Int -> [a] -> [[a]]
rchunks m = go & reverse & drop (m-1) where
  go [] = []
  go l@(x:xs) = [take m l] ++ (go xs)

-- StackOverflow
diagonals :: [[a]] -> [[a]]
diagonals = tail . go [] where
    go b es_ = [h | h:_ <- b] : case es_ of
        []   -> transpose ts
        e:es -> go (e:ts) es
        where ts = [t | _:t <- b]

rows = m1 ++ m2 ++ (m1 \\ diag) ++ (m2 \\ diag) where
  m1 = matrix
  m2 = m1 \\ map reverse
  diag = diagonals & drop (n-1) & reverse & drop (n-1)

result =  rows
       \\ map (rchunks n)
       \\ concat
       \\ map product
       \\ maximum

result получился 70600674

anonymous ()
Ответ на: комментарий от anonymous
import Data.List hiding ((\\))

infixr 0 &
(&) = flip (.)
(\\) x f = f x

(да, я знаю что за штуки вроде \\ и & нормальные люди убивают)

И правильно убивают. Потому что надо использовать стандартные обозначения: (>>>) из Control.Arrow вместо твоего (&) , а также (&) из Data.Function вместо твоего (\\)

Crocodoom ★★ ()
Ответ на: комментарий от Crocodoom

Ты полностью прав, я просто всё время забываю, где их искать. А \\ мне легко запомнить, т.к. такой же оператор есть Wolfram Mathematica. Пока писал, вспомнил вот, что делать обозначение x & f = f x стал после линз... Вообще, мне не очень очевидна степень стандартности, потому что кодстайлы у библиотек хаскелля такие разные (стараниями таких как я, видимо).

И я не настоящий джедай, Control.Arrow не осиливал, а втупую по типу (a->b)->(b->c)->(a->c) не ищется. При этом отказаться от правой композиции не могу по причине аутизма.

anonymous ()