Contents

{-# OPTIONS_GHC -fno-warn-type-defaults #-}

import Data.Array        (listArray)
import Data.Foldable     (for_)
import Test.Hspec        (Spec, describe, it, shouldBe)
import Test.Hspec.Runner (configFastFail, defaultConfig, hspecWith)

import Matrix (saddlePoints)

main :: IO ()
main = hspecWith defaultConfig {configFastFail = True} specs

specs :: Spec
specs = describe "saddlePoints" $ for_ cases test
  where

    test (description, xss, expected) = it description assertion
      where
        assertion = saddlePoints matrix `shouldBe` expected
        rows      = length xss
        columns   = length $ head xss
        matrix    = listArray ((0, 0), (rows - 1, columns - 1)) (concat xss)

    cases = [ ("Example from README", [ [9, 8, 7]
                                      , [5, 3, 2]
                                      , [6, 6, 7] ], [(1, 0)] )

            , ( "empty matrix has none", [], [] )

            , ( "no saddle point", [ [1, 2, 3]
                                   , [3, 1, 2]
                                   , [2, 3, 1] ], [] )

            , ("multiple saddle points", [ [4, 5, 4]
                                         , [3, 5, 5]
                                         , [1, 5, 4] ], [ (0, 1)
                                                        , (1, 1)
                                                        , (2, 1) ] )
            , ( "bottom-right corner", [ [8, 7, 9]
                                       , [6, 7, 6]
                                       , [3, 2, 5] ], [(2, 2)] )

            ]

Version data entries

229 entries across 229 versions & 1 rubygems

Version	Path
trackler-2.2.1.180	tracks/haskell/exercises/saddle-points/test/Tests.hs
trackler-2.2.1.179	tracks/haskell/exercises/saddle-points/test/Tests.hs
trackler-2.2.1.178	tracks/haskell/exercises/saddle-points/test/Tests.hs
trackler-2.2.1.177	tracks/haskell/exercises/saddle-points/test/Tests.hs
trackler-2.2.1.176	tracks/haskell/exercises/saddle-points/test/Tests.hs
trackler-2.2.1.175	tracks/haskell/exercises/saddle-points/test/Tests.hs
trackler-2.2.1.174	tracks/haskell/exercises/saddle-points/test/Tests.hs
trackler-2.2.1.173	tracks/haskell/exercises/saddle-points/test/Tests.hs
trackler-2.2.1.172	tracks/haskell/exercises/saddle-points/test/Tests.hs
trackler-2.2.1.171	tracks/haskell/exercises/saddle-points/test/Tests.hs
trackler-2.2.1.170	tracks/haskell/exercises/saddle-points/test/Tests.hs
trackler-2.2.1.169	tracks/haskell/exercises/saddle-points/test/Tests.hs
trackler-2.2.1.167	tracks/haskell/exercises/saddle-points/test/Tests.hs
trackler-2.2.1.166	tracks/haskell/exercises/saddle-points/test/Tests.hs
trackler-2.2.1.165	tracks/haskell/exercises/saddle-points/test/Tests.hs
trackler-2.2.1.164	tracks/haskell/exercises/saddle-points/test/Tests.hs
trackler-2.2.1.163	tracks/haskell/exercises/saddle-points/test/Tests.hs
trackler-2.2.1.162	tracks/haskell/exercises/saddle-points/test/Tests.hs
trackler-2.2.1.161	tracks/haskell/exercises/saddle-points/test/Tests.hs
trackler-2.2.1.160	tracks/haskell/exercises/saddle-points/test/Tests.hs