git.iko.soy/rowtype-yoga/purescript-backend-optimizer
on main help sign in
rowtype-yoga/purescript-backend-optimizer/backend-es/test-snapshots/src/Snapshot.Tco05.purs
16 lines 353 B history raw
1module Snapshot.Tco05 where
3import Prelude
5import Data.Array as Array
6import Data.Maybe (Maybe(..))
8-- minimized from Data.Array
9-- let binding in loop
10span :: forall a. (a -> Boolean) -> Array a -> Maybe Int
11span p arr = go 0
12 where
13 go i =
14 case Array.index arr i of
15 Just x -> if p x then go (i + 1) else Just i
16 Nothing -> Nothing