aboutsummaryrefslogtreecommitdiff
path: root/examples/working-compiler/grep-fast.test
blob: c3068f5a72b12b908e06fdd6ee7b45f9657595b8 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
"{ =*p { [ -01 { _ p not \"--\" | rep }\" each ] }' } * *" ==grepCode

{ grepCode includeLine /including dump } /fastGrep defq

[ 1 2 3 4 5 6 7 8 9 10 ] ==data

1000000 {
  data { 5 eq } fastGrep --
} rep

5 ==i

1000000 {
  data { i eq }" fastGrep --
} rep