mirror of
https://github.com/Smaug123/fsharp-prefix-form
synced 2025-10-06 08:18:43 +00:00
9 lines
205 B
Forth
9 lines
205 B
Forth
namespace Expression.Internals
|
|
|
|
[<AutoOpen>]
|
|
module ActivePatterns =
|
|
let (|Int|_|) (c : char) : int option =
|
|
if '0' <= c && c <= '9' then
|
|
Some (int(c) - int('0'))
|
|
else None
|