basis/tools/deploy/test/13/13.factor

   1 ! Copyright (C) 2009 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: regexp kernel io ;
   4 IN: tools.deploy.test.13
   5
   6 : regexp-test ( a -- b ) <regexp> "xyz" swap matches? ;
   7
   8 : main ( -- ) "x.z" regexp-test "X" "Y" ? print ;
   9
  10 MAIN: main