blob: 479234ff15461ced706a623cd7c4f830931692bc (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
module Misc exposing (..)
comesAfter : a -> List a -> Maybe a
comesAfter x xs =
case xs of
[] -> Nothing
_::[] -> Nothing
y::z::rest -> if y == x then Just z else comesAfter x (z::rest)
comesBefore : a -> List a -> Maybe a
comesBefore x xs =
case xs of
[] -> Nothing
_::[] -> Nothing
y::z::rest -> if z == x then Just y else comesAfter x (z::rest)
|
