From acc06aeeeed31193371fe7898a27472598258851 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Tue, 10 Jun 2014 18:17:27 -0700 Subject: [PATCH] math.extras: adding dotted range syntax. --- extra/math/extras/extras.factor | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/extra/math/extras/extras.factor b/extra/math/extras/extras.factor index 2b71d218e9..cbedb7f0ad 100644 --- a/extra/math/extras/extras.factor +++ b/extra/math/extras/extras.factor @@ -5,8 +5,8 @@ USING: accessors arrays assocs assocs.extras byte-arrays combinators combinators.short-circuit compression.zlib fry grouping kernel locals math math.combinatorics math.constants math.functions math.order math.primes math.ranges -math.ranges.private math.statistics math.vectors memoize random -sequences sequences.extras sequences.private sets sorting +math.ranges.private math.statistics math.vectors memoize parser +random sequences sequences.extras sequences.private sets sorting sorting.extras ; IN: math.extras @@ -303,3 +303,7 @@ PRIVATE> : map-kahan-sum ( ... seq quot: ( ... elt -- ... n ) -- ... n ) [ 0.0 0.0 ] 2dip [ 2dip rot kahan+ ] curry [ -rot ] prepose each nip ; inline + +SYNTAX: .. dup pop scan-object [a,b) suffix! ; + +SYNTAX: ... dup pop scan-object [a,b] suffix! ;