hl-num-test

;; Examples taken from plt-4.2/collects/tests/mzscheme/numstrs.ss
;;
;; Original notes:
;;   #f means a symbol
;;   X means fails (syntax forces it to be a number)
;;   DBZ means fails because divide-by-zero
;;   NOE means fails because no such exact

;; mz extension tests taken from
;; plt-4.2/collects/tests/syntax-color/scheme-lexer.ss

;--- These SHOULD highlight as numbers -----------------------------------------

(+ 1/2 +i) 1/2+i
(100 100)
(100 #d100)
(0.1 .1)
(0.1 #d.1)
(1/20000 #e1/2e-4)
(10.0 1e1)
(10.0 1E1)
(10.0 1s1)
(10.0 1S1)
(10.0 1f1)
(10.0 1F1)
(10.0 1l1)
(10.0 1L1)
(10.0 1d1)
(10.0 1D1)
(0.0 0e13)
(0.0 #i0)
(-0.0 #i-0)
(+inf.0 .3e2666666666)
(+inf.0 +INF.0)
(+nan.0 +NaN.0)
(+inf.0 1e500)
(-inf.0 -1e500)
(0.0 1e-500)
(-0.0 -1e-500)
(+inf.0 1#e500)
(-inf.0 -1#e500)
(0.0 1#e-500)
(-0.0 -1#e-500)
(+inf.0 1e10000000000000000000000000000000)
(-inf.0 -1e10000000000000000000000000000000)
(+inf.0 1#e10000000000000000000000000000000)
(-inf.0 -1#e10000000000000000000000000000000)
(+0.0 1e-10000000000000000000000000000000)
(-0.0 -1e-10000000000000000000000000000000)
(+0.0 1#e-10000000000000000000000000000000)
(-0.0 -1#e-10000000000000000000000000000000)
(10.0 1#)
(10.0 1#e0)
(10.0 1####e-3)
(10.0 1#.e0)
(10.0 10.#e0)
(10.0 10.e0)
(10.0 1#.e0)
(10.0 10.0#e0)
(10.0 1#.##e0)
(10 #e1#)
(10 #e1#e0)
(10 #e1#.e0)
(5e-5 1/2e-4)
(5e-5 #i1/2e-4)
(0.5 #i1/2)
(1/2 #e1/2)
(0.5 #i0.5)
(1/2 #e0.5)
(1/20 #e0.5e-1)
(1/20 #e0.005e1)
(1.0+0.5i 1+0.5i)
(1/2 1/2@0)
(-1/2 -1/2@0)
(1/2 1/2@-0)
(0 #o#e0)
(8 #o#e10)
(0 #b#e0)
(0.0 #b#i0)
(4.0 #b1e10)
(4 #b#e1e10)
(1/10+1/5i #e0.1+0.2i)
(0.0+80.0i #i+8#i)
(521976 #x7f6f8)
(1+8i #b#e1+1#e10i)
(1.125 #x1.2)
(1.1640625 #x1.2a)
(1.1640625 #x1.2a####)
(10.0 #xa.)
(10.25 #xa.4)
(160.0 #xa#.)
(416.0 #x1a#.)
(2816.0 #xb##.##)
(4e62 #i4000000000000000000000000000000000000000000000000000000000000e2)
(-0.0 #b-0.0)
(+nan.0+1i +nan.0+1i)
(1+nan.0i 1+nan.0i)
(0.5+nan.0i 1/2+nan.0i)
(1+inf.0i 1+inf.0i)
(1-inf.0i 1-inf.0i)
(+inf.0i +inf.0i)
(-inf.0i -inf.0i)
(+nan.0i +nan.0i)
(-nan.0i -nan.0i)
(+inf.0i +INF.0i)
(-inf.0-nan.0i -inf.0-nan.0i)
(+nan.0@1 +nan.0@1)
(+inf.0@1 +inf.0@1)
(1@+inf.0 1@+inf.0)
(1@+inf.0 1/1@+inf.0)
(+inf.0@1 +inf.0@1/1)
(1.0+0.0i 1@0000.0)
(1.0 0001.0@0)
(#i10/3 1#/3)
(#i1/300 1/3##)
(#i10/3 #d1#/3)
(+inf.0 1/0#)
(-inf.0 -1/0#)
(500.0 1/2#e4)
(5000.0 1#/2#e4)
(500000000.0 1/2#e10)
(500000000 #e1/2#e10)
(16140901064495857664-50176i #e#x+e#s+e@-e#l-e)

(NOE #e+inf.0)
(NOE #e-inf.0)
(NOE #e+nan.0)
(NOE #e1/0#)

(DBZ 1/0)
(DBZ 5+1/0i)
(DBZ 1/0+5i)
(DBZ 5@1/0)
(DBZ 1/0@5)
(DBZ 1/0e2)
(DBZ 1/0+inf.0i)
(DBZ +inf.0+1/0i)
(DBZ 1/0@+inf.0)
(DBZ +inf.0@1/0)

;; Numbers (mzscheme extensions)

#b1.1
#o1.1
#d1.1
#xa.F
#b1e+1
#o1E+2
#d1E+2
#b1D+1
#o1d+2
#d1d+2
1/2e2
+iNf.0
-InF.0
+naN.0
-nAN.0
-inf.0+1i
1-inf.0I

1.+i
1.-i

; sad panda :(

+.1
-.1

; </sad panda>

;--- These should NOT highlight as numbers (though ssyntax is fine) ------------

(#f 1.0/3)
(#f 1/3.0)
(#f 1#/#3)
(#f d)
(#f i)
(#f 3i)
(#f 33i)
(#f 3.3i)
(#f e)
(#f e1)
(#f e1)
(#f -)
(#f +)
(#f +.)
(#f /)
(#f +1+1)
(#f +1/+1)
(#f 1//2)
(#f mod//)
(#f -1.0/2)
(#f /2)
(#f 2..)
(#f .2.)
(#f 1#.0e4)
(#f 1#0e4)
(#f 1#0.e4)
(#f 1##.##0e4)
(#f 2i)
(#f /2i)
(#f 2@2i)
(#f 2@@2)
(#f -2@-+2)
(#f 1/1-e4)
(#f 1.-2)
(#f --1)
(#f -+1)
(#f -1+3-4)
(#f 1\0002)
(#f 4ef5)
(#f 1/0+hi)
(#f x+1/0i)
(#f 1++nan.0i)
(#f 1++inf.0i)
(#f +inf.0@1@1)
(#f +inf.0@3@0)
(#f +inf.0@3+4i)
(#f +ina.0)
(#f 1@3+4i)
(#f @2)
(#f +a@2)
(#f 1e1/0)
(#f 011111122222222223333333333444444x)

(X #b1000000000020e1)
(X #d1#/#3)
(X #e-)
(X #e+)
(X #i-)
(X #i+)
(X #e+.)
(X #e2..)
(X #e.2.)
(X #xg)
(X #x)
(X #xa#a)
(X #i#j0)
(X #x12.a#b)
(X #e1.-2)
(X #b#b0)
(X #b#o0)
(X #i#i0)
(X #e#e0)
(X #i8#i)
(X #i4@#i5)
(X #i4+#d6i)
(X #i4+#d6)
(X #e4ef5)
(X #d1e)
(X #b1e)
(X #o1e)

foldl1
p2p
1up
127.0.0.1
+.1.2
(foldl1 1up p2p)