mirror of
https://github.com/roc-lang/roc.git
synced 2025-09-30 15:21:12 +00:00
12 lines
241 B
Text
12 lines
241 B
Text
app "test" provides [main] to "./platform"
|
|
|
|
Parser a : List U8 -> List [Pair a (List U8)]
|
|
|
|
any: Parser U8
|
|
any = \inp ->
|
|
when List.first inp is
|
|
Ok u -> [Pair u (List.dropFirst inp 1)]
|
|
_ -> []
|
|
|
|
main = any
|
|
# ^^^ Parser U8
|