##- # Author: Brian Tiffin # Dedicated to the public domain # # Date: November 2016 # Modified: 2016-11-26/01:13-0500 ##+ # # Fence.icn, pattern matching, one way gate, disallow backtracking # procedure main() # Span works in an unachored mode, will scan ahead attempting to match "no match at start of string" ?? Span('pqrstuv') => result || .> cur write(image(result), " ", cur) # add a fence for anchored pattern matching, to stop backtraking retries "no match at start of string" ?? Fence() || Span('pqrstuv') => second write(image(second)) end