Jacky Shen mebusw
yuanmai
/ CpsRegex.fsx
Last active
August 31, 2017 08:45
用 CPS 实现字符串匹配。基于讲座 https://youtu.be/cnhb4M8-J5M
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| type Re = | |
| | Lit of char | |
| | Seq of Re * Re | |
| | Or of Re * Re | |
| | Star of Re | |
| let rec match2 (re: Re) (str: char list) k = | |
| match re with | |
| | Lit(c) -> match str with | |
| | [] -> false |