#!/usr/bin/runghc

module AlgLinearSearch where

linSearch :: (Eq a) => a -> [a] -> Maybe Int
linSearch = linSearchRec 0

linSearchRec :: (Eq a) => Int -> a -> [a] -> Maybe Int
linSearchRec _ _ [] = Nothing
linSearchRec pos element (x : xs) =
  if x == element
    then Just pos
    else linSearchRec (pos + 1) element xs

main :: IO ()
main = do
  print (linSearch 'a' "Hurray")
  print (linSearch 10 [1 .. 30])