Idris2/tests/idris2/pretty002/SnocList.idr
2021-12-02 12:49:07 +00:00

7 lines
122 B
Idris

infixl 7 <><
public export
(<><) : SnocList a -> List a -> SnocList a
sx <>< [] = sx
sx <>< (x :: xs) = (sx :< x) <>< xs